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Unter den vielen interessanten Spielekartenßnden Sie auch den defini¬ 
tiven Sorcery Plus-Lageplan. Sicherlich eine große Hilfe bei so man¬ 
chem heißen Spiel. 




!j'!! l || Micro Gens Wally Week-Adventures haben sich einen festen Platz auf 
iiliiiii dem Softwaremarkt erkämpft. Wie Sie bei diesen Spielen auf einen grii- 
ill!lln nen Zweig kommen, verrät das „Wally Week Quartett”. 

•lill'll___—- 
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Gameware *86 


1986 war für den Spielefreund, der im Besitz eines Schnei- 
iljl'l, der Rechners ist, ein ausgesprochen ergiebiges Jahr. Dem 
i| ji CPC ist es gelungen, auch weiterhin in der Gunst der An- 
;j|j!;;; wender zu steigen. Durch eine weite Verbreitung des Rech- 
jjjjjjjj ners sahen auch die Softwarehäuser einen Markt wachsen, 

!l J|| auf dem sie, wollten sie den Anschluß nicht verlieren, prä- 
sent sein mußten. Da der Schneider-User sich als kriti¬ 
scher Kunde erwies, zeigte sich, daß man sich mit minder¬ 
wertigen Produkten auf diesem Markt nicht behaupten 
J;]!,!! konnte. Der harte Konkurrenzkampf bescherte den 
Schneider-Anwendern eine wahre Flut qualitativ hoch- 
jjjjjjj wertiger Software. 

||iiiin ... i 

iljjiji Ganz besonders im Bereich der Spiele ist auf diese Art und 
ilji'li Weise so manches Kleinod angewandter Maschinenpro- 
ilüli.i grammierung entstanden. Zwar ist es richtig, daß der 
TZ Softwaremarkt mitunter genauso schnellebig ist wie die 
Musikbranche, aber auch hier gilt, daß ältere Produkte 
dem Spieler, der sie noch nicht kennt,bisweilen mehr Spaß 
IjjlJj!: und Unterhaltung bescheren, als etwa ein momentan mit 
!|i! viel Elan beworbenes Spiel. 

IIIIIlL 

!!j||jl Aber wie erkennt man nun, was man von den einzelnen 
ijjjjj! Titeln halten soll, die auf dem Markt erhältlich sind? Infor- 
'!|!1 1 1 mation tut not. 

.. Nachfolgend an diese kleine Einleitung finden Sie einen 

Querschnitt durch das Spielejahr 1986. Wir haben aus 
]JjJ]|l unseren Softwarereviews ein repräsentatives Sortiment 
Software zusammengestellt. Prägnant und kritisch kom- 
mentiert, mit jeweils einem Bildschirmphoto versehen, 
"!!!!;' stellen wir Ihnen hier die Entwicklungen eines Jahres 

11 , 11,11 vor. 

,i"n" 



Battle ofthe Planeix 


abgesehen davon, waren sie inzwischen bunt geworden 
und nannten sich fortan "Galaxions. 

Dieses Spiel war es dann auch .das den Autor von BATTLE 
mit ziemlicher Sicherheit beeinflußt hat. Es geht wieder 
einmal um die Verteidigung unseres Heimatplaneten ge¬ 
gen schießwütige Invasoren aus der siebten Galaxie. In 
wahren Kaskaden stürzen sie sich auf das am unteren 
Bildschirmrand hin und her fahrende Raumschiff des 
Spielers und machen dabei die tollsten Kapriolen. Gra¬ 
fisch und soundmäßig ist "Battle' sicherlich kein 
Highlight. Trotzdem ist es ein Spiel, das nicht zuletzt ob 
seines günstigen Preises, ein verhältnismäßig gutes Preis-/ 
Leistungsverhältnis aufweist und eigentlich eine ganze 
Menge Spaß bringen kann. Eines sei noch bemerkt: ein 
Kinderspiel ist der Kampf gegen die Aliens nicht gerade. 
Einiges an Übung will schon investiert sein, um hier einen 
anständigen Score zu erzielen. 
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Shoot em up 


BATTLE BEYOND THE STARS: Nachdem die Space 
Invaders erst einmal das Laufen und Schie ßen gelernt hat¬ 
ten, war es nur ein kleiner Schritt bis zum Fliegen. Und 
wirklich - schon die nächste Generation hatte es gelernt; 



Battle beyond the Stars 


BATTLE OF THE PLANETS: Auch dieses, von der engli¬ 
schen Firma Micro Gen realisierte Programm, entführt 
den Spieler in ein intergalaktisches Schlachtfeld. BOTP 
präsentiert sich in einem beachtlichen Gewand auf dem 
Bildschirm. Klar gezeichnete und perfekt animierte 
Veclorgrafiken versetzen den Spieler hautnah in das 
Spielgeschehen. Zwar ist der Sound ein wenig dürftig aus¬ 
gefallen, aber dafür entschädigt eine umso komplexere 
Spielhandlung. Denn für ein Ballerspiel wird hier vom 
Spieler doch einiges an Strategie gefordert. 

Da die Invasoren sich nicht einfach damit begnügen, alle 
im Weltraum befindlichen gegnerischen Raumschiffe zu 
vernichten, sondern auch noch spezielle Landefahrzeuge 
auf den einzelnen Planeten absetzen, muß immer abge- 
wägt werden, ob man sich zuerst den Feinden im 
Weltraum entgegenstellt oder versucht, die drohende Ver¬ 
nichtung einzelner Planeten zu verhindern .Zwar ist auch 
hierein gewisses Maß an Geschicklichkeit vonnöten, aber 
die Möglichkeit, das eigene Raumschiff immer wieder re¬ 
parieren zu lassen,gibt dem Spieler Zeit mit den an Ihn ge¬ 
stellten Anforderungen zu wachsen. 

COMMANDO: Diese langerwartete Umsetzung eines 
recht beliebten Arcaden-Automatenspiels durch Elite Sy¬ 
stems kam in Deutschland mit einer kleinen Änderung 
auf den Markt. Anstelle der Soldaten aus Fleisch und Blut 
die der Spielfigur in der englischen Version das Leben 
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Commando 

schwer machen, wurden für den deutschen Markt kleine 
silberne Roboter eingesetzt - wohl um einer drohenden 
Indizierung zu entgehen. Zwar wurde der Name auch ge - 
ändert - in SPACE INVASION ,aber das interessierte nie¬ 
manden. Die große Besonderheit bei diesem Spiel ist die 
Gefahr anatomischer Deformationen, durch exzessives 
Ballern. 

Ein einzelner Super-Rambo, gesteuert vom Spieler, wird 
da von einer ganzen Armee angegriffen .Er muß nun ver¬ 
suchen. an die verschiedenen Basislager der angreifenden 
Truppen heranzukommen und diese zu zerstören. Auf 
dem Bildschirm sieht das so aus: 

Die Figur des Helden jagt von unten nach oben durch ein 
in der Draufsicht dargestelltes Schlachtfeld mit diversen 
Gimmiks, wie etwa Geschützstellungen, gewürzt. Von al¬ 
len Seiten stürmen gegnerische Soldaten auf ihn ein, de¬ 
nen es den Garaus zu machen gilt. 

Die Qualität von Sound und Grafik hält sich in Grenzen, 
aber der Daumen tut Ihnen bestimmt schon beim ersten 
Außenposten vom vielen Feuern weh. 

N.O.M.A.D.: Das eigenwilligste Ballerspiel in dieser 
Reihe ist wohl zweifelsohne N.O.M.A.D. Der Programmie¬ 
rer, auf dessen Konto dieses Spiel verbucht werden muß. 


N OM.A.D. 


ist zweifelsohne ein Freund von Abenteuer-Spielen. Denn 
eine nahe Verwandtschaft zu den Arcaden-Adventures 
kann N.O.M A.D. nicht leugnen. Es gilt, einen Kampfrobo¬ 
ter durch die labyrinthartig verwobenen Gänge eines ausge¬ 
höhlten Asteroiden zu geleiten. In die Wände dieser inter¬ 
stellaren Festung, die übrigens in der Draufsicht darge¬ 
stellt wird, sind an allen möglichen Ecken und Enden die umm 
raffiniertesten Abwehrwaffen eingebaut. So manche auto- ||'j|!j| 
matische Kanone, die in gewissen Intervallen durch die imn|j 
Gegend ballert, verriegelte Türen und gegnerische !!!!!!" 
Kampfroboter machen das Vorankommen nicht gerade 'j!!!!!' 
einfach. Auch ist die Steuerung des N.O.M.A.D.-Roboters ||jj|i|j 
ein wenig gewöhnungsbedürftig und leider etwas unsauber 
programmiert. Es kann bisweilen Vorkommen, daß der 
Robot trotz vollem Rückwärtsschub nicht von einer Wand, 
an der er hangt, wegkommt .Ansonsten wäre noch eine "'IUI 1 
feine Farbgrafik und das fast vollständiges Fehlen von 
Soundeffekten erwähnenswert. 'ÜH' 11 

IHII||| 

lllllll 

- llllllll 

Die Geschicklichkeitsspiele "JlHl! 

-- iiji'h 


Thing on a Spring 

THING ON A SPRING: Auf den ersten Blick vermeint man 
beim Betrachten vonTFIING hier ehereinen Vertreterder 
Jump & Run-Spiele vor sich zu haben. Was mich dazu 
bewog THING hier in die Kategorie der Geschicklich¬ 
keitsspiele aufzunehmen, war die unorthodoxe Fortbewe¬ 
gungsart der kleinen Spielfigur. Diese besteht nämlich, 
wie der Titel schon andeutet ,aus einem Kopf, zwei Armen 
und anstelle des Torsos und der Beine einer großen, 
quitschigen alten Bettfeder. Dieses kleine Federmänn¬ 
chen muß nun, vom Spieler gesteuert, ein Puzzle 
zusammensetzen. 

Allerdings sind diese Teile in der Fabrik eines bösen 
Koboldes versteckt und eine ganze Menge seiner Spießge¬ 
sellen bewachen die Teile. Die Fabrik, durch die der Fe¬ 
dermann geistern muß, teilt sich in vier Etagen auf, die als 
Querschnitt dargestellt, durch einen Aufzug untereinan¬ 
derverbunden sind. Im Laufe der Suche findet man aller¬ 
dings nicht nur Puzzleteile .sondern auch andere Gegen¬ 
stände, die der Spielfigur durch Aufnehmen zu einigen 
zusätzlichen Fähigkeiten verhelfen. Diese sind für ein 
gutes Gelingen der Suche aber unbedingt vonnöten. 

Von der Grafik her ist THING sauber gemacht, alles ist 
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'Will 1 

i|,|i'|, Gyroscope 
llülln . 

P; bunt und pnantasievoli in Szene gesetzt. In Verbindung 
mit dem bei diesem Spiel wirklich ausgezeichneten Sound 
ergibt das ein gelungenes Spiel, auf das man immer wieder 
llillil! gerne zurückkommt. 

.mini ° 


Vergleich dazu die zweite'Adaption von Marble Madness, 
die es für die CPC’s gibt. 

SPINDIZZY: Spindizzy hält die Welt in Atem. Einigen 
Wissenschaftlern ist es gelungen, sich Zugang zu einer an • 
deren Dimension zu verschaffen. Da es nicht möglich ist, 
einen Menschen in diese Zone zu versetzen, es dort aller¬ 
dings einige besonders wertvolle Juwelen gibt, wurde ein 
Weg gefunden, in diese Dimension einzudringen und dort 
die begehrten Juwelen einzusammeln. Die speziell dafür 

entwickelte Spindizzy-Sonde wird daraufhin auf die Reise 

geschickt, um die Zone zu erkunden. Den Wissen¬ 
schaftlern, die die Sonde aus sicherer Entfernung via 
Fernbedienung steuern, präsentiert sich eine sonderbare 
Welt, die aus schiefen Ebenen und schmalen waagerech¬ 
ten Stegen besteht. Aufgrundeinerphysikalischen Gesetz¬ 
mäßigkeit, kann die Sonde nur eine bestimmte Zeit in der 
Zone verbleiben, danach gilt es, so schnell wie möglich zu 
verschwinden. Im Grunde genommen ist,abgesehen von 
der hier fehlenden Musikuntermalung,kein großer Unter¬ 
schied zu GYROSCOPE. Allerdings hat SPINDIZZY 
über 250 verschiedene Bilder, die zusammen mit einigen 
Optionen die das Spiel vereinfachen, ein echtes Kleinod 
ergeben, das in keiner Softwaresammlung fehlen sollte. 


iiniiii 

'll'IIM 


mjj| GYROSCOPE: Seitdem das wahnsinnige Kugelspiel 
iimJ Marble Madness die Spielhallen in Atem hält, grübeln 
iCl die Softwarehersteller, wie sie ein derartiges Spiel auf 
Ijjäi diversen Heimcomputern realisieren könnten. Das erste 
iHjjii' Softwarehaus,dem eine solche, wenn auch nicht autori- 
""" sierte, Umsetzung gelang, war Melbourne House. Um 
sogleich eventuell aufkeimendes Plagiatsgemunkel zu 
||/l vermeiden .verzichtete man hier darauf eine Kugel durch 
"'"'I den Parkour zu jagen, und verlagerte sich auf einen 
Kreisel. 

iiiii in 

müll. 

jjjjjjj Aber ansonsten sieht GYROSCOPE eigentlich wie der 
tliillü kleine Bruder von Marble Madness aus. Das Ziel dieses 
Spieles ist es, einen kleinen Kreisel über einen verzwickten 
,l nji Parkour zu steuern, der stellenweise noch mit schiefen 
mmmi Ebenen oder etwa Gravofeldern verschärft wurde. Zwar ist 
GYROSCOPE beileibe kein schlechtes Spiel - hat es doch 
lillUl eine gute Grafik und mehrere verschiedene Musikstück- 
chen, die während des Spiels ablaufen - der Mangel ist ein- 
!|.j{.ll fach der Spielumfang, und der ist mit nicht einmal 30 ver- 
. .|| schiedenen Bildern ein wenig dürfig, betrachtet man im 

iE; 
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The Sh Axis 


EHE 5TH AXIS: Wieder einmal hat sich ein Wissen¬ 
schaftler mit der Entwicklung eines ganz besonders ge¬ 
wieften Gerätes hervorgetan, es ist ihm gelungen, eine 
Zeitmaschine zu bauen, mit der dann auch sogleich expe¬ 
rimentiert wird. Allerdings stellt sich heraus^aßdieses 
Ding bei weitem noch nicht so arbeitet wie man sich das 
vorgestellt hat. 


Zwar ist es mit der Maschine möglich ,die Zeit zu manipu¬ 
lieren, allerding in einem Umfang, den sich niemand zu 
erträumen wagte. Die Zeitmaschine wirft alle möglichen 
verschiedenen Zeitzonen durcheinander und ein absolu¬ 
tes Chaos macht sich in den Labors breit. Das Spielgesche¬ 
hen von THE 5TH AXIS wird auf dem Monitor als ein 
Querschnitt durch das mehrstöckige Laboratorium darge¬ 
stellt. Der Spieler muß nun die unterschiedlichsten her¬ 
umliegenden Gegenstände einsammeln und in ihre ange¬ 
stammte Zeitzone zurückbringen. Dabei muß man darauf 
achten, daß die amoklaufenden Hilfsroboter dem Spielfi- 
gürchen nicht das Fell über die Ohren ziehen. Auch er¬ 
schweren Löcher in den einzelnen Stockwerken das Vor¬ 
ankommen, zwar ist es möglich, von tieferliegenden Eta- 
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gen mittels Lifts wieder nach oben zu fahren, aber 
mancherorts ist das Überspringen klaffender Abgründe 
unumgänglich. 

Die Grafik, die THE 5TH AXIS sein Eigen nennt, ist zwar 
sehr detailliert,aber farblich nicht besonders attraktiv ge¬ 
worden. Trotzdem gestaltet sich das Spiel abwechslungs¬ 
reich und unterhaltsam. 


Sportspiele 


3D-BOXING: Sich zu prügeln, aber gleichzeitig keine 
schmerzhaften Schläge einstecken zu müssen, war wohl 
schon immer ein Menschheitstraum. Wahr geworden ist 
er allerdings erst mit der Entwicklung von leistungsfähi¬ 
gen Homecomputern. 

Wie der Name schon unmi Verständlich verrät, geht es 
hierbei um's Boxen. Gegen die unterschiedlichsten Geg¬ 
ner gilt es im Ring eine gute Figur zu machen, und sie, 
wenn möglich, lang hinzustrecken. Je weiter der Spieler in 
der Rangliste vorankommt, desto härter wird der Fight im 
Ring. Denn selbstverständlich wachsen auch die Fä¬ 
higkeiten Ihrer Widersacher. 



3D-Boxing 


Mit einer netten Grafik versehen und einer ganz passab¬ 
len Sounduntermalung, ist dieses Spiel ein gut gelungener 
Vertreter der Sportsimulationen. Zwar hätte man mit ein 
wenig mehr Unterstützung durch einen guten Grafiker 
wesentlich mehr aus dem Spiel machen können, aber was 
nicht ist, kann ja noch werden. 

WINTERGAMES: Dieses seit langer Zeit angekündigte 
Programm von Epyx erreichte den Markt erst mit einiger 
Verspätung. Da das Programm in seiner Commodore- 
Version ein absolutes "Non plus Ultra" für Grafik und 
Spielwitz darstellt, waren die Erwartungen, die der 
Schneider-User in die Umsetzung für die CPC's setzte, 
entsprechend hoch. Um diese hochgeschraubten Erwar¬ 
tungen dann auch befriedigen zu können, mußte ein enor¬ 
mer Programmieraufwand getrieben werden, und das 
kostete natürlich eine ganze Menge Zeit. Aber dafür kann 
sich das Programm, das nun schlußendlich dabei heraus¬ 
gekommen ist, auch wirklich sehen lassen. 

Wie der Titel schon verrät, handelt es sich hier um die 
Simulation einer Winterolympiade, in deren Verlauf der 
Spieler versuchen muß, in verschiedenen Disziplinen 



akzeptable Ergebnisse zu erzielen. Die Bandbreite der 
hier angebotenen Sportarten reicht vom Skispringen bis 11,1111 
zum Biatlon.Im Gegensatz zu anderen Sportsimulatio¬ 
nen. wurde hier großer Wert auf eine akkurate Steuerung IX 
gelegt. Der Spieler muß nicht wie ein verrückter am Joy- jiÜli, 
stick herumrödeln, sondern ihn rhythmisch im Takt zu Igjjl 1 
den Bewegungen des Spielmännchens betätigen. 

Grafik und Sound haben hier bisher nicht gesehene Qua- .j;;;;;; 
litä'ten und machen aus Wintergames eine der besten lliiii! 

Sportsimulationen, die es für die CPC’s gibt. llllll 1 

& ' pich 


MARTIAL ARTS 


YIE AR KUNG FU: Die Spiele des Martial Arts Genre 
sind im Grunde genommen nahe Verwandte der Sportsi- 
mulationen ,da es auch hier darum geht, eine Spielfigur, 
die wie ein Mensch aussieht, so zu steuern .daß sie jeweils 
die gewünschte Bewegung ausführt. Daß es hier allerdings 
nicht so sportlich zugeht wie bei den Sportspielen, versteht 
sich von selbst. 




Mllllll 


Sieht man sich YIE AR KUNG FU einmal genauer an, so jjjjj!|| 
vermeint man sich in einer computerisierten Version eines !!!„, 



Yie arKung Fu 
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i|Z Karate Films zu befinden .Ziel des Spieles ist es .den Geg¬ 
ner mit den hinterlistigsten Tricks aufs Kreuz zu legen. 
Diese sind aber leider meistens bewaffnet und wollen sich 
l|ljj'|| das gar nicht gefallen lassen. Um dem Geger ein blaues 
!|||! j! Auge zu verpassen .stehen dem Spieler acht verschiedene 
! Aktionen zur Verfügung, das können die Gegner aller- 
"jjjjl dings auch und versuchen sich dementsprechend zu weh - 
ijllj'l ren. Mit meterhohen Sprüngen und gemeinen Tritten ge- 
!,j!! j! gen jedes sich bietende Ziel wird da um den Sieg gekämpft. 
nijjn Die doch recht lustig gemachte Spielhandlung trägt unge - 
mein zum Gefallen des Spieles bei.das auch nach mehr¬ 
maligem Einladen immer wieder Spaß macht. 

]|/ll 

THE WAV OF THE TIGER: Auch hier geht es um Karate 
11,11,11 und die verwandten fernöstlichen Kampfkünste. Im Ge- 
l ||![||| gensatz zu YIE AR nimmt sich THE WAY allerdings um 
11,11,11 einiges ernster. In Disziplinen wie Stabfechten, 
ilüilü Schwertkampf oder der einfachen Selbstverteidigung 
ohne Waffen steht man hier Gegnern gegenüber, die weni- 
,, n|| ger zum Lachen denn zum Fürchten sind. Gräuliche 
jlljjjj Kobolde mit langen Messern oder wilde, fast unverwund - 
bare Nashornmenschen stellen sich einem weiteren Vor- 
iQ dringen in den Weg. 

E Von der Grafik her ist THE WAY sicherlich das am besten 
jjJ!;! 1 gelungene Martial Arts-Spiel, das es für den Schneider 
überhaupt gibt. Das Spiel findet in einem dreifach ge- 



i|||Vj| The Devils Crown 


scrollten Szenario statt. Das heißt, daß sich der Vor¬ 
dergrund. die Mitte des Bildes und der Hintergrund unab¬ 
hängig voneinander bewegen. Daß dem Programmierer 
eher eine Mischung aus Kung Fu und Fantasy vor¬ 
schwebte, wird sehr schnell klar. Soundmäßig ist auch eini¬ 
ges zu dem Programm zu bemerken: ein kleines, richtig 
fernöstlich klingendes Musikstück ist in das Spiel mit ein¬ 
gebaut worden, das allerdings nur ertönt, während das 
Menue auf dem Monitor zu sehen ist. Während des 
eigentlichen Spieles sind dann nur die obligatorischen 
Kampfgerä'usche zu hören. Trotzdem ist THE WAY 
sicherlich eines der besten Karatespiele überhaupt. 


Arcaden Abenteuer 


I HE DEVILS CROWN : Nicht nur die Sektion der einfa¬ 
chen Textabenteuer befindet sich derzeit rapide auf dem 
Vormarsch. Auch der kleine Bruder, die Arcadcn- 
Adventures erfreuen sich immer größerer Beliebtheit beim 
Publikum. Einer der farbigsten Vertreter dieses Genres ist 
DEVILS CROWN.In diesem Spiel hat der Spieler die Auf- 
gabe das Wrack eines gesunkenen Schiffes zu erkunden. 
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Obsidian 


Im Inneren dieses Wracks treiben sich allerdings immer¬ 
noch. wohl aufgrund diverser Flüche, die toten Piraten 
herum, und versuchen, dem Spieler, der das Wrack zu er¬ 
kunden sucht, das Leben schwer zu machen. Das Innere 
des alten Schilfes besteht aus einer Vielzahl verschiedener 
Räume, die in einer durchschnittlich guten, aber manch¬ 
mal recht interessant gemachten, Farbgrafik dargestelli 
werden. Manche der Türen sind verschlossen und können 
erst unter Zuhilfenahme bestimmter Gegenstände 
geöffnet werden. In anderen Räumen ist es stockdunkel 
und erst eine mitgebrachte Lampe macht das Passieren 
des Zimmers möglich. Fazit: Ein gut gemachtes Arcaden - 
Abenteuer, das zwar nicht zur Elite des Genres zählt, aber 
durch seine saubere und klare Machart zu überzeugen 
versteht. 


OBSIDIAN: Wie schon bei anderen Spielen vorher, wurde 
für OBSIDIAN ein ausgehöhlter Asteroid gewählt. Im 
Inneren dieses kosmischen Gesteinsbrockens ist ein gan¬ 
zes wissenschaftliches Institut errichtet worden, dessen 
Aufgabe es sein sollte, ein Schwarzes Loch zu studieren. 
Ein Defekt an den Antriebsaggregaten droht das ganze 
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Chimera 

Projekt scheitern zu lassen. Ein einzelner Mann muß sich 
in den Asteroiden begeben und dort alle ausgeschalteten 
Anlagen wieder in Betrieb setzen. Bedauerlicherweise 
hat der Held des Spieles vergessen, sich die einzelnen Aktio • 
neu, die zur Wieder-Inbelriebnahme notwendig sind, er¬ 
läutern zu lassen. Durch die unmittelbare Nähe des 
Schwarzen Loches ist an eine Funkverbindung nicht zu 
denken, also muß der Held nun ganz, auf sich alleine ge¬ 
stellt herausbekommen, wo was womit ein- oder ausge- 
schaltet wird. 

OBSIDIAN zeigt recht deutlich .welche qualitativ hoch¬ 
wertigen Grafiken auf den CPC's möglich sind. Vom 
Sound her liegt die Sache leider, wie so oft. im Argen. Denn 
das, was da aus dem Lautsprecher des CPC's quillt, ist fast 
gar nichts, man erschrickt regelrecht .wenn wirklich ein¬ 
mal ein Geräusch ertönt. Aber ansonsten kann das Spiel 
weiterempfohlen werden. 

CHIMERA: Das Ultimate nicht das einzige Softwarehaus 
ist.das überdas notwendige Know How verfügt, Spiele mit 
3D-Touch zu programtniern, wurde spätestens mit CHI¬ 
MERA klar. Erstaunlich ist auch.daß ein so gut gelunge¬ 
nes Spiel unter einem Budget Label vertrieben wird. Die 
Spielhandlung dreht sich um ein extraterrertrisches 
Raumschiff, das plötzlich von irgendwoher in unser 
heimatliches Sonnensystem eindringt. Untersuchungen 
ergeben, daß das fremde Schiff auf die Erde zu stürzen 
droht. Es muß also etwas unternommen werden. 


Ein einzelner Mann dringt in das Innere des Geisterschif¬ 
fes ein und versucht, die schiffseigene Selbstzerstörungs¬ 
anlage in Betrieb zu setzen .Wie bereits erwähnt,erscheint 
CHIMERA auf dem Screen in einem gefälligen 3D- 
Outfit. 


Das wesentliche Spielmoment ist hier das Einsammeln | (lllll | 
und Kombinieren herumliegender Gegenstände.Wie so 
oft. ist auch hier der Sound so schlecht wie die Grafik gut l !|; ll |j 
ist. Zu bemerken wäre allerdings noch, daß CHIMERA jjjjjjj! 
nicht gerade eines der leichtesten Spiele seiner Art ist. "jlllj 1 

i! M j 1 

BATMAN: Da wir schon einmal bei den Spielen, die sich 
im 3D-Gewand präsentieren, sind, machen wir sogleich 
mit einem ähnlichen Spiel weiter. "Hl 

r illlllll 



Balman 


Zwar wird bei BATMAN ein wenig mehr Wert auf das 
Arcaden-Moment gelegt, aber trotzdem erfüllt es alle An¬ 
sprüche eines Abenteuers. BATMAN ist schon seit 
Jahrzehnten einer der beliebtesten amerikanischen 
Superhelden. Sein erstes Betätigungsfeld waren die 
Comics. Durch den großen Erfolg, den er dort hatte, wer¬ 
den auch die englischen Softwareproduzenten auf ihn auf¬ 
merksam. Danach war es nur noch eine Frage der Zeit, bis 
ein Computerspiel mit ihm als Hauptfigur realisiert 
wurde. 

Zwei seiner ältesten Widersacher sind ohne sein Wissen in 
die Bathöhle eingedrungen und haben seinen Side-Kick 
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jj:: Rohm,den Wunderboy entführt. Damit Batman ihnen 
nicht folgen kann, haben sie sein Auto, das Batmobil, in 
seine Einzelteile zerlegt und es überall in der Bathöhle ver- 
IJj![jü steckt. Um Robin zu retten, muß Batman zuerst einmal 
!||i! | sein Auto wieder zusammensetzen. Mit über 150 verschie- 
jjjjjjil denen Räumen ist BATMAN ein Spiel mit einer recht 
mm' großen Spielfläche. Vom Schwierigkeitsgrad her läßt sich 
i|ij[j! sagen, daß es zu Beginn des Spieles recht einfach ist, aber 
!,|!!| je tiefer man in die Bathöhle eindringt, desto schwieriger 
mim wird es. Alles in allem ein spannendes und gut gemachtes 
Jl "' Spiel. 


ülJJI 1 MOVIE: Qualitativ mindestens ebensogut wie Batman, ist 
MOVIE. Ein Spiel, das auch 3D-Grafiken verwendet, al- 
11,11,11 lerdings in einer recht eigenwilligen Art und Weise. Denn 
jjjjÜJI hier wird weniger mit Vollflächen gearbeitet, sondern mit 
eher vectorartigen Linien, durch die die Außenwände der 
i\X Räume dargestellt werden. 
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Die Objekte, die sich in den einzelnen Räumen befinden, 
sind mit viel Liebe zum Detail erstellt worden. Überhaupt 
ist die Grafik von MOVIE absolut gelungen; stellenweise 
glaubt man weniger an einem Computerspiel zu sitzen, 
sondern eher sich einen Comicstrip anzusehen. Die Story, 
um die es hierbei geht, ist ein hochkarätiger Krimi, in dem 
ein Privatdetektiv den Auftrag erhält, die Zwillingsschwe¬ 
ster eines Gangsterliebchens zu suchen. Allerdings ist der 



Fairlight 


Freund der Gangsterbraut einer der gefährlichsten Ver¬ 
brecher der Stadt. So hat denn auch unser Privater alle 
Hände voll zu tun, heil aus der ganzen Sache herauszu¬ 
kommen. 

FAIRLIGHT: Über die tollen 3D-Grafiken dieses Spieles 
erzähle ich Ihnen am besten erst gar nichts. Sehen Sie sich 
das Bildschirmtoto dazu an, und Sie wissen sofort, was 
Sie erwartet. 


Abgesehen von seiner edlen Grafik ist das sehr ausgeprägte 
Abenteuermoment dieses Spieles erwähnenswert. Durch 
eine gewaltige Auseinandersetzung der Mächte von Ord¬ 
nung und Chaos ist das Licht der Sonne erloschen. Das 
Land von Fairlight lebt seither im andauernden Zwielicht. 
Allerdings lebt ein Magier, der bei diesem Kampfeine we¬ 
sentliche Rolle spielte, immer noch. 

Zwar liegt sein Körper in tiefen Schlaf versetzt in einem 
der Keller der Burg Avar, doch sein Geist ist wach und er 
kann ihn umherwandern lassen. So geleitet er einen jun¬ 
gen Mann in die Burg, die seil tausend Jahren kein Mensch 
mehr betreten hat. Dort erzählt er ihm, daß der einzige 
Weg, die Burg wieder wohlbehalten zu verlassen, darin be¬ 
steht, ein verborgenes Zauberbuch zu finden. Mit diesem 
Zauberbuch wäre es dem Magier dann auch möglich, das 
Zwielicht aus dem Lande FAIRLIGHT zu verbannen 



Eden /Doomsdav Blues 


Dieses Spiel ist mit Sicherheit eines der besten Arcaden- 
Abenteuer, die es für den CPC gibt. Joyce-Besitzer wird 
sicherlich interessieren, daß es FAIRLIGHT auch in einer 
Joyce-Version gibt, die, von der Farbe einmal abgesehen, 
der CPC-Version um nichts nachsteht. 

EDEN / DOOMSDAV BLUES: Einen recht eigenen 3D- 
fouch haben die Programmierer diesem Spiel mit auf den 
Weg gegeben. Dieses mal wurde eine Perspektive mit 
Fluchtpunkt in der Bildschirmmitte gewählt. Das Sze¬ 
nario verjüngt sich perspektivisch nach hinten. 


Dm Handlung findet im Inneren eines menschenleeren 
Gefängnisses statt. Nachdem die Roboter alles Leben auf 
der Welt vernichtet haben, halten sie sich einen letzten 
Menschen als Schaustück. Irgendwann einmal hört dieser 
Mann das Schluchzen einerFrau. Als ersieh in einem ver¬ 
zweifelten Wutanfall gegen die Tür wirft, stellt er fest, daß 
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diese nicht verschlossen ist. Aber was soll er nun mit seiner 
wiedergewonnenen Freiheit anfangen? - Richtig. Er 
macht sich auf die Suche nach der Frau, deren Schluchzen 
er gehört hat. 

EDEN BLUES ist eines der ersten französischen Spiele, 
die zu uns nach Deutschland gekommen sind. Die neuar¬ 
tige Präsentation auf dem Bildschirm gibt diesem Spiel 
einen eigenen Reiz. 

Zusätzlich gewinnt das Spiel durch einen kleinen Kunst¬ 
griff an Attraktivität. Die Charakteristiken der Spielfigur 
werden durch Zahlwerte dargestellt, sinkt einer dieser 
Werte auf Null, bedeutet das den Tod des Männchens. 
Während des Spieles hat der Spieler allerdings immer wie¬ 
der die Möglichkeit, seine Werte mittels gefundener Ge¬ 
genstände. wie etwa Weinflaschen, aufzustocken. 

Auf jeden Fall gehört EDEN BLUES zur Oberliga der 
CPC-Spiele. 

SORCF.RY: Ein Spiel, über das man selbst bei nüchterner 
Betrachtung ins Schwärmen kommen kann. Was hierauf 
dem Monitor stattfindet, ist allererste Obersahne. Die 
Spielstory rankt sich um einen Zauberer, der seine von 
einem böswilligen Konkurrenten gefangengehaltenen 
Schüler befreien muß. Dazu muß er allerdings zuerst ein¬ 
mal den jeweils richtigen Gegenstand einsammeln. 

Ein Zeitlimit, das durch ein langsam verschwindendes 
Buch symbolisiert wird, macht aus dem Spiel ein Rennen 
gegen die Zeit. In Burgen. Schlössern, unterirdischen Ver¬ 
liesen und alten Ruinen, die allesamt in einer Wahnsinns 
Farbgrafik gemacht wurden, sind die benötigten Gegen¬ 
stände versteckt und werden zu allem Überfluß auch noch 
von ganzen Dämonenhorden bewacht. 

Nachdem sich SORCERY in seiner Kassettenversion als 
ein absoluter Hit entpuppt hat, ist das Programmiererteam, 
das auf den interessanten Namen "Gang of Five" hört, 
darangegangen, eine spezielle Disk-Version von dem 
Spiel zu erstellen. Aus dieser Disk-Version ist aber dann 
mehr geworden. 

Abgesehen davon, daß in den eigentlichen Spielverlauf 
noch einige Extra-Räume integriert wurden, haben die 
Programmierer einen zusätzlichen Bereich eingebaut, in 
den man gelangt, nachdem alle Zauberlehrlinge befreit 
wurden. In dieser zusätzlichen Sektion kommt es dann zur 



Sorcery 



Strangeloop 


großen Auseinandersetzung zwischen den Mächten des 
Guten und den Kräften der Finsternis. 


SORCERY ist ein absoluter Klassiker für die CPC's, 
obwohl es nun schon fast ein Jahr auf dem Buckel hat. 
sollte sich jeder Spieler, der es noch nicht sein Eigen nen¬ 
nen kann, unbedingt zulegen. Um sich dann auch gleich 
von Anfang an in dem Labyrinth zurechtzufinden, sollten 
Sie auch die Seiten 41 bis 44 beachten: dort finden Sie eine 
detailreiche Karte von Sorcery. 

SrRANGELOOP: Daß die Gang of Five nach ihrem 
SORCERY-Erfolg nicht untätig geblieben ist. belegt das 
Spiel STRANGELOOP. 

Wieder einmal geht es um einen ausgehöhlten Asteroiden, 
in den eine automatische Fabrik hineingebaut wurde. 
Diese Fabrik produziert Arbeits- und Haushaltsroboter. 
Als plötzlich die große Zentralrechenanlage ausfällt, oder 
zumindest ein bißchen verrückt spielt, laufen nur noch 
Robbies mit falscher Programmierung vom Band. Das 
neue Programm macht aus den kleinen Helferlein eine 
Horde von mordlustigen Maschinen, die fortan überall 
auf der Welt ihr Unwesen treiben. Ein Zustand, der beho¬ 
ben werden muß. 


Wiedereinmal muß ein Selbstmordkandidat her. Er muß 
in die Fabrik eindringen und dort die zur Vernichtung des 
Zentralrechners notwendigen Gegenstände einsammeln. 
Zwar hat auch STRANGELOOP eine ganz passable 
Grafik, aber an die Qualitäten des Vorgängers kommt sie 
nicht heran: auch hat sich in punkto Spielgeschehen nicht 
besonders viel verändert. 

Gut ist STRANGELOOP allemal, aber ist man schon der 
stolze Besitzer einer SORCERY-Kopie. kann man sich 
STRANGELOOP getrost sparen. 

THREE WEEKS IN PARAD1SE: Dieses Spiel steht 
stellvertretend für die ganze Wally Week-Serie. Die Weck 
Familie, bestehend aus Wally, Wilma und little Herbert, 
macht Urlaub in der Südsee. Aber schon am ersten Tag 
passiert ein großes Malheur. Das Boot, das sie zu ihrem 
Hotel bringen sollte, setzt sie irrtümlicherweise auf einer 
anderen, immer noch von Kannibalen bewohnten Insel 
ab. Ruckzuck sind Herbert und Wilma in der Gewalt der 
Eingeborenen, die aus ihnen noch am selben Abend ein 
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jjüllü großes Festmahl machen wollen. Der arme Wally hat nun 
die Aufgabe, seine Lieben zu befreien, aber bis dahin ist 
noch ein langer Weg. 

ii.y 

ijjmj! Micro Gen, die Firma, die THREE WEEKS realisiert hat, 
m||ir scheint an der Week Familie einen Narren gefressen zu 
"jjjjl haben. Immerhin gibt es schon fünf verschiedene Spiele 
iljj«! um diese Chaostruppe. 

iliilli. 

T 

i» in Automania, Pyjamarama, Everyones a Wally, Herberts 
Dummy Run, und eben Three Weeks in Paradise. 

Von diesen fünf Spielen sind alle, abgesehen von Auto- 
JJljH mania, auch für die CPC’s zu haben. Diese vier gleichen 
»[Uli sich vom Spielgeschehen wie ein Ei dem anderen. Je- 
11,11,11 desmal gilt es ein, zwar immer anderes Endziel zu errei- 
jjjjj|; chen, aber der Weg, wie man an dieses Ziel kommt, unter- 
j[jjjj scheidet sich durch nichts. 

il!!lli! Wiederholt macht man sich auf die Suche nach Gegenstän¬ 
den, durch die man, eingesetzt an den richtigen Stellen, ein 
.. n|i Stückchen weiter kommt. 

Milli 

“5 Fazit: Grafik bunt und gefällig, Sound nicht oder nur 
ijjlJJli kaum auffindbar, Spielwitz: hält sich in Grenzen. Wen es 
1,:: interessiert, der sollte sich eines zulegen, und er wird 
jjiJNl sicherlich eine ganze Menge Spaß damit haben, aber sich 
dann auch noch ein weiteres zuzulegen, ist unnötig. 



Swords an Sorcery 


SWORDS AND SORCERY: Ein Arcaden-Adventure ganz 
anderer Machart stellt sich mit diesem Spiel vor. Von der 
Struktur her sehr eigenwillig aufgemacht, ist SWORDS 
AND SORCERY' eines der besten Spiele, die es in 1986 
gab. Interessant ist die Alt und Weise, wie das Spiel ge¬ 
steuert wird. Alle wesentlichen Aktionen werden über Me- 
nues angewählt und abgerufen. 

Die Geschichte, die diesem Spiel als Hintergrund dient, ist 
die abenteuerliche Suche nach einem Ausweg aus einer al¬ 
ten, labyrinthartig verwinkelten Grabstatt. Durch diese al¬ 
ten Katakomben führt der Weg des Helden an allen nur 
vorstellbaren Ungeheuern, Monstren und sonstigen 
unheimlichen Wesen vorbei. 

Die grafische Präsentation des Ganzen hat in dieser Form 
kein Beispiel. Der Monitor ist in verschiedene Windows 
eingeteilt, in denen alle für den Spieler zugänglichen 
Informationen abzulesen sind. In einem der Windows 
wird dann auch der jeweilige Ausblick, der sich dem Spie¬ 
ler gerade bietet, angezeigt. 

Die Monster und Widersacher werden dabei in einer ge¬ 
lungenen Grafik teilweise animiert dargestellt. Sound ist 
auch hier, wie so oft, ein absoluter Mangel. Aber obwohl es 
schade ist, daß sich diesbezüglich nichts regt, tut das dem 
Spielen keinen Abbruch. Prädikat: sehr unterhaltsam und 
gut gemacht. 



Heavy on (he Magick 


HEAVY' ON THE MAGICK: Dieses Spiel glänzt durch 
ein, auf seine Art und Weise, gelungenes Konzept. Auf¬ 
grund einer fehlerhaft gesprochenen Beschwörung, wird 
Axil, der Fähige, in die Gänge einer alten Burgruine ver¬ 
setzt. Dort wimmelt es, wie sollte es anders sein, von schier 
abscheulichen Wesen, denen dann auch nichts Besseres 
einfällt, als unserem kleinen Zauberer nachzustellen. Erst 
nachdem Axil ein altes Zauberbuch gefunden hat, ist er in 
der Lage, sich des unheimlichen Getiers zu erwehren. Eine 
Besonderheit dieses Spieles ist. daß nicht alle der herum¬ 
laufenden Monster von sich aus bösartig sind. Mit einigen 
kann man sogar eine Unterhaltung führen, bei der so man¬ 
che interessante Information zu Tage kommt. Einer der 
gesprächigsten Katakombenbewohner ist der baumlange 
Oger Apex. Er ist eine wahre Quelle brauchbarer Informa¬ 
tionen. Die Grafik ist zwar sehr grob, aber dafür ausge¬ 
zeichnet animiert. Zum guten Schluß möchte ich noch be¬ 
merken, daß HEAVY ON THE MAGICK eines der schön¬ 
sten, aber auch eines der schwersten Abenteuerspiele ist, 
die ich seit langem gesehen habe. 
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Project Future 


PROJEKT FUTURE: Die U.S.S. Future ist ein riesiges al¬ 
tes Cargoraumschiff. An Bord befinden sich tausende und 
abertausende Container mit Biomaterial. Als dieses Schiff 
nach langer interstellarer Reise zur Erde zurückkehrt, 
müssen die Kontrollstellen der irdischen Raumüberwa¬ 
chung feststellen, daß sich aus dem Biomaterial aufgrund 
der harten Strahlung, die im Weltraum vorherrscht, ganze 
Armeen von hirnlosen, aber dafür umso blutrünstigeren 
Mutanten entwickelt haben. 

Zu ihrem Entsetzen erkennt die Flugleitstelle, daß die 
eigentliche Programmierung der Future eine Landung auf 
der Erde vorsieht. Wenn das geschieht, wäre das eine echte 
Katastrophe. Die einzige Möglichkeit, die Gefahr zu ban¬ 
nen, besteht darin, die Future zu vernichten. Ein Mann 
muß sich an Bord begeben und dort die automatische 
Selbstvernichtung des Schiffes einschalten. 

Abgesehen von der mindestens schon hundert Male ver¬ 
wendeten Hintergrundstory bietet PROJEKT FUTURE 
auch sonst nicht viel Neues. Die manchmal unzulängliche 
Programmierung vergällt dem geneigten Spieler auch den 
letzten Spaß an diesem Programm. Das einzige, das 
Gremlin Graphics hierzu seiner Ehrenrettung Vorbringen 
kann, ist der Umstand, daß dies eines ihrer ersten Spiele 
für den CPC war. 

Ein Spiel also, das man sich lieber nicht zulegen sollte. 
FRANKIE GOES TO HOLLYWOOD: Seit langer Zeit 


liegt hier endlich mal wieder ein Spiel vor. daß sich von sei¬ 
ner Machart her wohltuend von den üblichen Arcaden- 
Abenteuern abhebt. Nach der gleichnamigen Popgruppe 
benannt, bemüht der Hersteller sich auch gar nicht erst 
lange mit der Konstruktion einer Hintergrundstory. Es 
geht darum, einer Unperson dabei zu helfen, zu 100% eine 
richtige Person zu werden. Dies geschieht durch das Ein¬ 
sammeln und Anwenden bestimmter Gegenstände. Auch !!!.'!»! 
liegt in den Häusern, die es zu durchwandern gilt, ein i l |;| i 'l 
Toter. Durch die Ermittlung des Täters kann der Mensch- !!■! 
werdung des Spielfigürchens ein weiterer Schub gegeben 
werden. il!!' 1 !' 

.. 

Hat der Spieler es dann geschafft, und die 100% erreicht, 
wartet eine weitere Aufgabe auf ihn. In einem unterir- »"'|| 
dischen Labyrinth muß der Pleasure Dome gefunden wer- 'llj'ljl 
den, um damit auch zum Ende des Spieles zu gelangen, y'lt 
Eine gute Grafik, eine noch bessere Spielhandlung,feine i|!||'li 
Musikuntermalung und noch einiges mehr, lassen mm|| 
FRANKIE weit über den Durchschnitt der übliche ülliil 1 
Soltware-Qualität hinauswachsen. Auch die Tatsache, 
daß niemand versucht hat das Spiel auf irgendeine Art !i!M! 
und Weise in ein am Ende doch nicht passendes Hand- 
lungsgerüst einzubauen, fällt hier wohltuend auf. 

Hl||lll 



--- - 

HARD HAT MAC: Ein echtes Wolkenkratzer-Schau- ' 
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|||[|| Stückchen hatte es sicher geben sollen; am Ende herausge¬ 
kommen ist ein Spiel, das man sich nur mit einem lachen - 
den und einem weinenden Auge ansehen kann. 


!]jl! j! Hart Hut Michael ist ein Bauarbeiter, der auf einer örtli- 
imÜi ! chen Großbaustelle für die Erstellung der Stahlträgergerü- 
mml ste verantwortlich ist. Er muß Bolzen einsetzen, fehlende 
i!J Teilstücke in die Trägerkonstruktion einfügen, und das 
!|j!!|! Ganze dann mit einem Preßlufthammer festballern, 
mm! Dabei macht er eine ganze Menge Radau, durch den sich 

1 . einige Nachbarn gestört fühlen und außerdem ruft der 

Lärm eine Truppe von Vandalen auf den Plan, die fortan 
Ij/Il über das Gerüst geistern und versuchen, Micky von dem- 
'""|j selben herunterzuwerfen. 

nmir 



jjjjjjj 1 HARD HAT MACK war das erste Programm der reno- 
iüjjji mierten Electronic Arts Programmierer, das von einem eng- 
lischen Programmiererteam für die CPC’s umgesetzt 
wurde. Zieht man Vergleiche zur Commodore-Version, 
ui, stellt der Anwender umgehend fest, daß die Umsetzung ge- 
i||||m lungen ist. HARD HAT MACK ist auf dem CPC minde- 
stens genauso schlecht wie das Original. Nein, nicht daß 
iQ das Spiel durch und durch übel wäre, das Konzept ist im 
Ä;!!; Grunde genommen ja auch nicht schlecht - aber das, was 
ii|J||il die Programmierer dann daraus gemacht haben, ist 
mm|| schlicht und ergreifend ein phantasie- und lieblos hin- 

lllllir 1 1 , t ~, 

geklatschtes Spiel. 

'iiiiii 1 


!|/|| Bruce Lee 


BRUCE LEE: Ah, das ist ein Spiel, über das ich gerne 
schreibe, denn, das gleich einmal vorweg, BRUCE LEE ist 
ein wirklich gutes Spiel, mit dem auch zwei Spieler ihre 
helle Freude haben können. Möglich macht das eine aus¬ 
geklügelte Zwei-Spieler-Option, auf die ich später noch 
einmal zurückkommen werde. Der Spieler schlüpft in die 
Rolle des leider verstorbenen Karate-Idols BRUCE LEE. 
In dieser Rolle hat er den Auftrag, in den Tempel einer 
bösen Sekte einzudringen und dort den finsteren Kult zu 
zerschlagen, indem er dem Oberbösewicht den Garaus 
macht. 

Doch um dies zu bewerkstelligen, muß Bruce sich erst ein¬ 
mal durch die verschiedensten Räume kämpfen,die von 
Ninjas und anderen Finsterlingen bewacht werden. Die 
bereits erwähnte Zwei-Spieler-Option läßt sich so einstel¬ 
len, daß der zweite Spieler, der normalerweise dasitzt und 
dem ersten Spieler dabei zusieht, wie er sich mit seinen Geg¬ 
nern herumschlägt, eben die Rolle einer dieser Widersa¬ 
cher übernimmt. 

Die Bewegungsmöglichkeiten entsprechen in etwa einem 
Karate-Spiel, aber das sehr ausgeprägte Laufen und Klet¬ 
tern hat BRUCE LEE dazu verholfen, hier in der Kate¬ 
gorie Jump and Run aufgenommen zu werden. 



Bounty Bob strikes back 


Ein Spiel, das auch bei längerem Spielen nichts von sei¬ 
nem Reiz verliert. 

BOUNTY BOB STRIKES BACK: Dies ist die langerwar¬ 
tete Fortsetzung zu MINER 2049. Bounty Bob muß sich 
nach einem Atomkrieg durch eine alte, verlassene Uran¬ 
mine kämpfen, die sich schon nach wenigen Metern als 
doch nicht so unbewohnt entpuppt. Hordenweise gibt es 
dort tödliche Mutanten, die unserem Bob dann auch 
sogleich ans Leben wollen. 

Außerdem hält sich Yukon Johran in diesem Bergwerk 
versteckt. Er ist BobsLeib-und Busenfeind. Die Jagdnach 
den begehrten Gegenständen und nach Yukon Johran 
führt Bob durch immer abenteuerlichere und gefährli¬ 
chere Stockwerke der Mine. 

Da es den Miner 2049 nicht für die Schneider Rechner gab, 
ist dies die erste Möglichkeit, sich zumindest diesen zwei¬ 
ten Teil des fast schon klassisch zu nennenden Plattform¬ 
dramas zu genießen. Wie im allgemeinen bei derartigen 


16 CPC 


3 '86 Sonderheft 








immni imiiiiim 


n iMiiiimmi i n uiiiMimi imimi mim miiimiMiiniMiii n 


..I llllll 


iimmiijfiiiiiiiiimmiiiiMimiiimii'Himimiiiii. 


■ > 11111111 > 111 * 11 ■ 111111 m i ■ 11 ■ i ■ ■ 111 • ■ ■ 1111»i ■ 


Spielen üblich, muß auch hier eine ganze Menge Ge¬ 
schicklichkeit bewiesen werden, um weiterzukommen. 
Um in den nächsten Level zu kommen, muß Bob erst alle 
Aufgaben erfüllen, die ihm in dem Level, in dem er sich 
gerade befindet, begegnen. Diese Aufgaben bestehen zu¬ 
meist einlach darin, alle Stellen des Gerüstes einmal zu 
betreten. 

BOUNTY BOB ist ein, von seiner Machart her klassisches 
Jump and Run Spiel, bei dem Geschicklichkeit und gutes 
Timing unumgänglich sind. Zwar kommt es hier meist 
nicht auf die Pixelgenauigkeit des Absprungs- bzw. Lan¬ 
depunktes an, um Bob springenderweise über das Gerüst 
zu lotsen, BOUNTY BOB deswegen gleich als ein leichtes 
Spiel zu bezeichnen, wäre falsch. Alles in allem ist das 
Spiel nicht schlecht gemacht, und der Freund guter 
Plattformspiele wird sicherlich seinen Spaß daran 
haben. 

BOMB JACK: Nachdem der Halbsuperheld BOMB JACK 
fast jedem, der sich ab und an einmal in eine Spielhalle 
begibt, ein Begriff sein sollte, ist die Firma Elite Systems 
darangegangen, die explosiven Abenteuer BOMB JACK's 
auch für diverse Heimcomputer, unter anderem auch für 
den CPC, zu realisieren. 



Bomb Jack 


Primär gilt es, Bomben, die überall im Bild herumliegen, zu 
entschärfen. Doch dabei versuchen einige unfreundliche 
Zeitgenossen unseren lieben Bomben Jakob zu behindern, 
oder ihm, wenn es ihnen gelingt, durch Berühren einfach 
eines seiner drei Leben auszublasen. 

Je weiter der Spieler die Scoreleiter hochklettert, desto 
schneller und aggressiver werden die kleinen Unholde. 
Teils hinderlich und teils von Nutzen, sind die verwinkelten 
Plattformen, über die Jack, der über eine enorme 
Sprungkraft verfügt, hüpfen muß, um an die brennenden 
Lunten der Bomben heranzukommen. 

Wie bei den reinen Arcadenspielen üblich, geht es hier 
hauptsächlich um einen guten Score, den der Spieler aber 
erst mit einer gehörigen Portion Geschicklichkeit 
erreichen kann. 

Die Steuerung ist ein kleines bißchen gewöhnungsbedürf¬ 
tig, macht aber schon nach kurzer Zeit keine Probleme 
mehr. Spielen kann man Bomb Jack ohne weiteres auch 
über längere Zeiträume, am meisten Spaß macht es, wenn 





Sweevo’s World ÜHÜJI 

IIIIIIII 


es mit mehreren Leuten gleichzeitig gespielt wird - eine "II 1 ;" 
solche Highscorejagd kann sich sehr unterhaltsam ge- ^' |l 11 
stalten. 


SWEEVO’S WORLD: Auf einem kleinen Planeten am jjjp 
Rande der Milchstraße existiert eine Rasse von kleinen !!ll!!l' 
Robotern, die durch die Bank hochintelligent sind. Nur 'l!!!!! 1 
der kleine Sweevo ist völlig aus der Art geschlagen, er ist fl!"!' 
nämlich strohdumm. Nachdem er durch so ziemlich jede ;|jjjj|| 
Prüfung der Roboterschule durchgefallen ist, gibt ihm !0 
sein Lehrer eine letzte Chance. Auf dem Planeten 
Odoretta hat sich eine Rasse von kleinen wilden Kobolden 
niedergelassen, und alles, was bisher tadellos funktio- ;;n;j|i 
nierte, versinkt nun im Chaos. ||'ll'|| 

'Mil» 

"lim 

Daß Sie SWEEVO’S WORLD hier unter den Jump and Run P'|| 
Spielen finden, liegt ganz einfach daran, daß neben der fl"!!! 
reinen Betätigung als Abenteuertüftler ein ganzes Stück y!j| 
Arcaden- und Sprunggeschick dazugehört, um hierbei auf 
einen grünen Zweig zu kommen. 


Die Grafik ist zweifelsohne von Ultimate inspiriert, aber ||i!!Üi 
nicht so gelungen in Szene gesetzt, wie das dort geschehen '\"Z 
ist. SWEEVO’S WORLD ist ein verdammt schweres Spiel. |[J' j 
Stellenweise sind dort exakt getimte und pixelgenau aus- j'jjj! j 
zuführende Sprünge notwendig, um an das gesteckte Ziel !!!!;, 
zu kommen. Abgesehen davon, daß die Motivation bei sol- Üülir 

iniilli 
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jjJJJj" chen, meist mißlingenden Aktionen auf der Strecke bleibt, 
ist SWEEYO'S WORLD ein Beispiel weniger gelungener 
Spiele, an dem der Spieler durchaus verzweifeln kann. 
Il.jl.ij 

!|ji!j|! BOULDER DASH: Rockford liebt Diamanten. Außerdem 
weiß er, wo eine ganze Menge von den Kleinodien herum- 
llmll liegen. Das Problem bei der Sache ist nur, daß die Höhle, 
iIin'Ii in der die Diamanten herumliegen, eine echt wackelige 
!|j]!|j| Angelegenheit ist. Stößt Rockford auch nur einmal an den 
iiijjii! falschen Stein, kann es ihm passieren, daß sich ein Fels- 
" 1,1 brocken löst und ihm auf den Kopf fällt. Damit ist Rock¬ 
ford dann auch eines seiner Leben los. 

]/ll 

•!!»| Außer den gefährlichen Felsen gibt es auch noch die son- 
jl.llJl derbarsten Wesen, die sich in dem Höhlensystem her- 
!ir umtreiben und auf Opfer warten. Aber Rockford ist cle- 
jjjjjj ver, er paßt die Untiere an den richtigen Stellen ab und läßt 
ilüllü ihnen Steine auf den Kopf fallen. Einige dieser Wesen ver¬ 
wandeln sich daraufhin in einen Berg Diamanten, andere 
l( 1111 hingegen lösen sich in Luft auf, wenn sie von einem der 
iijjmi Steine getroffen werden. 

ilhnii 
Hill 11 1 

JIHIli $o manche der 12 verschiedenen Level, die jeweils aus 
Uli;;;; einer sehr großen, gescrollten Spielfläche, die die Höhle, in 
11,11,11 der Rockford sich gerade befindet, als Querschnitt zeigt, ist 
!!"!! | eine echte Tüftelaufgabe für sich. Stellenweise gibt es nur 
IUI; einen einzigen gangbaren Weg, um ans Ziel, das heißt in 
: i|j;|j; den nächsten Level, zu kommen. 

1985 wurde BOULDER DASH von einer amerikanischen 


Computerzeitschrift zum Spiel des Jahres gewählt. Das 
hat es auch, ganz ehrlich, verdient. 

Inzwischen gibt es zwar schon zwei Fortsetzungen, die in 
der Machart dem ersten Spiel gleichen, aber das erste ist 
immer noch das beste. Ein echtes „EinsameTnseln- 
Spiel". 


Simulationen 


HANSE: Wirtschaftsspiele haben, spätestens seitdem es 
Monopoly gibt, einen festen Platz auf dem Spielemarkt. 
Und was würde sich besser dazu eignen, zu einem Compu¬ 
terspiel gemacht zu werden, als ein Spiel, bei dem es darum 
geht, Geschäfte, die haarscharf kalkuliert werden müssen, 
abzuschließen. Und ums Handeltreiben geht es bei 
HANSE dann auch im wesentlichen. 

Angesiedelt ist die Geschichte um das Jahr 1200n.Chr. in 
der wohlhabenden Hansestadt Lübeck. Als junger Ge¬ 
schäftsmann müssen Sie versuchen, durch geschickten 
Wareneinkauf und die ebenso wichtige Verschiffung der 
Güter, reich zu werden. Dabei ist ein gut geplantes Ver¬ 
schiffen der Güter ebenso wichtig, wie der günstige Ein¬ 
kaufgilt es doch herauszufinden, wo das gerade geladene 
Gut den besten Preis erzielt. Wer Waren hortet und in 
seine Lagerhäuser stellt, auf daß sie bald teurer werden, 
kann böse Überraschungen erleben. Ratten und Fäule wa¬ 
ren zu jenen Zeiten weit verbreitet. Wenn die Geschäfte 
einmal mit besonders harten Bandagen geführt werden 
müssen, dann besteht auch die Möglichkeit, einen Händel 
anzuzetteln, was in etwa einem klitzekleinen Krieg 
entspricht. 

Hanse ist wie ein Gesellschaftsspiel aufgebaut, an dem 
sich bis zu vier Spieler beteiligen können. Ein einzelner 
Spieler tritt gegen den Computer an. HANSE ist nicht 
schlecht gemacht, und bringt, wie sollte es anders sein, mit 
mehreren Spielern den meisten Spaß. 

Fazit 

Wie man sieht, ist 1986 ein sehr interessantes Jahr gewesen, 
und sicherlich werden Sie das eine oder andere Spiel in 
dieser Aufzählung vermissen. 

Gerne hätten wir Ihnen noch viel, viel mehr Spiele vorge¬ 
stellt, was leider allein aus technischen Gründen nicht 
möglich war. Trotzdem hoffe ich. daß Ihnen unser kleiner 
Streifzug durch die Softwareszene gefallen hat. 

(HS) 
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Adventures 
d Sa Creme de la 


wT ' 


Amerika im Jahre 2031. Tendenzen, 
die sich schon in unseren Tagen ab¬ 
zeichnen, haben sich bestätigt. Kri¬ 
minalität und soziale Ungerechtig¬ 
keit fanden kein Ende, vielmehr ha¬ 
ben sie sich noch weiter verschlim¬ 
mert und sind für die Betroffenen fast 
unerträglich geworden. Rassismus 
und Kriegshetzerei befinden sich auf 
dem Vormarsch. In den Vereinigten 
Staaten gibt es ganze Landstriche, in 
denen die Armut immer mehr um sich 
greift. Auch der verbannte Hungertod 
findet in den Staaten wieder Opfer, 
zumeist unter den Ärmsten und 
Schwächsten. Anderswo auf der Welt 
sieht es nicht viel besser aus, eher 
sogar noch schlimmer. 

In den Entwicklungsländern hat 
durch anhaltende Wasserknappheit 
die schlimmste Hungerkatastrophe 
der letzten zweihundert Jahre einge¬ 
setzt. Die Situation steuert unauf¬ 
haltsam in Richtung einer globalen 
Katastrophe. 

Wieder Amerika des Jahres 2031, 


Rockville, Dakota. Eine kleine Stadt, 
die hauptsächlich durch das ganz in 
der Nähe liegende Mount Rushmore 
Nationaldenkmal bekannt wurde. In 
dieser Stadt hat die PRISM Pro¬ 
jektgruppe ihr Domizil aufgeschla¬ 
gen. PRISM ist eine Großrechenan¬ 
lage, die speziell für Simulationsmo¬ 
delle entwickelt wurde. Die brisante 
Situation, in der sich Amerika und 
der Rest der Welt befindet, ist der Wis¬ 
senschaft kein Geheimnis geblieben. 
Mit PRISM sollen mögliche Maß¬ 
nahmen. die alles wieder zum Guten 
wenden sollen, mittels der Rechenan¬ 
lage simuliert und analysiert werden. 
Zu diesem Zwecke wurde PRISM 
entwickelt. Aber PRISM ist eigentlich 
nicht nur ein Rechner, der Situatio¬ 
nen und mögliche Entwicklungen 
simulieren kann, sondern beherbergt 
ebenfalls eine Persönlichkeit, die 
eigentlich ihrerseits nichts anderes 
als ein besonderes Programm ist, ein 
Programm, das denken, fühlen und 
überlegen kann. Sozusagen eine hun¬ 


dertprozentige künstliche Intelli¬ 
genz, die mit einer solchen Akribie 
entworfen wurde, daß sie sich selbst 
zwar darüber im klaren ist, daß sie 
eigentlich ein Rechner ist, sich selbst 
aber trotzdem als ein Individuum 
fühlt. 

Dieses digitale Wesen ist eine der we¬ 
sentlichen Komponenten des PRISM- 
Programmes. Während auf einer an¬ 
deren Anlage die Welt nach einer 
durchgreifenden politischen Maß¬ 
nahme simuliert wird, linkt sich die 
Persönlichkeitssimulation in das so 
entstandene Szenario ein. Seine Auf¬ 
gabe dort ist es, wesentliche Vorgänge 
aufzuzeichnen - zum Beispiel eine 
schiedlichsten Neuigkeiten zurück¬ 
zugreifen. Der Spieler, der sich 
’ AMFV " zum ersten Male anschaut, 
wird von der Vielzahl der verschiede¬ 
nen Betriebsmodi sicherlich ein 
wenig verwirrt sein. Mir ging es da 
nicht viel anders. Aber es ist schon 
eine echte Umstellung vom Leben, 
Denken und Fühlen eines einfachen 
Menschen auf die inmobile Existenz- 
ebene und die dementsprechend 
unterschiedliche Seelenlandschaft 
einer denkenden Maschine. 

Ebenfalls interessant sind die Give- 
aways, die üblicherweise jeder Info- 
com-Spielpackung beiliegen, und ob¬ 
wohl es sich immer nur um interessant 
gestaltete Kleinigkeiten handelt, sind 
diese immer ein wesentlicher Bestand¬ 
teil des eigentlichen Spiels. Bei 
"AMVF” stehen dem Spieler ein 
Stadtplan von Rockville Dakota, ein 
Werbekugelschreiber einer örtlichen 
Skycar-Vermietung, und eine, wie eine 
Rechenscheibe angelegte PRISM-Co- 
dekarte zur Verfügung. 

Der Stadtplan erleichtert die Orien¬ 
tierung während der eigentlichen 
Simulationsphase ungemein. Die 
PRISM-Codekarte dient zur Ermitt¬ 
lung des jeweils aktuellen Zugangs¬ 
codes für eine Simulation. Der 
eigentliche Zweck dieser Karte, läßt 
sich erst erkennen, wenn man wei ß. 
daß Infocom-Adventures in der Regel 
nicht geschützt sind, sich im Grunde 
genommen also problemlos kopieren 
lassen. Eine solche Kopie ist auch ta¬ 
dellos lauffähig, aber ohne die Code- 
carte nicht spielbar. Denn bereits 
beim ersten Einklinken in eine Simu¬ 
lation erwarten die Sicherheitssy¬ 
steme von PRISM (und damit 
Infocom) die Eingabe eines Codes, 
der sich nur mittels der Karte heraus¬ 
finden läßt. Und auch den hartgesot¬ 
tensten Schwarzkopierem sei sogleich 
der Wind aus den Segeln genommen 
- die beschriebene Karte läßt sich 
auch mit dem besten Fotokopierer 
nicht duplizieren. 
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Während "A Mind forever Voiaging" 
eines der neuesten Infocom-Produkte 
ist und in einer feinen Aufmachung 
und Ausführung in die Hände des 
Spielers gelangt, möchte ich Ihnen 
hier nun die Spiele vorstellen, die im 
wesentlichen den guten Namen der 
Infocom-Leute begründet haben. 

Zu einer Zeit als alle Hersteller - 
koste es was es wolle - versuchten, alle 
ihre Spiele und Adventures mit 
Grafik zu versehen, um auf diese Art 
und Weise in der Anwendergunst zu 
Gemeinderatssitzung, oder ein Ge¬ 
spräch mit einem Priester. Anhand 
dieser Aufzeichnungen und deren 
Analyse, gedenken die Wissen¬ 
schaftlereinen möglichen gangbaren 
Weg aus der Misere zu finden. Daß 
dies nicht nur in Bezug auf Techno¬ 
logie und Programmierung einiges 
an Problemen aufwirft, stellt sich her¬ 
aus, als ein konservativer Senator 
versucht, das PRISM-Projekt zu stop¬ 
pen. Er verteufelt in seinen Reden die 
Arbeit der Wissenschaftler und es ge¬ 
lingt ihm, auf diese Art und Weise ein 
Stimmungsklima zu schaffen, in dem 
die Arbeit für das PRISM-Team fast 
unmöglich wird. Die einzige Möglich¬ 


keit, dieser Kampfansage zu begeg¬ 
nen, ist das schnelle Erzielen von 
handfesten Erfolgen. 

Dies ist in groben Zügen die Hand¬ 
lung eines der neueren Infocom 
Adventures. Sollten Sie sich schon 
das eine oder andere Mal mit einem 
Abenteuer beschäftigt haben, wird 
Ihnen sicherlich aufgefallen sein,daß 
die Story, auf die dieses Spiel aufbaut, 
mehr als unüblich für das Genre ist. 
Ranken sich die Storylines üblicher¬ 
weise um entführte Prinzessinen oder 
verborgene Schätze, erinnert ”A 
Mind forever Voyaging” eher an 
Orwell’s 1984 oder Huxleys "Schöne 
neue Welt". Zweifelsohne fühlt sich 
"AMFV" in dieser Gesellschaft recht 
wohl, denn erklärtes Ziel der 
Programmierer war es, eine Social 
Fiction Story in der Infocom eigenen 
Art und Weise in ein interaktives 
Adventure einzubauen. 

Auch dieses Adventure zeichnet sich 
durch die außerordentlich hohe Qua¬ 
lität der Texte aus, aber das gehört bei 
Infocom ja fast schon zum guten Ton. 
Aber trotzdem ist es immer wieder er¬ 
staunlich, was dem Spieler in den 
Infocom-Welten alles begegnen und 
passieren kann. Im vorliegenden 
Falle ist es gelungen, die pessimisti¬ 
sche Stimmung, die überall vor¬ 


herrscht, hervorragend darzustellen. 
Der Spieler, der sich mit diesem 
Programm beschäftigt, findet sich 
unversehens in der Rolle der PRISM- 
Persönlichkeit wieder. Da diese We¬ 
senseinheit, wie beschrieben, ledig¬ 
lich eine Computersimulation ist, 
kann sie sich natürlich nicht frei be¬ 
wegen wie ein normaler Mensch, 
zumindest nicht außerhalb der Simu¬ 
lationen. Zwar hat das PRISM- 
Bewußtsein Zugang zu allen Video¬ 
kanälen des Institutes, aber Informa¬ 
tionen über Vorgänge au ßerhalb des 
Gebäudes sind ihm nur über die ver¬ 
schiedenen Netzwerkrechner zugäng¬ 
lich, an die es angeschlossen ist. So 
besteht die Möglichkeit, vom Wetter 
bis zu den Nachrichten, auf die unter¬ 
steigen, bewiesen die maßgeblichen 
Leute bei Infocom einigen Mut, und 
entschlossen sich dazu, den allgemei¬ 
nen Markttendenzen zum Trotze, 
ihre geplanten Spiele als reine Text- 
adventures zu verwirklichen. 

Von vorneherein war klar, daß, wenn 
man schon auf die verkaufsträchtige 
Grafik verzichtet, das Programm an 
sich bis ins letzte Detail stimmig und 
intelligent durchdacht sein mußte, 
um damit zu landen.Da sich zu die¬ 
sem Zeitpunkt die Fantasywelle ge¬ 
rade auf ihrem Höhepunkt befand, 
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gab cs auch kein langes Federlesen 
lim das Thema des Spieles. Etwas Fan¬ 
tasyartiges mußte es schon sein. Es 
wurde begonnen einen Plot auszuar¬ 
beiten, der sich dafür eignete, in ein 
Abenteuerspiel umgesetzt zu werden, 
und nach und nach nahm die Ge¬ 
schichte Gestalt an. 

Angesiedelt wurde die Story in einem 
unglaublich großen unterirdischen 
Gängesystem, dem großen Unter¬ 
grund-Königreich. Der Ursprung 
dieses Tunnelimperiums liegt sicher¬ 
lich auch daran, daß sich ein Aben¬ 
teuerspiel in den fest umrissenen 
Örtlichkeiten eines Höhlensystems 
um einiges besser ansiedeln läßt, als 
eine „Wald und Wiesen Story”, bei 
der nach keiner Seite eine Grenze ist, 
die dem Spieler vermittelt, daß es in 
dieser Richtung nichts Interessantes 
mehr zu erkunden gibt.Ein Umstand, 
der bei so manchem anderen Adven- 
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ture-Spiel bisweilen ein wenig sauer 
aufstößt. 

Der Hintergrund der Story rankt sich 
im wesentlichen um die Entstehung 
dieses großen Untergrund-Königrei¬ 
ches, das ein einigermaßen verrückter 
König, nachdem er ein ähnliches 


um!!! Reich, allerdings in einem natürli- 
""chen Höhlensystem errichtet, gese¬ 
hen hat, durch seine Architekten und 
'liil'li Steinmetze in einen großen Berg 
jm!i|j schlagen ließ. Als er dann allerdings 
iillllll mit seinen Untertanen in sein neues 
jjjjjjj 1 Reich umziehen wollte, weigerten 
Eli sich die meisten von vorneherein, 
ilüllü und die, die es erst einmal ausprobie¬ 


ren wollten, ließen es schnell bleiben 
! n|| und suchten das Weite. So kam es, 
i|jü!n daß sich das große Untergrundim- 
perium nach und nach selbst entvöl- 
lllllll, kerte, und schon bald lebten nur noch 
der König und seine engsten Vertrau- 
jlill.ll ten in den dunklen Gewölben. Zu 
dem Zeitpunkt, an dem die eigentli- 
jjjjjj;; che Spielhandlung beginnt, sind 
'i|;;jj diese Ereignisse schon lange zur Ge¬ 
schichte geworden, über die nur noch 
das eine oder andere Schulbuch zu 
,Ml, berichten weiß. 


llllllll 

llllllll 

J^jj Sieht man sich ZORK I einmal ge- 
11 , 11,11 nauer an, wird schnell klar, daß die 
jjjljj" Programmierer und Designer von 
Infocom sich die ganze Angelegen¬ 
heit sehr genau überlegt haben. We- 
sentlicher Schwerpunkt lag hierbei 
ll'ljjj zweifelsohne auf der Erstellung der 
Texte, die dem Spieler im Laufe sei- 
ilüllü uer Aktionen via Monitor präsentiert 
'iüll! werden. 

I'IIIh! Deutlich tritt hier auch erstmals der 
IjllJjj unnacnahmliche Infocom-Witz zu 
|j,'y Tage, über den man allenthalben 
'jil!'" stolpert, wenn man sich an die Erkun - 
jjl'j düng des Höhlensystem macht. So 


steuert bereits die gedruckte Einlei¬ 
tung eine recht humorvolle Erklä¬ 
rung lür den Bau des Untergrundim- 
perums bei. Das sich der verrückte 
König am Anfang seiner Karriere 
sehr für die Kriegskunst interessierte 
und auch noch ein wenigeroberungs - 
lüstern war, überfiel er alle seine 
Nachbarkönigreiche und eroberte 
dieselben.Dabei fielen ihm auch die 
Corn Flakes Minen einer benachbar¬ 
ten Monarchie in die Hände. Leider 
mochte keiner seiner Untertanen Com 
Flakes, und er stand mit Tonnen des 
Getreideproduktes da, und wußte 
nicht, wohin mit dem Zeug. Auf der 
Suche nach einem geeigneten Absatz¬ 
markt für seine Corn Flakes segelte er 
aut der großen See die Kreuz und die 
Quer. Auf einer dieser Fahrten ent¬ 
deckte er dann auch das natürliche 
Untergrundimperium, das in derart 
nachhaltig beeinflußte. 

Während in ZORK I die Erkundung 
des Höhlenlabyrinthes im Vor¬ 
dergrund steht, wird der Handlungs¬ 
rahmen in ZORK II schon um einiges 
komplexer. Nun geht es darum, einen 
finsteren Zauberer unschädlich zu 
machen, der sich allerdings irgendwo 
in einem sehr abgelegenen und lange 
vergessenen Teil des unterirdischen 
Komplexes versteckt hält. Auf der 
Suche nach diesem Magier gelangt 
der Spieler durch Regionen, die bele¬ 
gen, daß sich der König, der das 
Untergrundimperium auf dem Gewis¬ 
sen hat, einige Gedanken um das 
Wohlergehen seiner Bevölkerung ge¬ 
macht hat. So gelangt man bei¬ 
spielsweise in eine gewaltige Ka¬ 
verne, die sich Grayslopes nennt. 
Dort war einmal, als es noch Bewoh¬ 
ner gab,das Wintersportzentrum des 
unterirdischen Königreiches. Wer 
sich mit den winterlichen Skivergnü- 
gungen nicht so recht anfreunden 
kann, dem sei der Bozbarland Ver¬ 
gnügungspark empfohlen. Dort fin¬ 
det der vergnügungssüchtige Aben¬ 
teurer über 200 verschiedene Attrak¬ 
tionen, die vom einfachen Glücks¬ 
spiel bis zur gestandenen Geister¬ 
bahn reichen. Allerdings sollte man 
sich den Besuch der Geisterbahn 
zweimal überlegen, denn die Attrak¬ 
tionen, die sich in diesem Gruselka¬ 
binett befinden, sind zumeist Dämo¬ 
nen und Ungeheuer in Natura.Eine 
Attraktion, die man, so verspricht es 
der Prospekt, niemals wieder vergißt, 
sofern man sie überlebt. 

Nach und nach bekommt der Spieler 
im Laufe von ZORK I + II immer 
wieder Hinweise auf eine eigenartige 
Person, dem sagenumwobenen Höh¬ 
lenmeister des Untergrundimperiums, 


der. obwohl so viele Jahre der tödli¬ 
chen Stille auf den Kavernen und 
Höhlen lasten, noch immer seine 
Ränke schmiedet und für die Erhal¬ 
tung des Imperiums sorgt. ZORK III 
handelt dann auch, wie Sie sich 
sicherlich schon gedacht haben, von 
der Suche und dem Unschädlichma- 
chcn dieses legendenumrankten 
Mannes. 

Das Meiste, was auf diesen Seiten 
über Infocom und deren Produkte ge¬ 
sagt wurde, trifft, natürlich mit klei¬ 
nen Einschränkungen, auch auf die 
anderen Infocom-Adventures zu. Die 
besondere Art wie das Spiel mittels 
einiger geschickt ausgewählter klei¬ 
ner Gegenstände einen realistischen 
Anspruch erhält. Gerade diese "Add 
Ones” vermitteln dem Spieler eine 
Authentizität,die in dieser Form von 
keinem anderen Adventure erreicht 
wird. 

Leider wares bisher so.daß alleCPC- 
Besitzer auf den Spaß ein solches 
interaktives Abenteuer zu spielen, 
verzichten mußten. Aber das soll an¬ 
ders werden. Seitdem Infocom durch 
Activison übernommen wurde, plante 
man eine Umsetzung für die CPC's, 
die, unter CP/M laufend, endlich 
auch auf den Amstrad-Rechnern de¬ 
ren Anwendern interaktive Aben¬ 
teuerfreuden bescheren sollen. Die 
Realisierung dieses mit nicht unbe¬ 
trächtlich viel Arbeit verbundenen 
Projektes, steht kurz vor ihrem Ab¬ 
schluß. Allen Abenteurern kann in 
diesem Zusammenhang nur empfoh¬ 
len werden, sich einmal an einem sol¬ 
chen Spiel zu versuchen. Möglicher¬ 
weise übernimmt Activision ja auch 
ein kleines Feature mittels dessen 
Infocom sich eine ganze Reihe guter 
Freunde gemacht hat. In den Ver¬ 
einigten Staaten gab es nämlich eine 
Zeit lang den sogenannten 'Starter 
Pack . Dies war ein Paket von drei 
verschiedenen Adventures, die zu 
einem ausgesprochen günstigen 
Preis unter die Leute gebracht wur¬ 
den. Eine für den Kunden wie auch 
für Infocom interessante Aktion, war 
es doch damit möglich, sich für ver¬ 
hältnismäßig wenig Geld mit der 
Abenteuerwelt der interaktiven No¬ 
vellen vertraut zu machen. Auch 
Infocom kommt bei diesem Geschäft 
nicht zu kurz, zeigt doch die Statistik 
das last neunzig Prozent der Anwen¬ 
der, die sich einmal ein Infocom 
Abenteuer zugelegt haben, sich 
danach noch weitere Spiele zulegen. 
Es verhält sich hier wirklich so, daß, 
hat man erst einmal Blut geleckt, so 
richtig auf den Geschmack kommt. 
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Wer sich schon einmal an einem Com¬ 
puterspiel versucht hat, kann sicher¬ 
lich, wie viele andere vor ihm schon, ein 
Lied über mangelhafte Bedienungsan¬ 
leitungen singen. Ob es nun die 
deutsche Übersetzung einer englischen 
Anleitung ist, oder eine, die erst gar 
nicht übersetzt wurde. Bisweilen kann 
man sich über derartige Übersetzun¬ 
gen, die meistens von englischen Mitar¬ 
beitern der einzelnen Softwarehäuser 
unter Zuhilfenahme eines Wörterbu¬ 
ches erstellt wurden, köstlich amüsie¬ 
ren. Die Grammatik, die im Zuge sol¬ 
cher Aktionen zu Papier gebracht wird, 
ist in den meisten Fällen schlicht und 
ergreifend als verheerend zu bezeich¬ 
nen. 

Trotzdem ist dieser Punkt nicht der 
drastischste Mangel, dem man in sol¬ 
chen Fällen begegnet. Denn selbst 
mit einer unmöglich geschriebenen 
Anleitung, die zumindest inhaltlich 
richtig ist, läßt sich mit ein wenig 
Phantasie arbeiten. Aber was, wenn 
von vornherein gar keine Anleitung 
beiliegt, oder sich die Anleitung als 
völlig verkehrt erweist? 

Dann fängt das Rätselraten an. Be¬ 
sonders hartnäckige Naturen werden 
sicherlich versuchen, sich im nach¬ 
hinein eine Bedienungsanleitung 
von dem Händler zu besorgen, bei 
dem sie auch das Spiel erwarben. Mit¬ 
unter führt dies auch zu beachtlichen 
Erfolgen, aber nicht immer ist der 
Händler in der Lage, einem solchen 
durchaus berechtigten Wunsch 
Rechnung zu tragen. Denn es kommt 
vor, daß ein und dasselbe Spiel in 
mehreren verschiedenen Verpackun¬ 
gen verkauft wird. 

So geschehen zum Beispiel bei einem 
neuen Melbourne House Produkt; 
die Kassetten-Version von Rock’n 
Wrestle lag uns in zwei verschiedenen 
Verpackungen zum Test vor. Zum 
einen in einem Doppel-Kassetten- 
Pack, zum anderen in einer kleinen, 
nur für eine Kassette ausgelegten Pla¬ 
stikhülle. Erstaunlicherweise lag der 
großen Packung lediglich das Titel in- 
lay bei, von einer Bedienungsanlei¬ 
tung nicht die Spur. In die kleinere 
Kassette hingegen hat der Hersteller 
dann mit Brachialgewalt noch eine 
Anleitung zugelegt. Die Hülle war da¬ 
durch so überfüllt, daß, um die Kassette 
und die Anleitung aus der Hülle zu 
bekommen, ein mittlerer Gewaltakt 


vonnöten war. Daß der großen Ver¬ 
packung keinerlei Bedienungshin¬ 
weise Beilagen, ist nicht, wie man mei¬ 
nen könnte, ein Einzelfall; viele unse¬ 
rer Leser erwarben dieses Spiel und 
wurden nach dem Öffnen den Miß¬ 
stand gewahr. 

Was bleibt dem frustrierten Anwen¬ 
der. nachdem die Ausschöpfung aller 
seiner Möglichkeiten, im nachhinein 
einer Anleitung habhaft zu werden, 
keinerlei Ergebnisse brachten? Er ist, 
wie auch zu anderen Gelegenheiten 
im Leben, auf sich selbst gestellt. 

Zu allererst sollte er das Programm 
einmal in den Rechner einladen, 
denn in einigen Fällen ist die Anlei¬ 
tung ein Bestandteil des Programmes 
selbst - ist dies nicht der Fall, sollte 
umgehend Papier und Bleistift ins 
Spiel gebracht werden. Unter Zuhil¬ 
fenahme der erwähnten Accessiors 
geht es jetzt daran, sich selbst die 
fehlende oder mißratene Anleitung 
zu erstellen. 

Liegen Papier und Bleistift (im 
Notfall kann auch auf einen Kugel¬ 
schreiber zurückgegriffen werden, 
Heizkörperpinsel und Deckenrollen 
sollten vermieden werden, sie haben 
in unserem Test nur sehr mangel¬ 
hafte Ergebnisse erbracht.) bereit, ist 
das Programm fehlerlos im Speicher 
des Rechners und läuft ohne Bean¬ 
standungen, kann mit der empieri- 
schen Erarbeitung des benötigten Pa¬ 
piers begonnen werden. 

Das Groß der Spielprogramme hat 
die Angewohnheit, sich zuallererst mit 
einem Titelbild zu melden. Dieses 
Titelbild sollte ohne Zögern auf etwa 
darin verborgene Hinweise unter¬ 
suchtwerden. Wenn Ihre Suche nach 
derartigen Mitteilungen von Erfolg 
gekrönt worden sein sollte, versuchen 
Sie sich zu vergegenwärtigen, was 
diese kryptischen Schriftzeichen be¬ 
deuten könnten. Sollte es der Fall 
sein, daß das Szenario, das sich vor 
Ihnen auf dem Monitor präsentiert, 
ein klassisches Beispiel für ein soge¬ 
nanntes Menue ist. erkunden Sie, 
notfalls unter Zuhilfenahme eines 
Wörterbuches, die Bedeutungen der 
einzelnen Menuepunkte. Im allge¬ 
meinen dienen derartige Menues 
zum Einstellen diverser Optionen, 
sollten Sie also bei Ihrer Suche nach 
einem derartigen Menue fündig ge¬ 
worden sein, können Sie nun damit 
anfangen, das Programm nach den 


von Ihnen gewünschten Gegebenhei¬ 
ten einzustellen. Im Zuge dieser An¬ 
passung sollte es Ihnen eigentlich 
nicht allzu schwer fallen, die von 
Ihnen gewünschte Steuerung (Ta¬ 
statur, Joystick. Fahrradlenker), und 
die Anzahl der Spieler (Single, 
Ehepaar, Fischerchöre) einzustellen. 
Des weiteren enthält ein solches 
Menue, meistens an dessen Ende 
plaziert, eine Option, mit der sich - oh 
Wunder - das eigentliche Spiel star¬ 
ten läßt. 

Sollte es sich um ein Spiel handeln, 
bei dem der Hersteller es vermieden 
hat. auf der Packung einige Szenen¬ 
fotos abzudrucken, kommt nun der 
große Moment, in dem sich erweist, 
wie schlecht das Programm nun wirk¬ 
lich ist. Ein Naturgesetz der Softwa¬ 
reszene besagt nämlich, daß minde¬ 
stens die Hälfte aller ehrlich erworbe¬ 
nen Programme einer Softwaresamm¬ 
lung schlecht oder zumindest nicht 
gerade sehenswert sind. 

Ein gutes Rezept für Personen, die 
sich ein neues Spiel erworben haben, 
welches sich als eines der weniger 
guten entpuppt: Eine Multiplikation 
der Begeisterungsfähigkeit, in Bezug 
auf ein schlechtes Spiel, hat ihrerseits 
eine subjektive Steigerung der Spiel¬ 
qualität zur Folge. Sollte auch das 
nicht wirken, so besteht immer noch 
die Möglichkeit, mit ein paar Bier 
nachzuhelfen, oder in ganz hoffnungs¬ 
losen Fällen, das Spiel ganz einfach in 
den Müll zu werfen. 

Nun, nachdem Sie den Schock, resul¬ 
tierend aus der Diskrepanz zwischen 
der Coverillustration und der Grafik 
des eigentlichen Spiels hoffentlich 
gut überstanden haben, gelangen Sie 
in das eigentliche Spiel. Hier erweist 
sich dann auch, um welche Art von 
Spiel es sich handelt. 

Testhalber sollten Sie an dieser Stelle 
einmal mit dem Joystick alle mögli¬ 
chen Bewegungen ausprobieren und 
gleichzeitig aufmerksam den Monitor 
beobachten, bewegt sich dort ein 
Objekt oder eine Figur simultan zu 
Ihren Joystickbewegungen, so läßt 
sich daraus schließen, daß dies die 
vom Spieler zu steuernde Figur ist. 
Bewegt das Männlein oder Öbjekt. 
oder was immer es sonst darstellen 
soll, sich in alle vier Himmelsrichtun¬ 
gen, legt das den Schluß nahe, daß es 
sich bei dem Spiel um eines mit 
einem Draufsicht-Szenario handelt. 
Marschiert der kleine Pixel-Paul al¬ 
lerdings lediglich nach links und 
rechts, bedeutet dies meistens, daß 
hier ein Querschnitt als Szenario 
dient. Betätigen Sie nun einmal kurz 
denFeuerknopf(nichtden am Feuer¬ 
zeug), springt das Bildschirmwesen 
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daraufhin in die Luft, so ist dies ein 
weiteres Indiz dafür, daß es sich hier 
um ein sogenanntes Jump & Run 
Spiel handelt. 


Jump and Run forever 

■jjljj» Seitdem weiland ein gewisser Manie 
jj'"'" Miner durch eine verschollene Mine 
!| JjljJ stolperte und Donkey Kong, seines 
Zeichens King Kong's kleiner Bru- 
l "" 1 der, dem armen Mario immer neue 
Fässer in den Weg warf, erfreut sich 
j]' 1 ']! diese Spielegattung eines mehr oder 
ijjjjjJ 1 weniger ungebrochenen Interesses, 
"jjjjj; Grundsätzliches Ziel solcher Spiele 
ist es, das Spielfigürchen durch ein 
| 'jjr mit den teuflischsten Tddesfallen ge- 
'würztes Gerüst zu manövrieren. 

^ Erschwert wird das ohnehin schon 
nicht leichte Vorankommen durch 
11 diverse umherfliegende oder mar¬ 
schierende Untiere, Gegenstände 
||,ll,|, oder andere Dinge, deren einzige Exi- 
!|ji!jj; Stenzberechtigung darin besteht, dem 
i„ü| Spieler das Leben so schwer wie mög- 
lieh zu machen. 

ili'üli An dieser Stelle kommt das Timing 
!|j!!|ji ins Spiel, denn meistens ist es bei sol- 
chen Spielen unmöglich, ohne das 
richtige Timing auch nur die erste der 
Plattformen oder Leitern zu errei- 
'ii|!'|i chen. In der Regel ist man dem Punkt, 
ü!!!|] an dem das Spiel beginnt oder in ein 
ll'jjl neues Bild eintritt, sicher. Die fliegen- 
!!!!j!" den Widersacher meiden diesen Be- 
llUlUj reich, aber auch in diesem Falle gilt: 
,lj;i|;; Ausnahmen bestätigen die Regel. 

Der Begriff „Timing” meint im genann- 
ten Zusammenhang, daß der Spieler 
, jii!;, den Moment auskundschaften muß, 
-!ül|; der am geeignetsten ist, um sich an 
den feststehenden und den bewegli- 
j|jj;j;; chen Hindernissen vorbeizustehlen, 

9.11.11 ohne dabei ein Leben zu verlieren. 
''!!!! j Dieses Timing wird in den meisten 
jjjib Fällen durch die unmöglichen Bewe- 

gungsrythmen der Widersacher be¬ 
stimmt. 

Diese Rythmen sind so angeordnet. 
Ji!^ | daß das Springen und Laufen bis auf 
jj""'' einen Pixel genau erfolgen muß. Ist 
!!"j die Spielfigur zu schnell oder zu lang- 

11.11.11 sam. hilft auch kein Glück mehr, es 
5 m]| 9 kommt unweigerlich zur Kollision 
iiiil'li und damit zum Verlust eines Lebens. 

Also, zuerst einmal alle Unholde 
genau beobachten, um auf diese Art 
II jj'jj und Weise die einzig gangbare Route 
ii',!. zu erkunden. 


!| i ! , || Die Arcaden-Tortur 

iiiiiii_ 

miiiH 

l!,ll,|| Ein entfernter Verwandter der Jump 
IjjjjJJj and Run Spiele ist das sogenannte 
l/|i Arcaden-Adventure. Diese sind in 


der Regel gut daran zu erkennen, daß 
sich das Bildschirmdisplay in der 
Draufsicht präsentiert. Da es in der 
Branche sozusagen üblich ist, ein 
Spiel mit einer kleinen Vorgeschichte 
zu versehen, und diese Geschichten 
in 99 % aller Fälle fast völlig identisch 
sind, möchte ich es nicht versäumen, 
Ihnen an dieser Stelle die Standard- 
Hintergrundstory der Arcaden-Ad- 
ventures zu erzählen. 

Es war einmal ein böser Zauberer 
(König, Priester, Limoverkäufer), 
dessen Herz sich am Anblick einer 
schönen Prinzessin (Burgfreulein, 
Jungfrau, Putzfrau) in Liebe entzün¬ 
dete. Allerdings gab es da noch einen 
tapferen Recken (Ritter. Prinz, Haus¬ 
meister), der schon seit einiger Zeit 
mit der schönen Maid verlobt war. 
und dem des Zauberers Ambitionen 
gar nicht gefielen. Auch unsere 
Heldin wies das Werben des Finster¬ 
lings ab. Daraufhin erzürnte dieser 
sich fürchterlich und entführte die 
Prinzessin auf seine schwarze Burg 
(Turm, Höhle, Trinkhalle). Das 
machte unseren Helden allerdings 
erst so richtig wütend und er brach 
auf, um dem Finsterling den Garaus 
zu machen. 

Dieser h atte sieh zu diesem Zeitpunkt 
bereits davon überzeugt, daß der 
Held auf dem Wege sei und lotst ihn 
in ein unterirdisches Labyrinth 
(Gruft, Keller, U-Bahnhof), um dort 
alle seine Monster (Ungeheuer, We¬ 
sen, Fans) auf ihn zu hetzen. 

Nun, soweit so gut, eigentlich wollte 
ich dieses Thema gar nicht so sehr 
vertiefen. Um bei der Story zu blei¬ 
ben, das eigentliche Spiel beginnt mit 
dem Eindringen des Helden in den 
unmittelbaren Machtbereich des 
Bösewichtes. Dort gilt es, eine uner¬ 
gründliche Vielfalt von Gängen und 
Zimmern, in denen sich, wie bereits 
erwähnt, die Untiere des Chef-Finster¬ 
lings herumtreiben, zu durchwan¬ 
dern. Diese Monstren lungern 
überall in den Gewölben herum und 
warten auf ihr Mittagessen - äh. par- 
don - den Helden, um ihn gebührend 
zu empfangen. 

Im wesentlichen fangen wir bei 
einem solchen Spiel ebenso an wie 
der Vorgang w-eiter oben bereits be¬ 
schrieben wurde. Ist das Menue mit 
all seinen Fährnissen und Klippen 
umschifft, beginnt auch hier das 
eigentliche Spiel. Ein grundsätzli¬ 
cher Unterschied wird schon in den 
Grundzügen klar. Während bei 
einem Jump and Run Spiel bereits eine 
Berührung mit einem Widersacher 
ausreicht, um eines seiner Leben zu 
verlieren, verhält es sich bei den 
Arcaden-Adventures meistens so. 


daß dem Helden lediglich ein Leben 
zur Verfügung steht. Dieses Leben 
wird durch sogenannte Lebenspunkte 
dargestellt, das heißt, jede Berührung 
mit einem Widersacher führt auf der 
Lebenspunkteskala zu einem Punkt¬ 
abzug, und ist man bei Null ange¬ 
langt. so ist damit auch das Spiel 
vorbei. 

In der Regel verhält es sich so. daß im 
Labyrinth verstreut immer wieder 
Gegenstände aultauchcn, deren Ein¬ 
sammeln eine Steigerung der Lebens¬ 
energie bewirkt. 

Timing ist bei dieser Art von Spiel 
zwar ebenso notwendig wie bei den 
Jump and Run Spielen, aber bei weitem 
kein so wesentliches Moment wie 
dort. Vielmehr kommt es hier darauf 
an, die kleinen, lebensspendenden 
Leckereien richtig einzuteilen und, 
was ganz besonders wichtig ist, sich 
nicht zu verirren. In solchen Fällen 
hat sich eine selbst angefertigte Karte 
stets als sehr nützlich erwiesen. In 
eine solche Karte sollten auch alle 
Gegenstände, die sich in den einzel¬ 
nen Räumen befinden, eingetragen 
werden. Auch sollten Sie nicht verges¬ 
sen anzumerken, ob die Gegenstände 
beim Aufnehmen positive oder nega¬ 
tive Auswirkungen haben. Sie werden 
feststellen, daß Sie sich, nachdem Sie 
die Karte erst einmal gezeichnet ha¬ 
ben. auch recht gut ohne diese klar 
kommen, alleine das Durchwandern 
und Aufzeichnen reicht aus, um sich 
alles Wesentliche genau zu merken. 
Und dies ist eine Grundvorausset¬ 
zung für eine 100 %-ige Lösung aller 
Probleme des Spieles. 

Aber noch ein anderes Moment unter¬ 
scheidet die Arcaden-Adventures von 
anderen Computerspielen, nämlich 
das gewisse Gegenstände oder Wege 
auf den ersten Blick nicht sichtbar 
sind. Den einzigen Tip den ich Ihnen 
in diesem Zusammenhang geben kann 
ist: Untersuchen Sie alles, nehmen 
Sie jeden Gegenstand auf, versuchen 
Sie herauszubekommen, ob er mit 
anderen Gegenständen zusammen 
eingesetzt werden muß. Sehen Sie 
sich jeden Raum auf das genaueste 
an. es besteht immer die Möglichkeit, 
daß ein ganz spezielles Ding an einen 
ganz speziellen Ort gebracht werden 
muß, und dort erst seine wahre 
Natur offenbart. 


Kung Fu, Catchen und Mikado 


Eine weitere Spielgattung findet ge¬ 
rade in den letzten Monaten immer 
mehr begeisterte Anhänger. Die soge¬ 
nannten Martial-Arts sind schon des 
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öfteren zum Thema von mehr oder 
weniger guten Spielen gemacht wor¬ 
den. Meist reicht es hier, den Compu¬ 
tergegner so heftig wie möglich aufs 
Haupt zu hauen, um ihn auf dem 
Boden der Computerarena nieder¬ 
zustrecken. 

Diese Spiele gibt es, obgleich der 
Spielgedanke noch recht neu ist, be¬ 
reits in den unterschiedlichsten Aus¬ 
führungen. Eines aber ist ihnen allen, 
ob Arena oder Urwald, gemein, sie 
sind mittels eines Joysticks ungemein 
leichter zu handhaben, als dies via 
Tastatur möglich wäre. Sollte dieser 
nicht vorhanden sein, bleibt Ihnen 
wohl oder übel nichts anderes übrig, 
als in den sauren Apfel zu beißen, 
und sich auf der Tastatur Knoten in 
den Fingern zu holen. 

Die Steuerung solcher Kampfsportsi¬ 
mulationen ist im Grunde genom¬ 
men recht simpel. Es stehen mehrere 
verschiedene Aktionen zur Verfü¬ 
gung, mit deren Hilfe der Spieler 
angreifen oder sich verteidigen 
kann. 

Der Joystickbenutzer, der hoffentlich 
schon das obligatorische Blatt Papier 
und einen Stift gut erreichbar neben 
dem Computer plaziert hat, kann die 
einzelnen Steuerungsmöglichkeiten 
im Grunde genommen recht einfach 
erkunden. Er bewegt den Stick ein¬ 
mal in jede mögliche Richtung (dabei 
sollten die Diagonalen nicht überse¬ 
hen werden), ist diese Prozedur abge¬ 
schlossen. wird sie einfach mit ge¬ 
drücktem Feuerknopf wiederholt. 
Beobachtet man im Laufe dieser 
Aktion seinen Bildschirmkämpfer 
genau und notiert sich sogleich, wel¬ 
che Verrenkung das Männchen an¬ 
läßlich welcher Joystickbewegung 
macht, ist man im Grunde hinterher 
um eine Bedienungsanleitung rei¬ 
cher. 


Sonst noch was? 


Sicherlich gibt es Spiele, die ohne An¬ 
leitung geliefert werden und selbst 
dem härtesten Tüftler auch nach 
Wochen noch ein komplettes Rätsel 
bleiben. Am eigenen Leibe mußte ich 
dies an dem komplett Menue- 
gesteuerten Adventure "Shadowfire" 
erleben. Dieses Spiel erreichte uns in 
einer Packung ohne Bedienungsan¬ 
leitung. Kein Problem, dachte ich so 
bei mir und lud das Spiel auch 
sogleich in den Rechner. Aber trotz 
längerer Anstrengung blieb mir in 
dieser Sache auch der geringste Er¬ 
folg verwehrt. Ich begann, ehrlich ge¬ 
sagt, schon an meinen Fähigkeiten 
zu zweifeln. 

Als dann einige Tage verspätet die 
Anleitung bei uns im Hause eintraf, 
entpuppte sich Shadowfire als das 
Spiel mit dem besten Kopierschutz 
überhaupt, denn selbst als ich die 
kleine Broschüre durchgelesen hatte, 
dauerte es immerhin noch fünf Stun¬ 
den. bis ich es dann endlich im Griff 
hatte und sagen konnte: „Jetzt hab 
ich’s kapiert." 

Ohne die Anleitung hätte ich mich 
sicherlich noch bis zum St. Nimmer¬ 
leinstag mit dem Spiel beschäftigen 
können, ohne auch nur die Spur von 
Verständnis für das, was sich da auf 
dem Monitor abspielte. 

Gut. Shadowfire ist ein Extremfall, 
aber auch bei Spielen, von denen 
man glaubt, sie wirklich durchschaut 
zu haben, wird man mitunter immer 
wieder überrascht. Spezielle Aktio¬ 
nen, die ohne Joystickeinsatz durch¬ 
geführt werden und das Betätigen 
einer bestimmten Tastenkombi¬ 
nation am Computer erfordern, las¬ 
sen sich nur durch Glück herausfm- 
den. Oder aber man findet einen 


Gleichgesinnten, der ebenfalls das 
betreffende Spiel erworben hat, aber 
mehr Glück als Sie hatte, und über 
das heißbegehrte Papier verfügt. Re¬ 
den Sie ihm gut zu, vielleicht^ läßt er 
mit sich reden und Sie dürfen sich 
eine Fotokopie machen. 


Over und aus 


Kaum eine andere Sparte Software 
kann mit einer derartigen Vielzahl 
von verschiedenen Produkten auf¬ 
warten. wie die Spieleindustrie. Ganz 
klar, daß ein solcher Ozean aus 
Unterhaltungssoftware tausenderlei 
verschiedene Facetten aufweist. Die 
bisher beschriebenen Genres sind, 
obgleich sie durchaus zu den vertre¬ 
terreichsten gehören, nur ein ver¬ 
schwindend kleiner Teil des Ganzen. 
Viele Spielarten, die unter den aben¬ 
teuerlichsten Spartenbezeichnungen 
bekannt sind, konnten hier keinen 
Platz finden. Die beschriebenen Me¬ 
thoden sind aber bis zu einem gewis¬ 
sen Grad auch auf sie anwendbar. 
Gerne hätte ich Ihnen auch zu diesen 
Spielen spezielle Vorgehensweisen 
dargelegt, allein der Platz fehlte. 

Den besten Tip aber habe ich mir bis 
zum Schluß aufgehoben. Melden Sie 
sich bei dem Händler, der Ihnen das 
Spiel verkauft hat. Teilen Sie ihm den 
Sachverhalt mit und bestehen Sie 
darauf, daß er sich darum kümmert, 
auch für Sie eine Anleitung zu organi¬ 
sieren. Aber vergessen Sie nicht, auch 
die Händler stellen die Spiele nicht 
selbst her, und sind somit genau wie 
Sie, auch der Willkür der Softwarein¬ 
dustrie ausgesetzt. 

Absichtlich hat er ihnen das fehlende 
Papier also sicherlich nicht aus der 
Packung entwendet. Versuchen Sie 
zusammen mit ihm das Problem zu 
lösen. Seien Sie ein emanzipierter 
Konsument. 
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Abenteuer ’86 


Das Spielen von Abenteuern ist auch in 
i|,|l < (l 1986 immer attraktiver geworden. 
•Ij Auch hat sich die Anzahl der angebote- 
!ll!!ni nen Spiele vervielfacht. 

IIII4III 

||jiiin 

'l/ll Zu absoluten Highlights gesellte sich al- 
lerdings auch so mancher echte Flop. 
Die Themen, die zumeist für Aben- 
,Hli|. teuerspiele herhalten müssen, haben 
ijjll'jj sich kaum verändert. Immer noch ste- 
'iinii' hen SF und Fantasv in der Spielergunst 
,111111] hoch im Kurse, aber es kommt auch 

jji. hier immer wieder vor, daß sich interes- 

ilJllli sante Spiele mit andersgearteten The- 
i|,|l'|i men beschäftigen - bisweilen erst 
jliijlH durch ihre von der Regel abweichenden 
j|»mi Spielhandlungen an Attraktivität ge¬ 
winnen und sich aus der grauen Softwa¬ 
remasse hervorheben. 

[|jj|j!! Eine der interessantesten Möglichkei- 
'lijjH! ten, Abenteuerspiele attraktiver zu ge- 
JüiJII stalten, ist die, in das Spiel interaktive 
"lür Charaktere einzubauen. 


Abenteuern interaktiv 


Imnli Das Programmieren von reinen Text- 
ÜjÜjJ! abenteuern ist, das kann so ziemlich 
ÜIÜll, jeder erfahrene Basic-Programmierer 
11,11.11 bestätigen, im Grunde genommen re- 
iIhIIh lativ einfach. So nimmt es auch nicht 
Wunder, daß sich viele Leute im Laufe 
'I Ji ihrer Programmierer-Karriere damit 
ÄU;; beschäftigen. 

min , 
in ml 1 

!j|j;;!| Die eigenartigste Eigenschaft solcher 
| Im 1 !! Basic-Abenteuer ist, daß sie zwar von 
Ü!Ü!! der Korrespondenz mit dem Spieler 
leben, die in der Geschichte auftre - 
JII'Ihi tenden Personen dies mit bis auf ein 
'Ml fast zum Gestammel abgespeckten 


Wortschatz allerdings nicht tun. Und 
damit sind wir bei einen Feature, auf 
das Basic-Abenteuer fast völlig ver¬ 
zichten müssen - interaktive Cha¬ 
raktere. 

Ein interaktiver Charakter, das ist bei¬ 
spielsweise Thorin im "Hobbit" - eine 
Figur, die vom Computer so gesteuert 
wird, daß beim Spieler der Eindruck 
entsteht, daß diese Person übereinen 
richtigen eigenen Willen verfügt. 
Wenn dieser Charakter, egal ob es 
sich nun um einen "Er" oder eine 
Sie" handelt, gut programmiert 
wurde, ist es dem Spieler möglich, 
sich via Keyboard mit dieser Person 
zu unterhalten. Sicherlich wird dieses 
Gespräch bei weitem nicht so wie 
eine Natura-Diskussionsrunde aus- 
fallen, trägt aber enorm zur At¬ 
mosphäre des Abenteuers bei. 

Egal ob es sich nun um ein einfaches 
selbsterstelltes Abenteuer oder um 
ein teures gekauftes handelt, solche 
Figuren erhöhen die Attraktivität des 
Spiels und die Motivation des 
Spielers. 

Unglücklicherweise sind die meisten 
Versuche, solche Charaktere in Pro¬ 
gramme mit einzubinden, eher schlecht 
als recht, oder werden, was nur zu oft 
vorkommt, einfach weggelassen. Die 
Gründe hierfür werden dem interes¬ 
sierten Beobachter sehr schnell klar. 
Zum einen verbraucht ein solcher 
Charakter einiges an Speicherplatz, 
müssen ihm doch ausreichende Texte 
zur Seite gestellt werden, durch die er 
sich dann mit dem Spieler unterhalten 
kann. Andererseits müssen alle Orts¬ 
beschreibungen so gestaltet sein, daß 
sie auch über die An- oder Abwesen¬ 
heit des Charakters Auskunft geben 
können. Daß sich aus diesen Kompo¬ 
nenten dann wiederum eine Vielzahl 
von Situationen ergibt, die erst einmal 
durchgetestet werden müssen, ver¬ 
steht sich dann fast von selbst. 



"Lords of Midnight” 
ist ein kombiniertes 
Strategie- und Aben¬ 
teuer-Spiel. Es ist 
möglich, das Ziel 
des Spieles durch 
Schlachten mit re¬ 
krutierten Soldaten 
oderauf einem Aben¬ 
teuerweg durch die 
Suche eines Einzel¬ 
nen nach einem be¬ 
stimmten Gegen¬ 
stand zu erreichen. 


Zwar gibt es auch einige Spiele für die 
CPC's, die gut programmierte inter¬ 
aktive Charaktere beinhalten, der 
bereits erwähnte Hobbit ist dafür 
wohl eines der besten Beispiele, im 
großen und ganzen liegen die inter¬ 
aktiven Charaktere bei den CPC's 
aber immer noch im Argen. 

Was ist aber nun ein richtiger inter¬ 
aktiver Charakter, wie definiert man 
so etwas? Die beste Umschreibung ist 
meiner Meinung nach folgende: Ein 
interaktiver Charakter sollte die 
Möglichkeit haben, nach eigenem 
Willen im Abenteuerszenario umher¬ 
zuwandern, er sollte die Möglich¬ 
keit haben, Gegenstände nach den¬ 
selben Gegebenheiten aufnehmen zu 
können wie der Spieler selbst, und er 
sollte auf die Dinge, die um ihn her¬ 
um im Abenteuer stattfinden, ein- 
gehen bzw. reagieren. 


Abenteuermenue ä la carte 


Daß das reine Textadventure und das 
grafikunterstützte Textadventure nicht 
alles in der Abenteuerwelt darstellten, 
war klar, gab es doch eine ganze 
Reihe von sogenannten Arcaden- 
Adventures - eine Untergruppe der 
Abenteuer schlechthin, allerdings im 
großen und ganzen nurdurch ein ein¬ 
ziges Moment miteinander verwandt, 
nämlich durch die Tatsache, daß sie 
in der Regel mit dem Joystick ge¬ 
steuert werden. 

Zwar gibt es diverse Vertreter des Gen¬ 
res, die anstelle eines normalen Joy¬ 
sticks den Cursor-Joystick setzen, 
aber grundsätzlich bedarf es bei 
derartigen Spielen auch der Möglich¬ 
keit der schnellen Reaktion, und die 
wird nun mal durch den Stick am be¬ 
sten gewährleistet. 

Seit einiger Zeit hat die Adventure- 
Familie Zuwachs bekommen. Ein 
neues Spielprinzip hat sich auf den 
CPC's mit "Shadowfire" vorgestellt. 
Von den Textabenteuern wurde ein 
ausgeprägtes Puzzlemoment über¬ 
nommen, und die Arcaden-Vertreter 
der Gattung legten den Joystick mit in 
die Wiege. Der Name ,den diese neue 
Unterabteilung der Abenteuer schluß¬ 
endlich erhalten wird, steht noch 
nicht fest, aber sicherlich wird es 
etwas in der Art "Icon driven Adven- 
ture' oder "Menue-Adventure" sein. 
Ganz einfach, weil diese Namen mit 
treffender Sicherheit das Neuartige 
dieses Spielprinzips umschreiben. 
Wie bekannt, werden bei einem Text¬ 
abenteuer die gewünschten Aktio¬ 
nen mittels mehr oder minder kom- 
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Mü dem Herrn der Ringe” liegt bereits das zweite Abenteuer von Melbourne House vor, in dem interaktive Charaktere mitspielen. Und sie spielen üllül 
wirdzu entwickeln^ Wortesmit ~ sindsiedoch in derLage ’ gewissermaßen einen eigenen WiUen, der natürlich nur durch den Rechner simuliert 'lüü! 


plexer Eingaben erreicht, bei einem 
Arcacien-Abenteuer lenkt der Spieler 
in der Regel eine Spielfigur durch ein 
auf dem Monitor dargestelltes Sze¬ 
nario, das aus den verschiedensten 
Blickrichtungen gezeigt wird. Dieser 
neue Typ Abenteuer hat von beiden 
etwas übernommen. Alle den Spielfi¬ 
guren möglichen Aktionen werden 
hier durch Menues aufgezeigt, und 
mittels eines Cursors, der sich frei in 
den Menues bewegen läßt, ange¬ 
wählt. Um beim Beispiel Shadowfire 
zu bleiben, versuche ich Ihnen das 
ganze Prinzip an diesem wohl ersten 
Vertreter der Menue-Abenteuer zu er¬ 
klären. Es geht in dem Spiel darum, 
eine Spezial-Einsatztruppe, das Enig- 
ma Team, an Bord des Schlacht¬ 
schiffes eines finsteren Imperators zu 
geleiten und einen dort gefangenge¬ 
haltenen Botschafter zu befreien. Für 
jede Person des Teams sind im Spiel 
eine Reihe von Menues verankert, 
mittels derer sich die Figur bewegen 
beziehungsweise steuern läßt: für 
Handlungen, Bewegungen, Aktionen 
mit gefundenen oder mitgeführten 
Objekten und die allgemeinen Um¬ 
stände je eines. Durch diese Menues 
kann der Spieler nun die jeweils von 
ihm gewünschte Aktion einleiten, in¬ 
dem er einfach den dafür vorgesehe¬ 
nen Punkt mit dem Cursor ansteuert 
und durch Drücken der Feuertaste an 
den Rechner weitergibt. 

Die normalerweise in Adventures 
üblichen Messages, die Auskunft 
über Erfolg oder Mißerfolg der letz¬ 
ten Aktion geben, mußten hiereinem 
großen Statusfenster weichen, in dem 
sich wiederum einige verschiedene 
andere Anzeigen befinden. Auf ihnen 
läßt sich ablesen, was sich zur Zeit ge- 
rade im Blickfeld der jeweiligen 


Person befindet. Sollte beispielsweise 
einmal der Schloßexperte beauftragt 
werden, eine verriegelte Tür zu 
öffnen, kann der Erfolg dieser Aktion 
in einem dieser Fenster, im vorliegen¬ 
den Falle wäre es ein kleines Recht¬ 
eck. durch das immer wieder die neu¬ 
esten Meldungen gescrollt werden, 
abgelesen werden. 

Das neueste Softwareprodukt das 
dieser Art Abenteuer zuzurechnen 
wäre, ist "Mission Omega", das sich 
vom grundsätzlichen Spielprinzip 
doch um einiges von Shadowfire, 
unterscheidet. Hier geht es darum, in 
einer außerirdischen Raumstation 
einige versteckte Teile aufzufinden. 
Zu Beginn des Spieles muß der Spie¬ 
ler sich für diesen Zweck einige An¬ 
droiden zusammenbasteln. Aus den 
verschiedensten Auswahlmöglich- 
keiten gilt es, die beste Fortbewe¬ 
gungsart. die beste Bewaffnung, die 
optimale Ausrüstung, und die am be¬ 
sten geeignete Energieversorgung zu 
finden. 

Wie schon bei Shadowfire, unterliegt 
das Spiel auch hier einem Zeitlimit, 
nach dessen Ablauf das Spiel auto¬ 
matisch beendet ist und der Spieler, 
sofern er nicht noch in letzter Minute 
alle gestellten Aufgaben erfüllen 
konnte, das Spiel verloren hat. 
Während des eigentlichen Spieles 
steht dem Spieler die Möglichkeit zur 
Verfügung, einen oder alle seiner 
Androiden auf Automatik zu schal¬ 
ten. In diesem Modus übernimmt der 
Rechner die Steuerung des Roboters. 
Eine weitere interessante Neuerung 
ist die Möglichkeit, den Androiden 
einen Weg vorzuprogrammieren, den 
diese dann ohne weiteres Zutun ganz 
von alleine zurücklegen, die einzige 
Voraussetzung hierfür ist, daß der 


Jlllllll 


Robot schon einmal durch die betref¬ 
fenden Räume gelaufen sein muß. 
Die vielen neuen Möglichkeiten, mit 
den Features zu experimentieren,ma¬ 
chen das Spielen von Mission Omega 
außerordentlich interessant. Das Vor¬ 
handensein von abschaltbaren Ener¬ 
giegattern, die mancherorts ein 
Weiterkommen verhindern, würzen 
das Spiel noch zusätzlich, denn mei¬ 
stens ist es nicht gerade der Schalter 
nebenan, der das Energiegatter, das 
das weitere Vorankommen verhin¬ 
dert, abschaltet. 

Im Gegensatz zu den althergebrach - 
ten Abenteuerspielen fließt der 
Nachschub hier noch relativ zögernd, 
sicherlich nicht zuletzt durch den 
immensen Programmieraufwand, der 
getrieben werden muß, um ein sol¬ 
ches Menue-Adventure auf die Beine 
zu stellen. Aber das, was bisher vor¬ 
liegt. macht einen wäßrigen Mund. 
Harren wir also der Dinge die da 
kommen. 
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Adventure International 

Adventure International ist ein engli¬ 
sches Softwarehaus. Bei der Nen¬ 
nung dieses Namens kommen in mir 
die zwiespältigsten Gefühle auf. 

Zum einen haben sich die englischen 
Programmierer, die die europäische 
Zweigstelle des US-Unternehmens 
repräsentieren, zumindest auf deut¬ 
schem Boden sehr unbeliebt ge¬ 
macht. Ganz gezielt ist di'eser Image¬ 
verlust auf die deutsche Version des 
nach dem gleichnamigen Film er¬ 
stellten Abenteuers "Gremlins" 
zurückzuführen. Diese Umsetzung 
kann ungelogen als gelungenes Bei¬ 
spiel dafür gelten, wie man es am be- 
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sten nicht machen sollte. Die vorge¬ 
nommene Eindeutschung sieht so 
aus, als hätten die Engländer einen 
Liverpooler Hauptschüler, ausgestat¬ 
tet mit einem Deutschwörterbuch aus 
den 50-er Jahren, an ihren Quelltext 
gesetzt, und ihn von ihm unter 
Zeitdruck ins Deutsche übertragen 
lassen. Aber zu der unmöglichen 
Grammatik und der stellenweise ver¬ 
heerenden Satzstellung gesellen sich 
auch noch einige gravierende Fehler 
in der mitgelieferten Anleitung. Die 
dort aufgezählten Kommandos sind 
stellenweise schlicht und ergreifend 
falsch. 

Im Grunde genommen ist Gremlins, 
solange man hier nur von der engli¬ 
schen Version redet .ein gutes Adven- 
ture-Spiel, aus dem man auch in 
Deutsch eine ganze Menge hätte 
machen können. Aber die Intention 
der Engländer, die sicherlich nicht 
billige Möglichkeit einen guten Über¬ 
setzer an die Sache zu setzen, aus 
Kostengründen unter den Tisch fal¬ 
len zu lassen, hat sich im Endeffekt 
als die teurere Möglichkeit erwiesen. 
Denn um diesen Bock wieder auszu¬ 
bügeln, werden sich die Jungs etwas 
sehr Gutes einfallen lassen müssen. 
Allerdings sollte man nicht zu hart 
urteilen, denn Adventure Internatio¬ 
nal war seit seinem Bestehen für seine 
guten Ideen bekannt. Zu Zeiten, als 
die Firma noch aus Scott Adams und 
seiner Frau bestand, heimste man al¬ 
lerorten die überschwenglichsten 
Kritiken für die phantasievolle Ge¬ 
staltung der Produkte ein. 

Wenn wir schon dabei sind von Scott 
Adams zu sprechen, will ich Ihnen 
aber auch nicht verschweigen, daß er 
es war, der erstmals ein Abenteuer¬ 
spiel auf einem kleinen Heimcompu¬ 
ter realisierte. Bis zu diesem Zeit¬ 
punkt waren die Freuden des Aben- 
teuerns einigen wenigen Personen 
Vorbehalten, die Zugang zu großen 
Mainframe Rechnern hatten. Bis 
dahin war das Abenteuern auf Com¬ 
putern eher ein intellektuelles Ver¬ 
gnügen. mit dem sich Studenten auf 
ihren Institutsrechnern die Zeit 
vertrieben. 

Nachdem Adams einige seiner Pro¬ 
gramme für die verschiedensten 
Rechnertypen realisiert hatte, mußte 
eine ständige Vertretung in England 
her, machte er dort doch mit seinen 
Programmen einen nicht unbeträcht¬ 
lichen Umsatz. Adventure Internatio¬ 
nal GB war geboren. 

Mit einer reinen Vertreibertätigkeit 
wollten sich die Engländer aber nicht 
zufriedengeben. Sie begannen an 
eigenen Projekten zu tüfteln und er¬ 
zielten damit auch mehr als nur Ach¬ 


tungserfolge. Bald wanderten reine 
englische Programme zum Vertrieb 
nach Amerika. Ein gutes Beispiel für 
eine solche britische Produktion ist 
"Robin of Sherwood", das dann auch 
bezeichnenderweise einer englischen 
Fernsehserie nachempfunden wurde. 
Entgegen der üblichen Interpretation 
des Stoffes wurde hier ein Touch Fan¬ 
tasy mit in die Handlung integriert, 
der die nicht gerade neue Story so ge¬ 
lungen aufpeppt, daß sie sicherlich 
einem überdurchschnittlichen An¬ 
spruch gerecht wird. 

Aber auch in punkto neuer Ideen und 
Spielkonzepte war man nicht gerade 
untätig. Der Anstoß zu diesen Neue¬ 
rungen kam hier aus Großbritannien. 
Dort gibt es seit einiger Zeit eine 
Buchreihe, durch die man in die Lage 
versetzt wird, Abenteuer auch ohne 
den Computer zu erleben. Jedes die¬ 
ser Bücher ist für sich ein spielbares 
Abenteuer, das nach folgendem 
Prinzip funktioniert: 

Der Text ist in viele kleine Absätze 
unterteilt, die, jeder für sich, mit 
fortlaufenden Nummern versehen 
wiarden. Lesen Sie einen solchen Ab¬ 
schnitt durch, wird Ihnen darin, w'ic 
auch auf den Computern, die Szene 
beschrieben, in der Sie sich gerade be¬ 
finden. Stehen Sie beispielsweise ge¬ 
rade an einer Gabelung eines unterir¬ 
dischen Tunnels, so haben Sie am 
Ende der Beschreibung die Wahl¬ 
möglichkeit, in der Sie sich entschei¬ 
den können, in welchem Tunnel Sie 
nun Ihren Weg fortsetzen wollen. 
Entscheiden Sie sich für den linken, 
lesen Sie bei Absatz Nummer 99 wei¬ 
ter, wollen Sie den rechten benutzen, 
lesen Sie bei 321 weiter. 

Dieses neue Spielprinzip schlug wie 
eine Bombe ein. Dadurch, daß 
Kämpfe mit Untieren, die einem über 
den Weg laufen, nach Regeln ausge¬ 
würfelt werden, die dem Rollenspiel 
entlehnt wurden, stürzten sich die 
Fans dieser Spielegattung wie die 
Hyänen auf dieses neue Spieler¬ 
lebnis. Die Fighting Fantasy Books 
wurden ein echter Renner. Die bei¬ 
den Herren, die für dies alles ver¬ 
antwortlich zu machen sind, waren 
Steven Jackson und lan Livingston. 
Zwar hatte lan Livingston schon bei 
der Arbeit zu den vielgelobten 
Eureka-Aventures, die es leider nicht 
für die CPCs gibt, mit den Möglich¬ 
keiten der computerisierten Aben¬ 
teuerei Tuchfühlung genommen, aber 
das unschlagbare Flair seiner Fan¬ 
tasy Bücher erreichte er hier, war er 
doch "nur" für die Story verantwort¬ 
lich. Erst bei dem Adventure Interna¬ 
tional Projekt "Seas of Blood“, das 
sich inhaltlich ganz an das gleichna¬ 


mige Fighting Fantasy Buch anlehnt, 
gelang es ihm, diesmal in Zusammen¬ 
arbeit mit Steve Jackson, zu seiner 
alten Klasse zurückzufinden. 

Es handelt sich hier im großen und 
ganzen um ein klassisches Abenteuer- 
Spiel, das aber durch die Übernahme 
der Kampfroutinen, wie sie auch im 
Buch stattfinden, einiges an Attrakti¬ 
vität und Spielbarkeit gewinnen. 
Übrigens, wer sich für die Fighting 
Fantasy Books interessiert, dem sei 
geraten, sich an den Thieneman Ver¬ 
lag zu w'enden. Dort ist die deutsche 
Übersetzung des ersten Spielbuches 
erschienen, es heißt "Der Hexenmei¬ 
ster vom Flammenden Berg" (Sorce- 
rer of Firetop Mountain). 


LEVEL 9 


Eine englische Company, die sich bei 
der Pflege guter Textabenteuer be¬ 
sonders hervorgetan hat, ist Level 9. 
Zwar sind die Abenteuer dieser 
Firma auch mit Grafik versehen, al¬ 
lerdings ist diese sehr einfach gestal¬ 
tet. Trotzdem ist es manchmal er¬ 
staunlich, wneviel die Programmierer 
in den Speichereines kleinen Home¬ 
computers hineinbekommen. 

Schaut man sich beispielsweise "Red 
Moon" an. da sind Irrsinnsmengen 
Text, zusammen mit über 200 ver¬ 
schiedenen Bildern in den Speicher 
gepfercht worden. Aber wie erwähnt, 
sind die Grafiken nicht besonders 
ausgefeilt und werden mit einer klei¬ 
nen Routine, die das fertige Bild aus 
einigen wenigen Datazeilen entste¬ 
hen läßt, auf den Monitor gezaubert. 
Um einiges erwähnenswerter ist 
eigentlich der Text, den die Level 9 
Jungs zu ihren Storys erstellen. Auch 
die reinen Storylines sind mit viel Ge¬ 
schick und Gefühl für Atmosphäre 
und Spannung erstellt werden. 

Eines der interessantesten Level 9- 
Projekte ist eine dreiteilige SF-Saga, 
die in einer Raumstation beginnt, den 
Spieler im zweiten Teil auf die 
unwirtliche Oberfläche einer Dschun¬ 
gelweltversetzt, in der es zu überleben 
gilt. Der dritte Teil handelt von der 
Suche nach einer legendären Andro¬ 
idenstadt, die im Verborgenen auf 
dem Dschungelplaneten existiert. 
Die Handlung dieser drei Abenteuer¬ 
spiele macht deutlich, daß die Herren 
Programmierer ihre Lektion in Sa¬ 
chen anspruchsvoller SF gut gelernt 
haben. Die Titel hingegen vermitteln 
beim Betrachten im Vorübergehen 
nicht sehr viel von der Qualität, die 
sich hinter ihnen verbirgt."Snowbair, 
"Return to Eden" und "Worrn in Para- 


28 CPC 


3 '86 Sonderheft 














II111! I 


II ■ I ilillII111111II111• .....1.....IMl IIIIII11 


111111111 


IIMIMII.MIII 


dise" sind auf jeden Fall Abenteuer- 
spieie, die man sich zulegen sollte. 
Man wird zwar sicherlich einige Zeit 
brauchen, um sie zu lösen aber nichts- 
demzutrotz sind sie beste Abenteuer¬ 
unterhaltung. 

Das neueste Level 9-Projekt wendet 
sich thematisch wieder der Fantasy 
zu. "The Prize of Magick" handelt 
von einem magischen Zeitalter, in 
dem es immer schwieriger wird, 
Zauberei einzusetzen. Ein junger 
Adept macht sich daraufhin auf den 
Weg, um herauszufinden, woran die¬ 
ses Verschwunden der Magie liegt. 
Wie gewohnt, sind auch dieses Mal 
über 200 verschiedene Lokationen, 


die jeweils mit einem Bild versehen 
worden sind, in das Spiel integriert 
worden. Die Texte weisen die ge¬ 
wohnte Level 9-Qualität auf. Einen 
kleinen Nachteil haben aber alle Le¬ 
vel 9-Spiele gemeinsam, aufgrund der 
Tatsache, daß in England eine Flop- 
py-Disc eher die Ausnahme,denn die 
Regel ist, sind die Programme in ihrer 
gesamten Struktur auf den Kassetten¬ 
benutzer ausgelegt. In Anbetracht der 
teilweise immensen Ladezeiten 
wurde eine mehrteilige Konzeption, 
in der einzelne Programmteile aus 
dem Speicher gelöscht werden und 
durch neu geladene Files ersetzt wer¬ 
den. von vornehercin ausgeklam- 


ners. In Anbetracht der Möglichkei¬ 
ten, die sich durch den geschickten 
Einsatz einer Floppy bieten, muß 
man ieststellen. daß dort ein wenig der 
Anschluß verpaßt wird. Herrje..., was 
könnten die Jungs doch für tolle 
Abenteuer auf die Beine stellen - das 
Zeug dazu haben sie! »■»»• 

iiiiiijl 

__ iiiinii 


Activision O* 

- ilji'ii 

Auf dem Abenteuersektor ist Acti¬ 
vision im Grunde genommen nicht ;|HI 
besonders aktiv. Zwar haben sie das "iijjii 
eine oder andere Spiel im Sortiment, 'liil'l' 
lür die CPC-Benutzer ist davon aber 'Uli' 11 
nur eines interessant: "Mind- """II 
shadow", das sowohl von seiner ]j]J|j[J 
Grafik her wie auch von der Story,die pM! 
dort geboten wird, eines der besten jp'p 
Abenteuer des Jahres 1986 darstellt. 1,1 h 
Das Spiel beginnt auf einer einsamen 
Südseeinsel, auf der eine kleine Hütte Ml!!! 
steht. In dieser Hütte erwacht die IIÜIi, 
Spielfigur dann auch das erste Mal Mp 
und muß feststellen, daß sie ihr Ge- ö| 
dächtnis verloren hat. Ziel des Spieles 
ist es, das Gedächtnis wieder zu er- llÜlt 
langen; aber dazu muß die Spielfigur Mp 
erst einmal die Insel verlassen, und ' 11 ^ 
das erweist sich als schwieriger, als es 
auf den ersten Blick aussieht. MM 

Auch Mindshadow zählt zu den gra- jl'JJP 
likunterstützten Abenteuerspielen. ,|[|!li! 
Die Bilder, über die das Spiel verfügt, lljüji 
sind von, für CPC-Verhältnisse, aller- jJM'l 
erster Qualität und werden in einem l|/|! 
atemberaubenden Tempo auf dem 
Monitor aufgebaut. 

Zum ersten Male ist in Mindshadow mim 
eine softwaremäßige Quicksave- Mm! 
Routine eingebaut worden. Mittels Cjl! 
des einfachen Befehles ’Quicksave', E|!|! 
hat der Spieler die Möglichkeit, den jjlü! j 
Spielstand abzuspeichern, ohne auf ( Sü!» 
den Massenspeicher, egal welcher j||||j|| 
das nun sein möge, zuzugreifen. Mit- ||||\ 
tels Quickload' ist der vorher abge¬ 
speicherte Spielstand ebenso schnell 
wieder in den Speicher zurückgeholt, üjjüjj 
wie er abgesaved wurde. 

Schaltet man den Rechner allerdings j[!3| 
ab, ohne vorher einmal einen Lijj 
Hardwaresave durchzuführen, ist der !!jj!!jj 
Spielstand natürlich verloren. || j'i, 

Eine weitere erwähnenswerte Tatsa¬ 
che ist das Tutorial, das sich mit auf , 
der Kassette befindet. Hier wird der J|jn|! 
Adventure-Anfänger mit viel Ein- mMi 
fühlungsvermögen in das doch ein ||!JP 
wenig gewöhnungsbedürftige Spiel- p<|| 
prinzip der Abenteuer eingeführt. MM 
Mindshadow ist ein Spiel, an dem liillli, 
sowohl Anfänger wie auch der Fort- MM 
geschrittene seine helfe Freude haben j[!jj! 
wird. _(HS)_||ij|||' 


mert. Die Programme laden in einem 
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DER HERR DER 
RIHGE 


Das Programmierer-Team um Philip 
Mitchel hat wieder zugeschlagen. 
Bereits der erste Versuch dieser Crew, 
die phantastische Welt Professor 
Tolkiens als Computerabenteuer um¬ 
zusetzen, kann als voller Erfolg be¬ 
zeichnet werden. Nicht zu Unrecht 
wird der "Hobbit" als der Klassiker 
der Abenteuerspiele bezeichnet. Ob¬ 
wohl schon mehr als drei Jahre alt, 
gelang es ihm doch, sich bei der CPC 
International-Wahl der besten Soft¬ 
ware des Jahres in der Sparte Aben¬ 
teuer für Platz Eins zu qualifizieren. 
Stellte die Geschichte, die in "Der 
kleine Hobbit" erzählt wird, die Vor¬ 
geschichte des Herrn der Ringe dar, 
konnte man sich eigentlich an zwei 
Händen abzählen, wie lange es nun 
dauern würde, bis jener seinen Weg in 
die Homecomputer finden würde. 
Aber lange Verhandlungen um die 
Titelrechte verzögerten die Fertigstel¬ 
lung des Programmes ungemein. So 
dauerte es, nach der ersten Ankündi¬ 
gung, mehr als zwei Jahre, bis der 
Herr der Ringe für die Computerwelt 
zur Realität wurde. 

Aber nun ist die Warterei vorbei - es 
ist soweit. Als das Paket von Mel¬ 
bourne House bei uns ein traf, dach¬ 
ten wir zuerst, man hätte uns außer 
der Kopie des "HDR" noch einige an¬ 
dere Software zum Testen zugesandt. 
Weit gefehlt, denn die Box, in der deT 
"HDR" geliefert wurde, hat alleine 
eine Dicke von mehr als fünf Zenti¬ 
meter. In dieser wirklich gediegenen 
Aufmachung ist dieses Programm ein 
echter Schmuck für jede Software¬ 
sammlung. Nicht ohne Grund ist die 
Packung so dick, denn es ist, wie 
schon beim Hobbit. in der Ver¬ 
packung ein Exemplar der literari¬ 
schen Vorlage enthalten. Ein¬ 
gefleischte Abenteuer- und Fantasy- 
Fans werden nun stutzen und sagen: 
„Was! Ein Buch nur? Der HDR 
umfaßt aber doch insgesamt drei 
Bücher!" Richtig erkannt. Das vorlie¬ 
gende Programm stellt, wie das darin 
enthaltene Buch, auch nur den ersten 
Teil der Ringsaga dar: "Die Gefähr¬ 
ten” bzw. "The Fellowship of the 
Ring" wie der Titel im englischen 
Original lautet. Die fehlenden beiden 
Teile befinden sich, soweit man Mel¬ 
bourne House dahingehend trauen 
kann, bereits in Arbeit. 

Eine Schilderung der Inhalte einer 
derart episch breit angelegten Erzäh¬ 
lung. wie sie der HDR ist, kann selbst¬ 


verständlich nur Stückwerk bleiben. 
Trotzdem möchte ich versuchen, all 
denen, die sich in der Geschichte von 
Mittelerde nicht so gut auskennen, 
zumindest einen Eindruck von der 
Atmosphäre, die auf sie wartet, zu 
vermitteln. 

Im Anfang der Zeiten schmiedeten 
die Elben die Magischen Ringe der 
Macht, und verteilten sie unter den 
Völkern von Mittelerde. Sie sollten all 
den Zwergen, Menschen, Hobbits 
und Elben Schutz vor den Mächten 
der Finsternis bieten. Im dunklen 
Lande Mordor überlegte Sauron, der 
Fürst der Finsternis, wie er sich die 
Macht der Ringe zu Eigen machen 
könnte. 

Sauron täuschte die Elbenschmiede 
und es gelang ihm, von ihnen die Fer¬ 
tigkeit des Ringeschmiedens zu erler¬ 
nen. Wieder nach Mordor zurückge¬ 
kehrt, machte er sich sogleich daran, 
einen Ring zu schmieden. Und alles 
was dunkel und schlecht war, wurde 
in diesem einen, dem Meisterring, ge¬ 
schmiedet. Ausgerüstet mit dieser 
machtvollen Waffe machte sich 
Sauron nun daran, alle Länder von 
Mittelerde mit Finsternis zu überzie¬ 
hen. Jedoch gelang es einem der Elben- 
fürsten, Sauron im Zweikampf zu 
besiegen und den Meisterring von 
seiner Hand zu schlagen. Doch die 
Macht des Ringes war größer als man 
glaubte. Wie von einem eigenen Be¬ 
wußtsein erfüllt, versuchte der Ring 
den Geist der Person, die ihn trug, zu 
verändern. Doch bei dem reinen Ge¬ 
wissen. das ein Elbe hat, gelang ihm 
das nicht. Als dieser Fürst allerdings 
auf der Flucht vor einer mörderi¬ 
schen Orkhorde einen Fluß über¬ 
querte, glitt ihm der Ring vom 
Finger. 

Von nun an war der Ring für 
Jahrhunderte verloren. Erst ein klei¬ 
ner Hobbit. nämlich Bilbo Beutlin, 
entdeckte ihn auf einer abenteuerli¬ 
chen Schatzsuche tief unter den Fels¬ 
massiven der Nebelberge. Dort hau¬ 
ste ein Wesen, das ganz und gar der 
Macht des Ringes verfallen war: 
Gollum. Nachdem Bilbo ihm den 
Ring abgerungen hatte, begab sich 
auch Gollum auf die Suche nach dem 
verlorenen Ring. Im Laufe seiner 
Abenteuer, (die übrigens den Hin¬ 
tergrund des Hobbits darstellen) er¬ 
langte Bilbo auch den Schatz des letz¬ 
ten Drachens. Aber auch in Mordor 
fühlt Sauron, daß der Ring wieder ge¬ 
funden war. In den Jahren des ersten 
Ringkrieges ist es ihm gelungen, all 
die anderen Ringe der Macht in sei¬ 
nen Besitz zu bringen, und deren 
Natur ins Schlechte zu verkehren. 
Nun stehen ihm die Ringgeister, die 


Nazgul, zu Gebote. Diese sendet er 
auf Dämonenrossen durch das Land, 
um den einen, den Meisterring, für 
ihren Herrn zurückzuerlangen. Aber 
auch Elben und Menschen haben die 
Gefahr, die ihnen von diesem Ring 
droht, erkannt und so beschließt 
man, eine kleine Truppe auszusen¬ 
den, die versuchen soll, den Ring zu 
vernichten. Aber der einzige Ort. an 
dem dies gelingen könnte, ist auch 
der Ort, an dem der Ring geschmiedet 
wurde, ln den Feuern des Schicksals¬ 
berges, einem Vulkan im Herzen des 
dunklen Landes Mordor. 

Vor diesem farbigen Hintergrund fin¬ 
det also nun die Handlung des HDR 
statt. Ganz klar, daß sich eine solch 
umfangreiche Geschichte nur schwer 
in einem Programm unterbringen 
läßt. Zumal man auch noch Pro¬ 
bleme mit den einzelnen Personen 
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bekommt. Immerhin sind es bereits 
zu Anfang drei Hobbits, die zu der ge¬ 
fahrvollen Reise aufbrechen. Aber 
auch daran haben die Programmie¬ 
rer von Melbourne House gedacht. So 
ist es möglich, während des Spiels die 
Figur zu bestimmen, die man gerade 
darstellen möchte. Man gibt ganz ein¬ 
fach '’become Frodo" ein, und schon 
schlüpft man in die Haut der entspre¬ 
chenden Person. Auf diese Art und 
Weise ist es möglich, mit mehreren 
Personen gleichzeitig zu spielen. Na¬ 
türlich sind die Personen, die dem 
Spieler im Laufe des Abenteuers be¬ 
gegnen, auch größtenteils interaktiv. 


Das heißt, sie sind in der Lage, eigene 
Entscheidungen zu treffen. Bei¬ 
spielsweise kann es Ihnen passieren, 
daß Sie eine Person fragen, ob sie Sie 
vielleicht tragen könnte (Hobbits ha¬ 
ben kurze Beine). Fragen Sie das erste 
Mal, lehnt diese Person ab, beim 
zweiten Mal ebenfalls. Nun gehen Sie 
einen Schritt zurück, kehren dann 
zur betreffenden Person zurück und 
fragen abermals, und plötzlich ge¬ 
währt er Ihre Bitte. Ganz klar, daß ein 
solches Feature ungemein zur At¬ 
mosphäre eines solchen Spieles 
beiträgt. 

Zwar hat auch der HDR Grafiken im 


Programmablauf eingebettet, jedoch XI 1 
sind diese so spärlich gesät und von ^"jj 
der Machart so bescheiden (wahr- ’jjiili; 
scheinlich zu Gunsten eines komple- ll l||l ll 

xeren Programmes), daß man sie be- Ir . 

stenfalls als leichte Unterstützung an- 
sehen kann. Wie schon beim Hobbit ll""" 
ist es auch hier möglich, ganze Sätze ij l 'j!'i! 
als Kommandos einzugeben. Ein """II 
sehr umfangreiches Vokabular ist da Ijjjjji 
schon fast selbstverständlich. 

Resümiered möchte ich zum Hobbit l|/li 
noch sagen, daß sich das lange War¬ 
ten auf jeden Fall gelohnt hat. Für die mm|| 
Adventures ist es sicherlich der Knal- !"!"!! 
ler der Saison. (HS) 'j'ljjj 1 
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A|> Diskette 

Rechnerkopplung über eine 
V- 24/ RS-232 Schnittstell e 

Die Busverbindung zum 
Profi-Standard für alle CPC 

MT ECB- BUS^\| 

SYSTEM 

ECB-Bus-Adapter als BausatJ 188,- DM 
als Baustein 288, - DM 


Universelle Ein-/Ausgabekarte 
4 par./2 ser. als Bausatz 189,- DM 
Schnittstellen als Baustein 289,- DM 
ECB-Speichererweiterung bis 1 Mega Byte 
auch für 128 kB als Bausatz 299,- DM 
CPC 6128 1 MB als Bausatz 599,- DM 
Viele weitere Zusatzkarten (Eprorn-Floppy, 
RAM-Floppy, Festplatte usw.) erhältlich, 

Vortex-Speichererweiterungen: 

SP-256 für CPC 464/664 jetzt 288, - DM 
SP-512 jetzt 379,- DM 

Vortex-Floppylaufwerke/Festplatte 
F1-X/M1-X (768 kB) 728,- DM 

F1-XRS/M1-XRS (768 kB) 828,- DM 

WD-20 Festplatte 20 MB 2898,- DM 

Info gegen 2,- DM Rückporto 
User-Sprechstunde Di. und Do. ab 18 Uhr 

^=1 SDFTUlflBE I— 

: = SEfiUICE s== 

-5 RETHEME1ER 5 

_ y - % — 

Vlothoer Straße 65a, 4900 Herford 
Telefon (0 52 21)867 98 



Mir EINEM SCHNEIDER CPC INTERNATIONAL 
ABONNEMENT BEKOMMEN SIE. WAS IHR CPC 
BRAUCHT. JEDEN MONAT NEU. 


Die Budget Labels sind erwachsen ge¬ 
worden. Nachdem sie noch vor einem 
Jahr, ein wenig abfällig als Super¬ 
markt -Wühltischsoftware bezeichnet, 
eher noch belächelt denn ernstgenom¬ 
men wurden, haben sie heute eine nicht 
mehr wegzudenkende Position inne. 
Daß sich ihr Marktanteil seither noch 
weiter vergrößert hat, ist fast schon 
selbstverständlich. 

Billigsoftware - das ist inzwischen 
schon fast so etwas wie ein Qualitätsba¬ 
rometer geworden, anhand von Budget 
Spielen kann der Anwender ermessen, 
was sein Geld inzwischen Wert ist. 
Wie bei den „Normal Prized” Produk¬ 
ten, hat das Jahr 1986 auch bei den 
Budget Labels eine w ahre Softw are- 
schwemme gebracht. Einige der neue¬ 
sten und interessantesten Produkte 
möchten wir Ihnen hier vorstellen. 


Szenarios zusammenbasteln und auf 
Kassette abspeichern. 

MOLECULE MAN ist ein gutes Bei¬ 
spiel dafür, was man am richtigen 
Ort für 12 - DM geboten bekommt. 


Radzone 


Obgleich das Thema Radioaktivität 
seit Tschernobyl ein wirklich heißes 
Eisen ist, muß es dennoch immer wie¬ 
der herhalten, um irgendwelchen 
kleinen Männchen das Leben schwer 
zu machen. So hat bei RADZONE 
ein einzelner Mann (natürlich der 
Spieler) die Aufgabe, eine Reihe ver¬ 
lorengegangener radioaktiver Objekte 
einzusammeln, um so unter Einsatz 
seines Lebens, Schlimmeres zu 
verhindern. 


Neues von der Billig-Front 


Leider können wir Ihnen nicht alle 
Spiele auch mit einem Bildschirmfoto 
zeigen. Dazu ist der Platz leider zu 
beschränkt. 


Molecule man 


3D-Perspektive ä la Ultimate ist eines 
der Features, über die dieses neue 
Mastertronic Spiel verfügt. Einen 
kleinen Ball mit Beinen muß der 
Spieler durch ein großes, radioaktiv 
verseuchtes Labyrinth steuern. Der 
kleine Kugelkerl kann die harte 
Strahlung aber nur dann überleben, 
wenn er immer seine Jodtabletten zu 
sich nimmt. Aber an die heranzu¬ 
kommen ist gar nicht so einfach. 
Zuerst muß der Spieler die im Spiel¬ 
feld verteilten Geldstücke einsam¬ 
meln. Hat er erst einmal genug davon 
eingesammelt, gilt es einen Automa¬ 
ten zu finden, an dem der kleine Kerl 
sich dann wieder mit seinen so drin¬ 
gend benötigten Pillen eindecken 
kann. Sind genug Pillen eingekauft, 
und noch etwas Geld übrig, kann er 
sich noch an einem anderen Automa¬ 
ten mit Bomben eindecken. Mittels 
dieser Explosivkörper kann er sich 
gegebenenfalls einen Weg durch Bar¬ 
rieren sprengen. Das kann mitunter 
das Spielleben retten. 

Eine weitere interessante Besonder¬ 
heit von MOLECULE MAN ist der 
im Spiel enthaltene Editor. Damit 
kann der Spieler sich seine eigenen 


Radzone ist eine der weniger interes¬ 
santen Neuerscheinungen. Alles in 
diesem Spiel ist schon einmal dage¬ 
wesen, und meistens sogar in einer 
besseren Version. 

Ein gutes Beispiel .wieviele Program¬ 
mierer glauben, mit einem einfachen 
Plattformspiel, das extra viele ver¬ 
schiedene Bilder hat, eine Katze hin¬ 
ter dem Ofen hervorzulocken. 

Zur kleinen Ehrenrettung von 
RADZONE sei festgestellt, daß es die 
12,- DM, die es kostet, gerade so 
wert ist. 


Storm 


Unheimlichen Grüften, wilden Bar¬ 
baren. mächtigen Zauberern, und 
vielem anderen Fantasy-Volk begeg¬ 
net der Spieler, der sich Storm 
zulegt. 

Der böse Zauberer Una Cum hat die 
Verlobte des Kriegerfürsten Storm 
entführt und hält sie nun in seinem 
Laboratorium, das sich in den 
Ruinen einer alten Stadt befindet, ge¬ 
fangen . Storm macht sich zusammen 
mit seinem Freund, der ebenfalls Ma¬ 
gier ist, auf den Weg, sie aus den 
Klauen des Bösen zu befreien. 
Zusammen dringen sie in die Ruinen 
der Stadt ein. und werden auch schon 
bald fündig. Doch die Tür zu Una 
Cum's Laboratorium ist durch einen 
magischen Bann verriegelt. Diesen 
Bann können nur Una Cum persön¬ 
lich. oder aber die drei legendären 
Schlangenschlüssel, aufh eben. Diese 
drei Schlüssel sollen der Sage zufolge 
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jeden Herbst geschafft, genug Fett auf 
die Rippen zu bekommen, um damit 
den Winter wohlbehalten zu über¬ 
stehen. 

Bei SPIKY HAROLD von Firebird 
handelt es sich, ebenso wie bei 
Radzone, um ein Plattformspiel. Nur 
gibt es einen großen Unterschied. 
SPIKY HAROLD ist um einiges 
besser. 

Die Grafik ist zwar nicht so farben¬ 
froh wie bei Radzone, aber trotzdem 
um einiges besser gelungen als dort. 
Der Spieler muß den gefräßigen Igel 
durch 59 verschiedene unterirdische 
Räume lenken. In jedem dieser 
Räume findet Harold etwas zu fres¬ 
sen. oder Goldmünzen. Sammelt er 
diese ein. bringt das ein Extra-Leben. 
Auch hat dort jemand irgendwann 
eine ganze Menge Schnaps verloren. 
Findet Harold eine solche Flasche 
und frißt sie, wird er daraufhin auch 
postwendend betrunken. 

SPIKY HAROLD ist vielleicht vom 
Schwierigkeitsgrad ein wenig hoch 
angesetzt, aber sonst ein Spiel, das 
man durchaus als gut bezeichnen 
kann. 


Thrust 


Bevor ich Ihnen überhaupt etwas 
über THRUST erzähle, ein sehr guter 
Tip: Kaufen Sie sich THRUST so 
schnell wie möglich, bevor jemand 
auf die Idee kommt, den Preis zu er¬ 
höhen. Hier liegt nämlich ein Spiel 
vor, das, selbst wenn es 30,- DM 
kosten würde, noch jeden Pfennig 
doppelt wert wäre. Im Grunde ge¬ 
nommen geht es lediglich um das Ab¬ 
schleppen von ganz bestimmten Ge¬ 
genständen von unterschiedlichen 


Planeten. Die Steuerung des Raum¬ 
schiffes ist denkbar einfach, links 
und rechts rotieren, Gas geben, tan¬ 
ken bzw. docken. Das sollte der Spie¬ 
ler schnell lernen, denn schon auf 
dem ersten Planeten wird klar, daß es 
gar nicht so einfach ist,herumzuflie¬ 
gen, wenn man sich dabei permanent |j"jj 
mit der Schwerkraft des Planeten aus - „,L| 
einandersetzen muß. »»»j 

Aber nicht nur die Anziehungskraft |j" [ 
macht dem Piloten das Leben schwer. '* 
Immer wieder begegnet er Geschütz¬ 
stellungen, die einem weiteren Vor- """II 
dringen im Wege stehen. Der einzige »ijjjji 
sichere Weg, sich Ärger mit diesen 
Geschützen zu ersparen, ist, sie aus 'l!||'li 
sicherer Entfernung abzuschießen. »«"11 
Nur ist das nicht immer möglich,ver- llllül 1 
legt sich der Schauplatz dieses !!!'\ 
Schwerkraftdramas bereits im zwei- üilfl! 
ten Level unter die Erde. Durch die ll||lh 
Gravitation ist das Manövrieren des 
Raumschiffes nicht gerade leicht, hat ;;]||||; 
man allerdings erst einmal den Pod jjjüjjj 
gefunden und mit ihm gedockt, fan- lllül 1 
gen die Probleme erst richtig an. Der C|| 
Pod hängt nämlich nun an einer lan- fl”»' 
gen Trägertrosse unter dem Raum- 
schiff, und schwankt dabei auch, je W» 11 
nachdem, wie Sie fliegen, mehr oder 111111 
weniger hin und her. 

"II'T 

THRUST, was soviel wie Beschleuni- ll'JHj 
gung bedeutet, macht ohne zu „'[jjjjj 
übertreiben süchtig. Je weiter der IDHI 
Spieler in die unterirdischen Kaver- jj»»!! 
nen vordringt, desto schwerer, aber 
auch interessanter wird es. Ein Spiel, 
das eine derartig hohe Spielmoti- 
vation erzeugt, habe ich schon lange iüüjj: 
nicht mehr gesehen. 'jillül 

hihi 

Iiiiiii 

Ich kann nur wiederholen was ich zu E!|j! 
Beginn dieser Review sagte: Holen | 
Sie sich dieses Spiel, Sie werden es , !H«i 
sicherlich nicht bereuen! (HS) nmjj 1 


STORM 


RADZONE 


"Mül 1 
11111111 


auch in diesen Ruinen verborgen 
sein. Storm und Agravain. der Ma¬ 
gier, beschließen, sich auf die Suche 
nach den Schlüsseln zu machen - ist 
das doch die einzige Möglichkeiten 
Una Cums Sanktuarium einzudrin¬ 
gen. Allerdings hat Una auch für die¬ 
sen Fall Vorsorge getroffen und in je¬ 
dem Haus der Ruinenstadt magische 
Generatoren aufgestellt. Sobald ein 
Fremder den betreffenden Raum be¬ 
tritt, beginnen die Generatoren Krie¬ 
ger auszuspucken, zwar nur Schein¬ 
bilder. aber Scheinbilder die töten 
können. 

Der einzige echte Mangel der Storm 
innewohnt, ist die Tatsache, daß es 
sich ausschließlich mit der Tastatur 
spielen läßt. Aber wie gesagt, das ist 
der einzige Mangel. Ansonsten ist 
Storm ein richtig gutes Arcaden- 
Abenteuer, das sogar ein Feature hat, 
das man nicht überall findet. Es ist 
möglich, in einem Spiel gleichzeitig 
mit zwei Spielern zu spielen. So las¬ 
sen sich die zu bewältigenden Aufga¬ 
ben noch ein wenig leichter mei¬ 
stern. 

Die Grafik präsentiert sich in einer 
akkuraten, bunt gestalteten Aufma¬ 
chung. Prädikat: Empfehlenswert. 


Spiky Harold 


Harold, der Igel, macht sich für den 
Winter bereit. Für den Winterschlaf 
braucht er eine anständige Fettschicht 
unter seinen Nadeln, will er den fol¬ 
genden Frühling auch erleben. 
Anfangs macht sich Harold keine 
großen Gedanken, allerdings, je wei¬ 
ter er auf seiner Suche vorankommt, 
desto schwieriger wird das Einsam¬ 
meln seiner Leckereien. Aber Harold 
ist guten Mutes, bisher hat er es noch 
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Das Traumtool 


Adventures erfreuen sich einer allseits 
wachsenden Beliebtheit. Sei dies nun 
bei jenen Leuten, die sich gerne vor ein 
gut gemachtes gekauftes Computer¬ 
abenteuer setzen, oder bei denen, die 
sich von der programmiertechnischen 
Seite her nähern, und sich ihre Adven¬ 
tures selber schreiben. Nun gibt es ein 
Programmiertool, das sich an die Ver¬ 
treter beider Seiten wendet. 


Der Graphic-Adventure-Creator 


Sicherlich haben viele unserer Leser 
schon einmal eine schlaflose Nacht 
vor ihrem Computer verbracht, nur 
weil sie an dem vermaledeiten 
Höhlenschrat nicht vorbeikommen. 
Sei das Problem, das sich ihnen in 
den Weg stellt, nun ein Höhlenschrat, 
ein Drache oder eine verschlossene 
Tür, eines ist ihnen allen gemeinsam, 
sie sind der Bestandteil eines Adven¬ 
tures. Nicht minder viele Leute haben 
aus einem anderen Grund ihren 
Rechner nächtelang nicht ausge¬ 
schaltet: Sie brüten vor einem 
Programm, das sie gerade erstellen. 
Fest steht außerdem noch, daß sich 
ein guter Teil der Programmierer, die 
sich die Nächte um die Ohren hauen, 
an Adventures herumhacken. In dem 
hier anstehenden Test wollen wir 
Ihnen ein Programmiertool vorstel¬ 
len, das gewiß viele Adventurespieler 
und noch mehr Adventureschreiber 
interessieren wird. Nämlich ein 
Programm, mit dem sich auf einfach¬ 
ste und sehr zeitsparende Art und 
Weise die spannendsten Adventures 
erzeugen lassen. Lassen Sie sich aber 
nun von dem Wort "erzeugen" nicht 
erschrecken, denn natürlich erzeugt 
der Graphic-Adventure-Creator nur 
das endgültige Programm aus den 


von Ihnen vorgegebenen Fakten. 
Also ist das erste wirklich interessante 
Feature, über das der GAC verfügt, 
die Tatsache, daß alle mit ihm erstell¬ 
ten Spiele komplett alleine laufen: 
also einen Code erzeugen, der "Stand 
allone" auf Ihrem Rechner läuft. Las¬ 
sen Sie doch erst einmal folgende 
Fakten auf sich wirken: bis zu 9999 
verschiedene Räume, 255 Objekte, 
255 Meldungen, 255 Verben, 255 Sub¬ 
stantive, 255 Adverben. Also wenn 
sich aus diesen Zutaten kein gutes 
Abenteuer brauen läßt, dann mit gar 
nichts. Doch damit sind noch nicht 
alle Features über, die der GAC ver¬ 
fügt. aufgezählt. Auch für die, die der 
Meinung sind, daß Graphikadventu- 
res das Allergrößte seien, ist der GAC 
das optimale Werkzeug. 

Wie der Name schon verrät, ist in dem 
Programm ein Graphiktool mit ein¬ 
gearbeitet. Und auch die mit diesem 
Tool erstellten Bilder lassen sich in 
das Programm miteinbinden. Aller¬ 
dings müssen wir hier auch darauf 
hinweisen, daß ohne eine zündende 
Idee selbst so ein ausgefeiltes 
Werkzeug wie der GAC nutzlos ist. 
Denn am Anfang eines guten Aben¬ 
teuers steht immer eine gute Story. Sie 
sollten sich also zuerst einmal überle¬ 
gen. um was es eigentlich in Ihrem 
Abenteuer gehen soll. Man braucht 
dabei eigentlich gar nicht so stur sein 
und sich diese Geschichte selbst aus¬ 
denken - manchem fällt eine solche 
Aufgabe sowieso nicht sehr leicht. 



überlegen Sie doch einmal ein 
bißchen. Sicherlich ist Ihnen in letz¬ 
ter Zeit ein Buch besonders in Erin¬ 
nerung geblieben; vielleicht läßt sich 
ja dessen Story mit leichten Änderun¬ 
gen adaptieren. Mit ein wenig Phan¬ 
tasie kann man sogar aus einem Mär¬ 
chen von den Gebrüdern Grimm ein 
fetziges Abenteuer machen. Haben 
Sie nun eine geeignete Geschichte? 
O.K., lassen Sie uns sehen, wie es 
weitergeht. 

Sie müssen sich nun eine Karte zeich¬ 
nen. in der Sie Ihre Handlung 
unterbringen. Am besten gehen Sie 
bei dieser Arbeit mit dem Papier 
nicht zu sparsam um. Liegt die 
großflächig gezeichnete Karte nun 
vor Ihnen, so schreiben Sie nun in die 
einzelnen Räume jeweils das, was 
wichtig in und an ihnen ist. Z.B.: Wie 
heißt der Raum, welche Objekte be¬ 
finden sich in ihm, soll etwas Beson¬ 
deres passieren, wenn der Spieler die¬ 
sen Raum betritt, oder soll etwas Be¬ 
sonderes durch bestimmte Handlun- 
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gen ausgelößt werden. Außerdem ver¬ 
merken Sie dann noch, welche der 
Objekte der Spieler aus dem Raum 
entfernen kann,und welche stationär 
sind. Wenn Sie sich jetzt noch überle¬ 
gen, welche Dialoge bzw. Texteinga¬ 
ben und Antworten, die in jedem 
Raum stattfinden, benötigt werden 
und sich diese auch noch, falls Sie 
dazu noch Platz haben, auf Ihrer 
Karte notieren, sollten Sie eigentlich 
alles Material zusammen haben, um 
ein gutes Abenteuer zu schreiben. Für 
das weitere Vorgehen gibt es nun ver¬ 
schiedene Möglichkeiten: Entweder 
Sie fangen nun an und generieren das 
Programm, oder aber Sie erstellen die 
für das Spiel benötigten Illustratio¬ 
nen. Würden wir vor dieser Wahl ste¬ 
hen, so würden wir uns für die Bilder 
entscheiden. Hier zeigt sich der GAC 
auch gleich von seiner besten Seite. 
Der Grafikeditor ist nämlich sehr 
ausgefeilt, und bietet eine Anzahl 
Optionen, die man zwar von norma¬ 
len Grafikprogrammen her kennt, 


die hier aber durch einen Trick ein 
wenig vervollkommnet wurden. Der 
GAC merkt sich jeden vom Anwen¬ 
der gesetzten Punkt und legt ihn in 
einer Tabelle ab. Durch diese Tabelle 
kann man blättern, und irrtümlich 
gesetzte Punkte, gezogene Striche 
oder gemalte Kreise, Rechtecke, aus¬ 
gefüllte Flächen oder was man sonst 
noch in seiner Grafik hat, läßt sich ge¬ 
nauso gut, wie es auf den Bildschirm 
gebracht wurde, auch wieder entfer¬ 
nen. Einzige Option, die wirklich 
vermißt wurde, war eine Lupe. Bilder 
lassen sich zusammenfassen und 
übereinander kopieren. Zum Erstel¬ 
len einer Grafik stehen dem 
Programmierer vier Grundfarben 
pro Bild zur Verfügung, die unterein¬ 
ander noch schattiert werden können. 
Daß sich damit eine ganze Menge an¬ 
fangen läßt, beweist das Demoadven- 
ture RANSOM, welches sich auf der 
GAC-Diskette befindet, auf recht ein¬ 
drucksvolle Weise. 

Nach dem Erstellen derbis zu999 Bil¬ 
der, legt man in einer Verbendatei alle 
im Programm erlaubten Tätigkeits- 
Wörter fest. Dabei ist es völlig egal, ob 
Sie nun deutsche Texte oder irgen¬ 
deine andere Sprache verwenden. Bei 
Persisch und Kyrillisch treten wegen 
des Zeichensatzes Schwierigkeiten 
auf, aber da es sehr wenig Adventure 
in einer dieser Sprachen gibt kann 
das nicht als Fehler gerechnet 
werden. 

Nach den Verben verfährt man ge¬ 


nauso mit Objekten, Beschreibungen 
von Objekten, Beschreibungen von 
Lokationen und Antworttexten. Sind 
die Wortdateien erstellt, geht es zum 
ersten Mal an Prioritäten von Bedin¬ 
gungen. Dies ist zwar immer noch 

sehr einfach zu handhaben, aber spä- \\ . 

testens hier muß man sich darüber im 
klaren sein, mit welchem Schlüssel, »Hl 
welche Tür geöffnet werden kann, !!!!!!" 
und in welchem Raum dieser Schliis- j!'n£ 
sei zu finden ist. Die Eingabe ist !|/i! 
wenn man sich die Struktur festgelegt 
hat, durch eine Tabellenform kinder¬ 
leicht und Verknüpfungen sind sofort !""jJ 
klar zu durchschauen. ''Uli 1 

Der Hauptpart, die eigentliche Y' 1 ' 
Adventurelogik, macht die wenigste 
Arbeit. Um die Bedingungen für Aus- J'jjj 
gänge, Räume und Bilder festzule- m!!ü!, 
gen, benötigt man nur minimale £![!; 
Kenntnis der englischen Sprache. 
Diese Logik wird in Zeilen von Befeh¬ 
len geschrieben, und enthält ein Kri¬ 
terium, auf das der Rechner eine be- lüllü! 
stimmte Aktion ausführen soll. Die 'Ijjjjj, 
Aufsplittung des eingegebenen Sat- Ijüll, 
zes erledigt der Parser automatisch, .lili 
Alle Daten über das Adventure kön- %!!!! 
nen selbstverständlich zwischenge- !|||!|: 
speichert werden und somit jederzeit ||!|j!|| 
auf Drucker zu Papier gebracht 
werden. 

Haben Sie alle Angaben gemacht, die jj||jj| 
Grafiken gemalt und alle Logikfehler 
korrigiert, so können Sie einen ",!!!!! 
Testlauf starten und nach erfolgrei- 
chem Abschluß Ihr eigenständiges i|"i"! 
Adventure kreieren lassen. ■l/ii 

Das umfangreiche deutsche Hand¬ 
buch ist mit Referenzkarten und Bei- mijj! 
spielen versehen, so daß ein erfolgrei- 
ches Arbeiten mit GAC überhaupt iljjlüi 
kein Problem sein sollte. ! Ijjjjj 

Auf der zu diesem Heft erhältlichen '!■ »i' 
Databox ist ein Demoprogramm des ij'" l [i 
GAC enthalten. , 1 ''"" 

(TM/HS) »i 
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Das ist die Software zum CRC Magazin 


DATABOX: 


— mehr als der übliche Soft¬ 
wareservice 


— bringt alle sechzehn Pro¬ 
gramme des Sonderhef¬ 
tes auf Kassette oder 3’ 1 
Diskette 


— Die Programme sind, 
durch den auf den Daten¬ 
träger enthaltenen CPC- 
Emulator, auf allen drei 
CPC-Rechnern lauffähig. 


— trägt das Titelbild des 
gleichzeitig erscheinen¬ 
den Sonderheftes. 



Listin gs: 

FLUGSIMULATOR 
GANGSTER 
THE DESIGNER 
ROLLENSPIEL-ADVENTORB 


S piele: 

DIE CREME DER CPC-SPIELE 


Spieleti ps: 


SHILFEN 


Hardware: 


Für alle CPC’s als Kas¬ 
sette und 3'’ Diskette. 


Inhalt der Databox zu 
Sonderheft 3/86 

Galactic Conflict 

Hubschrauber Simulator 

Gangster 

Elite-Commander 

Mühle 

Wipo 

Monstergarten 

Checksummer 

CPC-Emulator 

Entengeschichten 

The Designer 

Music Interrupt 

CPC-Monitor 

Listenverarbeitung 

Tape Monitor 

Disk-Patcher 

Tabwrite 


Ö. 

I 





% 






F 0. 


vSV 


Einzelbezugspreise für DATABOX: 

Diskette 3” 29,- DM zuzüglich 3,- DM Porto/Ver¬ 
packung (im Ausland zuzüglich 5,- DM Porto/Ver¬ 
packung). 

Kassette 19,- DM zuzüglich 3,- DMPorto/Ver- 
packung (im Ausland zuzüglich 5,- DM Porto/Ver¬ 
packung). 

Bitte benutzen Sie den Bestellcoupon! 
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^meider CPC international 

Postfach 250, 3440 Eschwege 
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Auch Knight Lore ist ein fast schon 

klassisches kombiniertes Labyrinth 
und Jump & Run-Spiel, das noch 
aus den Zeiten stammt, als "Ulti- 
mate" allerorten als Vorreiter der 
Branche mit immer neuen Ideen galt. 
Viele unserer Leser haben uns zu die¬ 
sem Spiel Karten zugeschickt. Dafür 
möchten wir uns auch herzlichst 
bedanken. 

Ganz genau hat Ute Pogrzeba das La¬ 
byrinth des Zauberers erkundet. Die 
Gegenstandsliste hat sie erarbeitet. 
Die Karte ist eine Coproduktion 
unserer Grafiker und all den Knight 
Lore-Kartographen, die uns ihre Er¬ 
fahrungen mitgeteilt haben. 

Bei jedem neuen Spielbeginn gibt es 
acht Möglichkeiten (siehe Liste), in 
welcher Reihenfolge die Gegenstände 
in den Räumen vorzufinden sind. 
Noch ein Tip: Den Raum des Zau¬ 
berers, in dem man die gewünschten 
Gegenstände in den Topf wirft, sollte 
man nur bei Tag betreten. 


Knight Lore 


1. Möglichkeil: 

Giftflasche (1) 
Diamant (2) 
Schuh (3) 

Tasse (4) 
Männchen (5) 
Flasche (6) 
Kelch (7) 

Kugel (8) 

5. Möglichkeit: 
Schuh (1) 
Giftflasche (2) 
Kelch (3) 
Flasche (4) 
Diamant (5) 
Kugel (6) 

Tasse (7) 
Männchen (8) 


2. Möglichkeit: 

3. Möglichkeit: 

4. Möglichkeit: 

Diamant (1) 

Kugel (1) 

Kelch (1) 

Männchen (2) 

Flasche (2) 

Schuh (2) 

Giftflasche (3) 

Männchen (3) 

Tasse (3) 

Kelch (4) 

Giftflasche (4) 

Kugel (4) 

Kugel (5) 

Tasse (5) 

Giftflasche (5) 

Tasse (6) 

Schuh (6) 

Männchen (6) 

Schuh (7) 

Diamant (7) 

Flasche (7) 

Flasche (8) 

Kelch (8) 

Diamant (8) 

6. Möglichkeit: 

7. Möglichkeit: 

8. Möglichkeit: 

Männchen (1) 

Flasche (1) 

Tasse (1) 

Kugel (2) 

Tasse (2) 

Kelch (2) 

Diamant (3) 

Kugel (3) 

Flasche (3) 

Schuh (4) 

Diamant (4) 

Männchen (4) 

Flasche (5) 

Kelch (5) 

Schuh (5) 

Kelch (6) 

Gift flasche (6) 

Diamant (6) 

Giftflasche (7) 

Männchen (7) 

Kugel (7) 

Tasse (8) 

Schuh (8) 

Giftfiasche (8) 
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Forest at Worlds End 


Sowohl von der Story, wie mich von 
der Machart lehnt sich ..Forest at 
Worlds End ein wenig an den 
Hobbit an. 

Der Spieler erhalt clie eh rem o 11 e Auf- 
gabe. eine schöne Prinzessin aus den 
Klauen eines bösen Zauberers zu be¬ 
freien. Doch bevor man dem Finster¬ 
ling entgegentreten kann, müssen 
zuerst einmal einige andere Aufga¬ 
ben gelöst werden. 

Diese Karte erleichtert Ihnen, auch 
ohne weitere Angaben, das Spielen 
ungemein. Machen Sie sich eine 
Fotokopie davon und tragen Sie dann 
in diese Kopie alle Ihrer Meinung 
■nach wichtigen Informationen ein. 
Sie werden sehen, vom guten Kar- 
tographieren hangt beim Abenteuern 
einiges ab. 
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Calactic Conflict 
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|| 1 MIII 

iniiii 


Galactic Conflict” wird von einem Spieler gegen den 
Computer, im lolgenden "Feind” genannt, gespielt. 

Beide Parteien haben bis zu 20 Schiffe zur Verfügung, die 
sie aufeinanderhetzen sollen. Der Feind steuert seine 
Schiffe mit verschiedenen Strategien: einige verhalten sich 
aggressiv, andere abwartend oder Fallen stellend. 

Der Spieler schickt nun seine Schiffe aus, um den Feind 
restlos auszurotten; dazu hat er zwei Waffen: 

1. Die Laserkanone. Je nach abgeschossener Energiela¬ 
dung und Trefferdistanz verändert sich der erzeugte 
Schaden. Dieser reicht jedoch oft nicht aus, um mit 
einem einzigen Schiff ein einzelnes Feindschiff abzu¬ 
ballern. Daher gibt es: 

2. die Raum-Minen. Abhängig von der Entfernung (mög¬ 
licherweise flüchtet der Feind, nachdem man die Mine 
gelegt hat) entsteht mittelschwerer bis schwerer Scha¬ 
den. Bei einem Volltreffer bleibt nichts vom getroffenen 
Objekt übrig. 

Apropos Objekt: derer gibt es zwei: 

1. Die Planeten. Dort kann der Spieler Energie nachtanken 
und, wenn er keine mehr hat, neue Minen besorgen. Der 
Feind kann lediglich Energie nachtanken. Planeten sind 
im allgemeinen nicht so einfach zu vernichten wie 

2. die Raumbasen. Dort kann man zwar auch Energie ab¬ 
holen, aber diese Menge ist kleiner als bei einem Pla¬ 
neten. Dafür darf der Feind sie nicht benutzen. Dieser 
revanchiert sich seinerseits wiederum durch Attacken 
gegen Basen. 

Sind alle der etwas empfindlichen Basen abgeschossen, 
ist das Imperium, welches der Spieler verteidigen sollte, 
nicht mehr vorhanden. 

Der Spieler kann Informationen über eigene Schiffe abru- 
fen und mit dem Password ”ENMSTR311671218" feindli¬ 
che Informationen abzapfen. 


(, 11,11 

,iiiiii 

IliiiJ! 
... 
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Ein-/Ausgabeformate: 

Der Ursprungspunkt (0;0) einer jeden Anzeige liegt in der 
linken oberen Ecke. Die auf dem oberen Teil des 
Bildschirms dargestellte Galaxis ist genau 20000 mal 
10000 Einheiten groß; folglich hat jeder einzelne Sektor 


eine Größe von 1000 mal 1000 Einheiten. Eine Raumein¬ 
heit zu durchfliegen kostet exakt eine Energieeinheit. 

Der in der Mitte unten dargestelltc Sektor bezieht sich auf 
das jeweils mit einer Zahlentaste angewählte aktuelle 
Schiff. Dabei wird das Schiff in der Mitte gezeichnet; d.h., 
es wird nicht immer genau ein ganzer Sektor dargestellt, 
sondern es sind auch noch Teile benachbarter Sektoren 
aulgezeichnet. Zudem ist der Anzeigebereich etwas klei¬ 
ner als ein voller Sektor. 

Bei der Eingabe von Winkeln (beim Schießen oder Na¬ 
vigieren) ist zu beachten, daß rechts 0 Grad ist und gegen 
den Uhrzeigersinn gezählt wird. 

Phasenaufteilung: 

Da nicht sämtliche befohlenen Aktionen sofort ausge- 
lührt werden, ist der folgende Phasenplan von Wichtig¬ 
keit: 

1. Eingabe (!) von Navigation 
Legen von Minen 
Schießen 

2. Bewegungen werden ausgeführt (Spieler und Feind) 

3. Minen explodieren 

Wenn der Benutzer eine Demonstration der verwendeten 
Shapes wünscht, wähle er bei der Eingabe des Schwie¬ 
rigkeitsgrades die Option CUSTOM (engl, ''benutzerbe¬ 
stimmt“) und gebe per Eland für jeden Typ die entspre¬ 
chenden Anzahlen ein. Dabei erscheinen jeweils die 
Shapes. 

Auf der Karte erscheinen alle Typen mit ihren Anfangs¬ 
buchstaben. (KJ. Wolf) 


10 ' <0 01/1986 written by K.J.Volf 


12806) 

20 'REMs werden nicht angesprungen! 


13207] 

30 CLEAR 


[217] 

40 TROFF 


[431] 

50 DEG 


[133] 

60 *ON BREAK CONT 


[3233 

70 OH ERROR GOTO 5460 


[1522] 

80 ENV 1,15,-1,10 


[704] 

90 ENV 2,4,-2,5,7,-1,50 


[1394] 

100 ENV 3,1,0,0 


[477] 

110 ENT 2,1,0,0 


[786] 

120 ENT 3,70,-10,5 


[795] 

130 DEFINT a-d,f-o,q-z 


[822] 

140 emovrain=300 


[844] 

150 rnchgstr!=0.02'probability of str 
ge <0-l> 

chan 

[3437] 

160 BORDER 1 


[1011] 

170 GOSUB 3750 


[1035] 

180 MODE 2 


[513] 

190 INK 0,0 


[531 

200 INK 1,23 


[59] 

210 CLS 


[91] 

220 DEF FNr <x)=INT(RND*x) 


[1736] 

230 DEF FNz <n)=-(n<l)-n*<n>=l> 


[7581 

240 DEF FNq!(n>=n*n 


[364] 

250 DEF FNm!<n!,a!>=n!-INT<n!/a*>*a! 


[1482] 

260 DIM px<4,20>,py(4,20),n(4>,lt(30), 

ln (3 

[5893] 

0), r$(19,9) , e<4,20) , tmCl) , in(10> , mvd(lO) , rav 
v(10),str(20),n$(4>,st$(2>,ff(10) 


270 FOR i = l TO FNm!(TIME, 3900) 


[ 1612] 

280 j =RND 


[539] 

290 NEXT 


[350] 

300 'RANDOMIZE TIME does not function 
er ly 

prop 

[3317] 

310 ORIGIN 316,135,160,472,32,239 


[1286] 

320 CLG 0 


[2221 

330 WINDOW #0,21,60,24,25 


[1303] 

340 PAPER 0 


[816] 

350 PEN 1,0 


[588] 

360 CLS 


[91] 

370 WINDOW #1,1,80,1,10 


[983] 

380 PAPER #1,0 


[1308] 

390 PEN #1,1,0 


[606] 

400 CLS #1 


[373] 

410 WINDOW #2,1,20,12,25 


11534] 

420 PAPER #2,0 


[1.080] 

430 PEN #2,1,0 


[748] 

440 CLS #2. . 


[372] 

450 WINDOW #3,61,80.11,25 


[1491] 

460 PAPER #3,0 


[1300] 


i 


46 CPC 


3 '86 Sonderheft 











nun 


iimm 


470 PEN #3,1,0 
480 CLS #3 

490 VINDOV #4,1,20,11,11 
500 PAPER #4,0 
510 PEN #4,1,0 
520 CLS #4 
530 ' 

540 PRINT #3, 

550 PRINT #3, 

560 PRINT #3, 

570 PRINT #3, 

580 PRINT #3, 

590 PRINT #3, 

PRINT #3, 


600 


’M-MINE LEGEN" 

■0.9-SHIFF NR." 

’D-DOCKEN" 

N-NAVIGI EREN" 

F-FEUERN” 

I-INFO" 

E-ENDE ZUG" 

610 DATA "PLANET","BASIS",”IHR SCHIFF","RA 
UMMINE" ."FBINDL. SCH IFF” 

620 DATA "VERTEIDIGUNG","NOTFALL","NORMAL" 
630 RESTORE 610 
640 FOR 1=0 TO 4 
650 READ n$(i> 

660 NEXT 

670 FOR 1=0 TO 2 
680 READ stS(i> 

690 NEXT 

700 PRINT "GALACTIC CONFLICT VI.Id” 

710 INPUT "UHRZEIT: Std,Min,Sek:",hours, mi 
nutes,seconds 

720 IF haurs<0 OR minutesCO OR seconds<0 O 
R hours>23 OR xainutes>59 OR seconds>59 THE 
N 710 

730 EVERY 50,0 GOSUB 760 
740 GOTO 820 
750 ' 

760 seconds=seconds+l 

770 IF seconds>59 THEN seconds=0:minutes=m 
inutes+1: IF minutes>59 THEN minutes=0: hour 
s=hours+l:SOUND 2,379,0,15,1:IF hours>23 T 
HEN hours=0 
780 LOCATE #4,1,1 

790 PRINT #4,USING "##:##:##”jhours,minute 
s, seconds; 

800 RETURN 
810 ' 

820 GOSUB 5530 
830 FOR 1=0 TO 4 

840 IF 103 THEN FOR j = l TO n(i):ON 1 + 1 GO 

TO 850,870,890,920,920 ELSE 970 

850 e(i, j >=50000 

860 GOTO 940 

870 e <1,j > =25000 

880 GOTO 940 

890 e(i, j >=6000+FNr(5500> 

900 m(j>=4 
910 GOTO 940 
920 e<i,j>=32500 
930 str(j)=FNr(5> 

940 px( i, j >=FNr <20000> 

950 py(1,j)=FNr(10000) 

960 NEXT j 
970 NEXT 1 
980 tm(0> =20000 
990 tm(1> = 10000 
1000 ' 

1010 LOCATE #3,1,9 
1020 PRINT #3,"MENUE " 

1030 GOSUB 4660 
1040 GOSUB 3560 
1050 GOSUB 4460 
1060 GOSUB 1620 
1070 LOCATE #3,1,9 
1080 PRINT #3,"ZUG 
1090 GOSUB 2430 
1100 LOCATE #3,1,9 
1110 PRINT #3,"MINEN ” 

1120 GOSUB 2940 
1130 GOSUB 3560 
1140 LOCATE #3,1,9 
1150 PRINT #3,"FEUERN" 

1160 GOSUB 3170 
1170 GOSUB 3560 
1180 GOTO 1010 

1190 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
*******************************^* #;(: 

1200 '** Anze 

ige ** 

1210 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

1220 IF refresh=0 THEN RETURN ELSE status= 
0:IF refresh=99 THEN 1480 


1700] 

1371] 

[1282J 

[1072] 

C 590] 

[386] 

[117] 

[ 1272] 

[1529] 

[765] 

[974] 

[401] 

[6853 

[10453 

[33903 

[21113 

[745] 

[4773 

[4873 

[3503 

[471] 

[1023] 
[3503 
[1307] 
12628] 


[5553 

[117] 

[873] 

[477] 

[44153 

[7423 

[3123 

[9063 

[3123 

[12403 

[3123 

[3123 

[562] 

[15423 

[5963 

[10163 

[370] 

[375] 

[710] 

[6633 

1117] 

[6913 

[10083 

[10613 

[9771 

[829] 

[8553 

[6913 

[8233 

[8613 

[6913 

[9623 

[8953 

[9773 

[6913 

[9813 

[9593 

[9773 

[3453 

[23713 

[5543 

[23713 

[36353 


1230 VHILE e<2,ship)<=0 [2088] 

1240 ship= (ship+1>*-(ship<n(2> >-<ship>=n<2 [1998] 

> > 

1250 VEND [390] 

1260 FOR 1=0 TO 19 [5323 

1270 FOR j =0 TO 9 [7233 

1280 r$(i,j)="" [1733 

1290 NEXT J.i [3963 

1300 n=0 [2333 

1310 CLG 0 [2223 

1320 xs=px(2,ship>\1000 [1428] 

1330 ys=py(2,ship)\1000 [14123 

1340 FOR 1=0 TO 4 [477] 

1350 IF n(i>=0 THEN 1400 ELSE FOR j=l TO n [31063 
(i):IF e <i,j > <=0 THEN 1390 

1360 IF refresh=88 THEN 1380 ELSE xO=px(i, [28313 
j > \1000 :yO=py<1,j) \1000 

1370 IF LEN(rS(xO,yO> > <4 AND (i<3 OR r$(xO [84753 
, yO) <>"" > THEN IF 102 THEN rS <x0, yO> = rS(x 
0,yO)+MID$("PBYMF",1+1,1) ELSE rS(xO,yO)=r 
$<x0, yO)+RIGHTS (STRS < j -1 > , 1) "'I 

1380 IF ABS(px(2, ship)- px(1, j > ><=500 AND A [150133 1,1 
BS(py(2,ship)-py(i,j>><=500 THEN x=(px(i,j ,|<i 

>-px(2,ship)> *0.16:y=-<py<i,j>-py(2,shlp>> 

*0.104:status=status OR (1=4):ON 1+1 GOSUB 
6970,7070,7210,7260,7340'range instead of 
sector!! 


[5440] 

1390 

NEXT j 

[3703 


1400 

NEXT i 

[3753 


1410 

IF refresh=88 THEN 1480 

[14303 

[17383 

1420 

CLS #1 

[3733 

[3203 

1430 

FOR i=0 TO 19 

[5323 

[1173 

1440 

FOR j =0 TO 9 

[7233 

[13783 

1450 

LOCATE #1, i*4 +1,j + 1 

[648] 

[85093 

1460 IF r$(i,j)="" THEN PRINT #1,"."; ELSE 
PRINT #1,r$(i,j); 

[24543 


1470 

NEXT j,i 

[3963 


1480 

CLS #2 

r 3723 

[3643 

[22163 

1490 

1 

PRINT #2,"Shiff Nr.:”;USING "#";ship- 

[31253 


1500 PRINT #2, 
<2,ship) 

1510 PRINT #2, 


'Energie :";USING "#####,";e 


;USING "##/#";px( 


'Position 

2,ship)\1000,py<2,ship)\1000 
1520 PRINT #2,"Pos.Sek.: ";USING "#/#";(px 
<2,ship) MOD 1000)\100,<py<2,ship) MOD 100 
0)\100 

1530 PRINT #2,"Minen USING ”#";m(ship 

1540 IF Status THEN status=0 ELSE IF e(2,s 
hip)<4000 THEN status=l ELSE status=2 
1550 LOCATE #2,1,8 
1560 PRINT #2,st$(Status) 

1570 refresh=0 
1580 RETURN 

1590 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

1600 'XX Ziehen/Feuern 

/Minen legen ** 

1610 '************************************ 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

1620 GOSUB 1220 

1630 PRINT "Hauptmenue - waehlen Sie eine 
Funktion" 

1640 CLEAR INPUT 

1650 ' CLRINP kann weggelassen werden 

1660 a$=INKEYS 

1670 IF a$="" THEN 1660 

1680 a$=LGVERS(a$> 

1690 refresh=a$="i” OR a$="ra" OR aS="f" 
1700 CLS 

1710 IF (a$="0" OR VAL(aS)OO) AND VAL(a$) 
<n(2) THEN refresh=88:ship=VAL(a$)+1:GOTO 
1620 

1720 IF a$=”i” THEN GOSUB 4920:GOTO 1620 
1730 IF a$="ni" THEN GOSUB 1760 ELSE IF a$= 
"d" THEN GOSUB 1850 ELSE IF a$="n" THEN GO 
SUB 2050 ELSE IF aS="f" THEN GOSUB 2130 EL 
SE IF aS=”e" THEN CLS #1:CLG 0:CLS #2:RETU 
RN 

1740 GOTO 1620 
1750 'min 

1760 PRINT "MINE LEGEN - SIND SIE SICHER?? 

1770 a$=INKEYS 

1780 IF a$="" THEN 1770 

1790 CLS 

1800 a$=LOVER$(aS) 

1810 IF aSO"j” THEN RETURN 


[19933 

[41413 

[40353 

[21873 

[56753 

16413 
[15103 
[8483 
[5553 
[23713 

[19643 

[23713 

[8713 

[27623 

[1843 

[23793 

[2783 

[7153 

[9853 

[2389] 

[913 

[65463 


C 2303] 
[88273 
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[5823 
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[2783 

[717] 
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1820 IF m(ship>>0 THEN m(ship)=m(ship)-1: n 
(3>=n(3)+l:px<3,n<3)>=px(2,ship):py(3,n(3) 
>=py(2,ship):e(3,n(3))=10 ELSE PK INT "kein 
e Minen" ; GOSUB 4810 
1830 KETURN 
1840 'dock 

1850 PRINT "DOCKEN mit S)chiff / P)lanet / 
B)asis" 

1860 a$=INKEY$ 

1870 IF a$="" THEN 1860 
1880 CLS 

1890 a$=L0VER$(a$) 

1900 i=-l 

1910 IF a$="s" THEN i=2 ELSE IF a$="p” THE 

N i=0 ELSE IF a$="b" THEN i=l 

1920 IF i=-l THEN PRINT "Fehler":GOSUB 481 

0:RETURN 

1930 k=0 

1940 FOR j=l TO n(i) 

1950 IF SQR(FNq!(px(2,ship)-px<i,j)> +FNq!< 
py<2,ship)-py<i,j)))<200 AND e(i,j)>0 THEN 

1960 NEXT 

1970 IF k=0 THEN PRINT "Zu weit!”:GOSUB 48 

10:RETURN 

1980 refresh=99 

1990 GOSUB 4460 

2000 GOSUB 4460 

2010 IF i=2 THEN PRINT "DOCK OK. Uebertrag 
ungsenergie?";:GOSUB 6160:e=INT(tx):CLS;IF 
e=0 THEN RETURN ELSE IF e<l OR e>e(2,k>-2 
50 OR e+e <2, ship)>tm<0> THEN 2010 ELSE e(2 
,ship>=e<2,ship)+e:e(2,k)=e(2,k)-e-150:RET 
URN 

2020 IF i=0 AND m<ship><=0 THEN m(ship)=l: 

PRINT "1 Mine geladen":GOSUB 4810 

2030 IF tm(i)<e<2,ship)+3500 THEN PRINT "P 

otential zu hoch":GOSUB 4810:RETURN ELSE e 

<2,ship)=tm(i>:RETURN 

2040 'nav 

2050 PRINT "NAV - Richtung: Winkel?"; 

2060 GOSUB 6160 

2070 mvv<ship)=tx 

2080 PRINT "NAV - Entfernung?"; 

2090 GOSUB 6160 
2100 mvd<ship)=tx 

2110 IF mvv(ship)<0 OR mvv(ship)>360 OR rav 
d(ship)<0 THEN 2050 ELSE CLS:RETURN 
2120 'fire 

2130 IF ff(ship) THEN PRINT "Sie haben ber 
eits gefeuert”:GOSUB 4810: RETURN ELSE ff(s 
hip)=-l 

2140 PRINT "FEUERN - Richtung: Winkel?" ; 

2150 GOSUB 6160 
2160 ia=tx 
2170 PRINT 
2180 GOSUB 6160 
2190 ip-tx 

2200 IF ip=0 THEN RETURN ELSE IF ia<0 OR i 

a>360 OR ip<1 OR ip>e(2,ship) THEN 2130 

2210 e(2,ship)=e(2,ship)-ip 

2220 d0=32000 

2230 k0=601 

2240 FOR i=0 TO 4 

2250 IF n(i)<=0 OR i=3 THEN 2290 ELSE FOR 
j = l TO n (i) : IF e(i,jX=0 OR (i=2 AND J=shi 
p) THEN 2280 

2260 k=SQR(FNq!(px(2,ship)-px(i,J))+FNq!(p 
y(2,ship)-py(i,j))) 

2270 IF k<>0 AND k<600 THEN x=px(2,ship)+k 

*COS(ia):y=py(2,ship)-k*SIN(ia):d=SQR(FNq! 

(x-px(i,j))+FNq!(y-py(i,j>)> : IF d<d0 THEN 

k0=k:d0=d:10=1:J0=j : x0=x: y0=y 

2280 NEXT j 

2290 NEXT i 

2300 MOVE 0.0 

2310 IF d0<601 THEN DRAW (x0-px(2,ship)>*0 
.16,-(y0-py(2,ship)>*0.104,1, 1 ELSE DRAVR 
COS(ia)*200,SIN(ia)*200, 1,1 
2320 GOSUB 4500 

2330 IF d0<250 THEN PRINT "GETROFFEN (JUBE 
L,JUBEL)!":e(i0,j0)=e(i0,j 0)-110*ip/FNz(dO 
) : GOSUB 4540: IF e(10,JOX = 0 THEN GOSUB 458 
0:GOTO 2360 ELSE 2360 
2340 PRINT "DANEBEN..." 

2350 ' HEUTE SCHON DIE TAEGLICHE DOSIS FLA 
SCHBIBR GEHABT? 

2360 IF d0<32000 THEN PRINT "Relative Entf 
ernung:";CINT(dO) 


'FEUERN - Energie?' 


C 90231 


C5553 

[7431 

[4027] 

[278] 

[754] 

[91] 

[985] 

[453] 

[4140] 

[2959] 

[189] 

[1036] 

[4820] 


[350] 

[2159] 

[989] 

[829] 

[829] 

[12745] 


[36853 

[7546] 


[ 138] 

[3151] 

[907] 

[649] 

[1775] 

[907] 

[789] 

[5197] 

[380] 

[4943] 


[3472] 

[907] 

[2063 

[2679] 

[907] 

[231] 

[53683 

[848] 

[730] 

[3623 

[477] 

[51453 


[25403 

[9632] 


[3703 

[3753 

[4833 

[6301] 


[837] 

[87973 


[22153 

[37533 

[4685] 


[960] 

[1063] 

[5553 

[2371] 


2370 GOSUB 4810 
2380 GOSUB 4610 
2390 RETURN 

2400 '*XXXX*X*ttX*X*XXtXtXX*X*XXXX*XtX*XX* 
X********************************** 

2410 Ziehen/feind [1651] 

1. Manoever ** 

2420 '********^*****************^********* [2371] 

***********t*************x*****x*** 


2430 FOR i=l TO n(2> 

2440 IF mvd(i)=0 OR e(2,i><=0 THEN 2530 
2450 mvd(i)=mvd(i)+FNr(mvd <i)\75)-FNr(ravd( 
i)\75) 

2460 IF ravd(i> >e(2,i) THEN PRINT "Shiff Nr 
.";i-1;"ohne Energie":PRINT "Aktion abgebr 
ochen";:GOSUB 4810:GOTO 2530 
2470 e(2, i)=e(2, i)—mvd(i) 

2480 x=px(2, i)+mvd(i)*COS(mvv(i)> 

2490 y=py(2, i)~mvd(i)*SIN(mvv(i)> 

2500 IF x<=0 OR y<=0 OR x>=20000 OR y>=100 
00 THEN PRINT "Fehler: Shiff Nr.";i-1;"ver 
laesst Galaxis":PRINT "alle Maschinen voll 
e Kraft f.Raumsprung" ;: e(2,i) = INT(e(2, i)/I 
0):x=FNr(20000):y=FNr(10000):GOSUB 4810 
2510 px(2,i)=x 
2520 py(2,i)=y 
2530 NEXT i 
2540 ' 

2550 FOR i=l TO n(4) 

2560 IF RNDCrnchgstr! THEN str(i)=FNr(5) 
2570 IF e(4,i)<=0 0R RND>rnemov! THEN 2790 
ELSE ON str(i)+1 GOTO 2580,2620,2660,2700 
,2740,2750 
2580 j=-l 
2590 k=2 
2600 GOSUB 2810 
2610 GOTO 2790 
2620 j=l 
2630 k=l 
2640 GOSUB 2810 
2650 GOTO 2790 
2660 j=l 
2670 k=0 
2680 GOSUB 2810 
2690 GOTO 2790 
2700 j=l 
2710 k=2 
2720 GOSUB 2810 
2730 GOTO 2790 
2740 GOTO 2790 
2750 j=l 
2760 k=0 
2770 GOSUB 2810 
2780 str(i)=FNr(5) 

2790 NEXT 

2800 RETURN 

2810 d=32000 

2820 FOR i0=l TO n(k) 

2830 d0=SQR(FNq!(px(k,i0)-px(4,i))+FNq!(py 
(k,i0>-py(4,i)>) 

2840 IF e(k,i0)>0 AND d0<d AND d0>emavrain* 
j THEN d=d0:il=i0 
2850 NEXT 

2860 IF d=32000 THEN str<i)=FNr(5):RETURN 
ELSE IF e(4,i)<1500 THEN str(i>=5:k=0:j=l: 
GOTO 2810 

2870 IF d>e(4,i) THEN IF str(i>=5 THEN str 
(i)=FNr(5):RETURN ELSE str(i)=5:RETURN 
2880 IF j=-l THEN d0=FNr(500)+500:x0=-SGN( 
px(k,il)-px(4,i))*d0:y0=-SGN(py(k,il)-py(4 
,i))*d0:d=SQR(FNq!(xOXFNq!(yO)) : x0=x0+px( 
4,i):y0=y0+py(4,i) ELSE x0=px(k,i1>+FNr(80 
0)-400:y0=py(k,il)+FNr(800)-400 
2890 IF x0>0 AND y0>0 AND x0<20000 AND y0< 
10000 THEN e(4,i)=e(4,i)-d;px<4,i)=x0:py(4 
,i> =y0: IF k=0 AND e(4,i)<tm(0) THEN e(4,i) 
=tm(0) 

2900 RETURN 

2910 'X******t**XX**XXX*X***X*XXXXtXXX*X*X 
*********X*************t*********** 

2920 '** Minen exp 

lodieren ** 

*txxxx*xxt***xx**xx***xxxx**xx*x*xt 

2940 IF n<3)<=0 THEN RETURN ELSE FOR i=l T 
O n(3>:IF e(3,i)<=0 THEN 3070 
2950 xs=px(3 r i> 

2960 ys=py(3,i) 

2970 PRINT "MINE EXPLODIERT IN QUADRANT "; 


[426] 

C1993] 

C2578] 

[72003 


[731] 

[2946] 

[21463 

[14297] 


[411] 

[142] 

[3753 

[117] 

[4383 

[1380] 

[4466] 


[461] 
[1873 
[849] 
[317] 
[411] 
[192] 
[8493 
[3173 
[4113 
[189] 
[849] 
[317] 
[4113 
[1873 
[8493 
[317] 
[3173 
[411] 
[1893 
C 8493 
C660] 
[3503 
C5553 
[7543 
[7743 
[3568] 

[16413 

[350] 

[7124] 


[4698] 

[119393 

[72043 


[555] 

[2371] 

[1308] 

[2371] 

[2915] 

[12643 

[1162] 

C43233 


48 CRC 
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USING ”##/#";xs\1000,ys\1000 
2980 GOSUB 6090 
2990 GOSUB 4540 
3000 FOR j =0 TO 4 

3010 IF j =3 THEN 3050 ELSE FOR k=l TO n<j) 

3020 iO=SQR(FNq!(px(3,i)-px(j,k))+FNq!(py< 

3,i)-py(j, k) ) > 

3030 IF 10<=350 AND e(j,k)>0 THEN e(j,k)=e 
<j,k>-2000000/FNz (i0> :PRINT "Treffer! "; : I 
F e(J,k)<=0 THEN GOSUB 4580 
3040 NEXT k 
3050 NEXT j 
3060 PRINT 
3070 GOSUB 4810 
3080 GOSUB 4610 
3090 e(3,1)=0 
3100 NEXT i 
3110 n(3)=0 
3120 CLG 0 
3130 RETURN 

3140 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

3150 'XX feindl. 

Feuer ** 

3160 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

3170 FOR k=l TO n<4) 

3180 IF e(4,k)<4000 THEN str(k)=5 
3190 enm=0 
3200 fp=0 
3210 FOR 1=0 TO 2 
3220 FOR j=l TO n<i> 

3230 IF e(i,j)>0 THEN d=SQR<FNq! (px(4,k >-p 
x<1,j))+FNq!(py(4,k)-py(i,j >)): IF d<600 TH 
EN ON 1+1 GOSUB 3280,3300,3320:IF f THEN 3 
260 

3240 NEXT j,1 

3250 IF enm>1 THEN str(k)=0 
3260 NEXT k 
3270 RETURN 
3280 fp=-l 
3290 RETURN 

3300 IF str<k>=l OR str(k)=4 THEN 3350 
3310 RETURN 
3320 enm=enrn+l 

3330 IF (str(k)=2 AND fp) OR str(k)=3 OR s 
tr<k> =4 THEN 3350 
3340 RETURN 

3350 IF RND>rneflr t THEN f=0:RETURN ELSE f 
=-l 

3360 xs=px(i,j) 

3370 ys=py(i,j) 

3380 PRINT "feindl. Beschuss in USING "# 

#/#” ; xs\1000,ys\1000 
3390 GOSUB 6090 
3400 MOVE 0,0 

3410 DRAV (px(4,k)~xs)*0.16,-<py<4,k)-ys)* 
0.104,1,1 
3420 GOSUB 4500 
3430 GOSUB 4540 
3440 ip=CINT(e(4, k>/10> 

3450 e<4,k)=e<4,k)-lp 
3460 d=d/5-FNr<d/10> 

3470 e(i,j)=e(i,j)-100*ip/FNz(d) 

3480 IF e(1,j)<=0 THEN GOSUB 4580 
3490 GOSUB 4810 
3500 GOSUB 4610 
3510 CLG 0 
3520 RETURN 

3530 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

3540 '** Test: wer u [1360] 

eberlebt? *** 

3550 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX [2371] 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


[833] 

[829] 

[692] 

[8053 

[28993 

[57583 


[373] 

[3703 

[3613 

[9603 

[10633 

[4113 

[3753 

(4203 

[2223 

[5553 

[23713 

[13813 

[23713 

[15223 

[8733 

[1093 

[426] 

[471] 

[1036] 

[56933 


[396] 

[1229] 

[373] 

[555] 

[4893 

(555] 

[14653 
(5551 
[456] 
[3627] 

(5553 

[1598] 

[1384] 
(1452] 
[3967] 

[8333 

[4833 

[29463 

(8373 

C829] 

[1277] 

[9493 

[1090] 

[ 14473 
(16673 
[960] 
[10633 
[ 222 ] 
(5553 
[2371] 


1,12:SPEED INK 15,15: INK 2,3,12:PAPER 2:P 


:PRINT "Calle Feind 
PAPER 0:PRINT:PRINT 


3560 f=0 
3570 FOR i=l TO n<2> 

3580 f=f OR e(2,i>>0 
3590 NEXT 

3600 IF f = 0 THEN n=REMAIN<0) : MODE 0:LOCATE 
1,12:SPEED INK 15,15:INK 2,3,12:PAPER 2:P 
RINT "SIE VERLIEREN!!":PRINT "(alle Ihre S 
hiffe":PRINT " vernichtet)":PAPER 0:PRINT: 
PRINT:END 
3610 f=0 

3620 FOR i=l TO n(4) 

3630 f=f OR e(4,i>>0 
3640 NEXT 

3650 IF f=0 THEN n=REMAIN(0) : MODE 0:LOCATE 


[3923 

[426] 

[10633 

[3503 

[111363 


[392] 

[438] 

(13283 

[350] 

[96903 


A L 
0 N 


I C" 
C T" 


Version 
(C)" 
Jan 86 
b y" 


1. Id" 


RINT "SIE GEVINNEN!!!! 
e";PRINT " zerstoert)" 

: END 

3660 f=0 

3670 FOR i=l TO n(l) 

3680 f=f OR e(1,i)>0 
3690 NEXT 

3700 IF f=0 THEN n=REMAIN(0) : MODE 0:L0CATE 
1,12:SPEED INK 15,15:INK 2,3,12:PAPER 2:P 
RINT "SIE VERLIEREN!!":PRINT "(alle Basen” 
:PRINT ” verloren)":PAPER 0:PRINT:PRINT:EN 
D 

3710 RETURN 

3720 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

3730 'XX Hall 

o! XXX 

3740 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

3750 SYMBOL AFTER 248 

3760 SYMBOL 248,0,0,198,198,198,252,192,19 
2 

3770 SYMBOL 249,8,16,124,198,198,124 
3780 SYMBOL 250,0,0,124,198,198,124 
3790 SYMBOL 251,0,0,198,102,108,240 
3800 SYMBOL 252,0,0,48,48,48,24 
3810 SYMBOL 253,0,0,230,110,126,103 
3820 SYMBOL 254,0,0,124,192,192,124,6,12 
3830 DATA 248,249,251,250,252,253,250,254 
3840 MODE 0 
3850 INK 0,0 
3860 INK 1,23 
3870 PAPER 0 
3880 PEN 1,0 
3890 LOCATE 1,7 
3900 PRINT 
3910 PRINT 
3920 PRINT 
3930 PRINT 
3940 PRINT 
3950 PRINT 
3960 PRINT 
3970 PRINT 
3980 RESTORE 3830 
3990 FOR i=l TO 8 
4000 READ J 
4010 PRINT CHRSCj); 

4020 NEXT 

4030 LOCATE 1,24 

4040 PRINT "(A)nleitung oder” 

4050 PRINT” (S)piel” 

4060 FOR i=2 TO 15 
4070 INK i,0 
4080 NEXT 
4090 j =2 

4100 FOR i=306 TO 400 STEP 10 
4110 MOVE 303,306 
4120 DRAV 0,i,j,0 
4130 j=j+l 

4140 IF J >15 THEN j=2 
4150 NEXT 

4160 FOR i=0 TO 640 STEP 20 
4170 MOVE 303,306 
4180 DRAV i,400,j 
4190 j=j+l 

4200 IF J >15 THEN j=2 
4210 NEXT 

4220 FOR i=400 TO 306 STEP -10 
4230 MOVE 303,306 
4240 DRAV 640,i,j 
4250 j=j+l 

4260 IF j >15 THEN j*2 
4270 NEXT 
4280 DIM a(15) 

4290 FOR i=2 TO 15 
4300 a(i)=(i-2) X2 
4310 NEXT 
4320 a$="" 

4330 VHILE a$="" 

4340 a$=INKEY$ 

4350 a(l)=a(2) 

4360 FOR i=2 TO 15 
4370 INK i,a(i) 

4380 IF i<15 THEN a(i)=a(i+l) 

4390 NEXT 
4400 a(15)-a(1> 

4410 VEND 

4420 IF LOVER*Ca$)="a" THEN 6260 ELSE RETU 


[3923 

(4483 

(10553 

[3503 

(100403 


[5553 

[23713 

[509] 

[23713 

[14163 

[20253 

[21703 

[23303 

[19433 

[16293 

[1636] 

[2214] 

[15343 

(5073 

[53] 

[59] 

[8163 

[588] 

[629] 

[1354] 

[14473 

[3611 

[16993 

[9293 

[587] 

[763] 

[7503 

[777] 

(4623 

(4553 

[1164] 

[350] 

[7283 

[22263 

[7693 

[610] 

(3373 

[3503 

[4143 

[9923 

[3173 

(4343 

(5443 

[8393 

[350] 

[5553 

[3173 

[3673 

[5443 

[839] 

[3503 

[ 1060] 

[3173 

[1913 

[544] 

(8393 

(3503 

[1043 

(6103 

[5363 

[350] 

[388] 

[9333 

[278] 

(5513 

[6103 

[7883 

[13833 

(3503 

[6193 

[390] 

(2627] 
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LISTinCS 


Mim I I I II IIMMI I I IIIIII mm II MM Hill ! I III..IIIII llll lllimillllllllllllll III MIM Ml Mil II MH 


Hlil" 


< 1 . 11 : 


i ii i n i 
IIhiiii 


•l/ll 


RN 

4430 '************************************ [23713 
*********************************** 

4440 '** Gong,Zap,Ba [1986] 

ff,Flimmer ** 

4450 '************************************ [2371] 
*********************************** 


5140 PRINT #2,"Anzahl Minen" [1840] 

5150 PRINT #2," NAV-Vinkel &" [575] 

5160 PRINT #2,” Entfernung” [1170] 

5170 PRINT "naechste Datenseite benoetigt [3461] 

ein" 

5180 PRINT "SysOp Password Stufe 1" [2759] 

5190 FOR i=0 TO 5000 [439] 


4460 

SOUND 1,95,0,15, 

1 


[15473 

5200 NEXT 

[350] 

4470 

VHILE SQ<1) AND 

&80 


[11093 

5210 CLS 

[913 

4480 

VEND 



[390] 

5220 PRINT "Pass:"; 

[11663 

4490 

RETURN 



[5553 

5230 GOSUB 6160 

[907] 

4500 

SOUND 1,400,500, 

15,2,2, 

15 

[1757] 

5240 pwS=tx$ 

[3263 

4510 

VHILE SQ<1) AND 

& 80 


[11093 

5250 CLS 

[91] 

4520 

VEND 



[3903 

5260 IF LOVERS(pw$) 0"enmstr311671218" THE 

[59123 

4530 

RETURN 



[5553 

N PRINT "PASSVORD ERROR”:GOSUB 4810:CLS #1 


4540 

SOUND 1,700,350, 

15,3,3, 

15 

[15593 

:CLS #2:RETURN 


4550 

VHILE SQ<1) AND 

&80 


[11093 

5270 CLS #1 

[3733 

4560 

VEND 



[390] 

5280 CLS #2 

[3723 

4570 

RETURN 



[555] 

5290 FOR j = l TO n<4> STEP 2 

[15643 

4580 

BORDER 12,15 



(11893 

5300 FOR i=j TO j+1 

[13133 

4590 

SPEED INK 1,1 



[1280] 

5310 PRINT #ch,TAB< <i-j)*40);USING "## ";i 

[31423 

4600 

RETURN 



[5553 

; 


4610 

BORDER 1 



[10113 

5320 IF e(4,i> >0 THEN PRINT #ch,USING "### 

[80013 

4620 

RETURN 



[5553 

##/#### #####, #";px(4,i),py<4,i),eC4,i),s 


4630 

'************************************ 

[2371] 

tr(i> j ELSE IF i<=n(4) THEN PRINT #ch,"ZER 



*********************************** 

4640 '** alles klaeren; E [2066] 

nergieverbrauch ** 

4650 '************************************ [2371] 
*********************************** 

4660 refresh=-l [1053] 

4670 FOR i=l TO n<2) [426] 

4680 mvd<i>=0 [313] 

4690 mvvCi)=0 [377] 

4700 ff <i)=0 [485] 

4710 e<2,i)=e<2,i>-100 [960] 

4720 NBXT [350] 

4730 FOR i=l TO n<4> [438] 

4740 e<4,i)=e<4,i>-100 [592] 

4750 NEXT [350] 

4760 ship=0 [655] 

4770 RETURN [555] 

4780 '************************************ [23713 
*********************************** 

4790 '** Tasten [1040] 

druck ** 

4800 '************************************ [23713 
*********************************** 

4810 LOCATE #3,1,11 [6463 

4820 PRINT #3,"TASTENDRUCK!” [1536] 

4830 VHILE INKEYS="" [1095] 

4840 VEND [390] 

4850 LOCATE #3,1,11 [646] 

4860 PRINT #3," " [12633 

4870 CLS [913 

4880 RETURN [5553 

4890 '************************************ [2371] 
*********************************** 

4900 '** Info-S [1514] 

eiten ** 

4910 '************************************ [2371] 


'II"" 1 

4920 

CLG 0 

[2223 

iin ii i 
1" 1 

4930 

CLS #1 

[3733 

"illi 

4940 

CLS #2 

[372] 


4950 

CLS 

[913 

ii il'l, 

4960 

PRINT "Daten zum Drucker? " 

(32053 

ml 1 ll 
.iiii, 

4970 

aS="” 

[3883 

lliilln 

iiiiiiii 

4980 

VHILE aS="" 

[9333 

lliinn 

4990 

a$=INKEYS 

[2783 

'.mH 

5000 

VEND 

[3903 

H.llJI 

5010 

CLS 

[913 

miim 

■Mi. 

5020 

IF LOVERS<a$)="j" THEN ch=8 ELSE ch=l 

[1184] 

inliii 

5030 

IF < INPC&F500) AND 64)00 AND ch=8 TH 

[55823 

'i.ii'li 

EN PRINT "Drucker nicht bereit!":GOTO 4960 



5040 

FOR J = 1 TO n<2> STEP 2 

[11933 


5050 

FOR i=j TO j+1 

[13133 

iii:::: 

5060 
^ , 

PRINT #ch,TABC<i-J)*40> ; USING ”# " ; i- 

[33813 

lillil! 

Imin 

5070 

IF e <2,i)>0 THEN PRINT #ch,USING "### 

[9211] 


"ni" 1 


iiiiiiii 

■l.ll'll 


##/#### #####, # ### #####, "jpx(2,i),py<2, 
i>, e<2, i>, ra(i),mvv<i>,mvdCi); ELSE IF i<=n 
<2) THEN PRINT #ch,"ZERSTOERT"; 

5080 NEXT [350] 

5090 NEXT [350] 

5100 PRINT #2,nS <2 > [553] 

5110 PRINT #2,"Daten-Liste zeigt:" [13353 

5120 PRINT #2. "Position X/Y" [1974] 

5130 PRINT #2,"Energie Einheiten" [1714] 


STOERT": 

5330 NEXT [3503 

5340 NEXT [3503 

5350 PRINT #2,n$ (4) [5653 

5360 PRINT #2,"Daten-Liste zeigt:” [13353 

5370 PRINT #2,"Position X/Y” [1974] 

5380 PRINT #2,"Energie Einheiten" [17143 

5390 PRINT #2,"STRATEGIE-CODE" [1437] 

5400 PRINT "Vertraulich! - bitte pruefen S [32223 
ie" 

5410 GOSUB 4810 [9603 

5420 CLS #1 [3733 

5430 CLS #2 [3723 

5440 RETURN [5551 

5450 '************************************ [23713 
*********************************** 

5460 '** Fehler-Falle !Auf [1499] 

passen mit RENUM! ** 

5470 '************************************ [23713 
*********************************** 

5480 DI C84] 

5490 IF ERL=6230 THEN EI:RESUME 6160 ELSE [47403 
n=REMAIN(0>:MODE 2:0N ERROR GOTO 0 
5500 '************************************ [23713 
*********************************** 

5510 '** User: Szenari [28223 

a festlegen *** 

5520 '************************************ [23713 
*********************************** 

5530 PRINT "Vaehlen Sie den Schwierigkeits [51113 
grad:" 

5540 PRINT " 1 < leicht)-4(unmoeglich)/5: eige [4217] 
ne Verte" 

5550 rnefir!=0.4 [13023 

5560 a$="" [3883 

5570 VHILE aS="" [933] 

5580 aS=INKEYS [278] 

5590 VEND [390] 

5600 IF a$<"1" OR aS>"5" THEN 5560 [23443 

5610 CLS [91] 

5620 ON VAL(aS) GOTO 5630,5690,5750,5810,5 [17763 

870 

5630 rnemov!=0.3 [11843 

5640 n<0)=20 [420] 

5650 n(l>=20 C2453 

5660 n <2)=5 [4113 

5670 n<4> =5 [3633 

5680 RETURN [5553 

5690 rnemov!=0.4 [1175] 

5700 n(0)=15 [4253 

5710 n<1>=10 [2553 

5720 n<2)=10 [399] 

5730 n< 4)=15 [4893 

5740 RETURN [5553 

5750 rnemov!=0. 65 [11583 

5760 n<0)=7 [2653 

5770 n<1> = 10 [2553 

5780 n<2)=10 [399] 

5790 n<4)=20 [484] 

5800 RETURN [5553 

5810 rnemov!=0. 775 [1196] 

5820 n<0)s3. [2693 

5830 n<1> =7 [225] 

5840 n<2)=10 C399] 


50 CPC 
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5850 n<4)=20 
5660 RETURN 
5870 FOR i=0 TO 4 

5680 IF i<>3 THEN x=0:y=0:ON i+1 GOSUB 697 
0,7070,7210,7260,7340:WHILE n<i><l OR nCl) 
>20+10*<i=2):PRINT "<";n$<i);") Vie viele? 

GOSUB 6160:n(i)=tx:WEND:CLG 0 
5890 NEXT 
5900 CLS 

5910 PRINT "feindl.Aktivitaet (0=null-l=su 
perhoch)" 

5920 LOCATE 1,2 
5930 PRINT SPACES<19); 

5940 LOCATE 1,2 

5950 PRINT "Bewegung:”; 

5960 GOSUB 6160 
5970 rnemov!=VAL<tx$> 

5980 LOCATE 1,2 
5990 PRINT SPACES<19); 

6000 LOCATE 1,2 

6010 PRINT "Laserbenutzung:"; 

6020 GOSUB 6160 
6030 rnefir!=VAL <txS) 

6040 IF rnemov! <0 OR rnefirXO OR rnemov!) 

I OR rnefir!>1 THEN 5920 ELSE CLS 
6050 RETURN 

6060 'X**********************.**.**.********* 
*********************************** 

6070 '** Anleitung (v 

on Hallo!) *** 

6080 '************************************ 
*********************************** 

6090 CLG 0 

6100 FOR zi=0 TO 4 

6110 IF n(zi)=0 THEN 6140 ELSE FOR zj = l TO 
n<zi):IF e<zi,zj)<=0 THEN 6130 
6120 IF ABS(xs-px(zi,zj))<=500 AND ABSCys- 
py<zi,zj))<=500 THEN x=<px(zi,zj)-xs)*0.16 
:y=-(py(zi,zj)-ys)*0.104:DN zl+1 GOSUB 697 
0,7070,7210,7260,7340 
6130 NEXT 
6140 NEXT zi 
6150 RETURN 
6160 tx$="" 

6170 PRINT CHRSC143); 

6180 xS=INKEYS 

6190 IF xS="" THEN 6180 

6200 x$=UPPER$ (x$) 

6210 IF xS<="Z" AND x$>=" " AND LEN<tx$Xl 
6 THEN PRINT CHRS<8);xS;CHRS<143);:txS=tx$ 
+xS:GOTO 6180 

6220 IF x$=CHR$ (127) AND txSO"" THEN PRIN 

T CHRS ....STRINGS<2,8);CHRS<143);:tx$= 

LEFTSCtxS,LEN<txS)-l):GOTO 6180 

6230 IF xS=CHRS(13) THEN PRINT CHRS<8);" " 

:tx=VAL(txS):RETURN 
6240 PRINT CHRS <7); 

6250 GOTO 6180 
6260 MODE 2 

6270 WINDOW #1,1,80,1, 1 
6280 WINDOW #0,1,80,2,25 
6290 CLS 
6300 CLS #1 

6310 PRINT #1,"GALACTIC CONFLICT -Anleitun 

g-.p 

6320 PRINT "ANLEITUNG/BESCHREIBUNG DER SPI 
ELVORGAENGE:" 

6330 PRINT "Das Spiel GALACTIC CONFLICT wi 
rd von einem Spieler gegen den Computer," 
6340 PRINT "im folgenden 'Feind' genannt, 

II 

6350 PRINT "Beide Parteien haben bis zu 20 
Schiffe zur Verfuegung,” 

6360 PRINT "die sie aufeinanderhetzen soll 
en. Der Feind steuert seine Schiffe mit" 
6370 PRINT "verschiedenen Strategien: eini 
ge verhalten sich aggressiv, andere abwart 
end" 

6380 PRINT "oder Fallen stellend, Der Spie 
ler schickt nun seine Schiffe aus, um den 
Feind" 

6390 PRINT "restlos auszurotten; dazu hat 
er zwei Waffen:" 

6400 PRINT ”1, Die Laserkanone. Je nach ab 
geschossener Energieladung und Trefferdist 
anz" 

6410 PRINT " veraendert sich der erzeugt 
e^Schaden. Dieser ist jedoch oft nicht aus 

6420 PRINT "reichend um mit einem einzi 


C484] 

[555] 

[477] 

[9523] 


[350] 

[91] 

[3506] 


[614] 

[1175] 

[614] 

[1967] 

[907] 

[1097] 

[614] 

[1175] 

[614] 

[2179] 

[907] 

[1849] 

[5165] 

[5553 

[23713 

[8683 

[2371] 

[2223 

[10453 

[43603 

[74603 


[3503 

[4153 

[5553 

[553 

[10253 

[18063 

[14283 

[13933 

[49363 


[66053 


[50713 

[11753 

[3113 

[5133 

[9953 

[11963 

[913 

[3733 

[29793 

[30463 

[55733 

[35903 

[5379] 


[88963 


[72793 


[76683 


[63573 

[85673 


[74373 
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gen Schiff ein einzelnes Feindschiff abzu- 

6430 PRINT " ballern. Daher gibt es" 

6440 PRINT "2. Die Raumrainen. Abhaengig vo 
n der Entfernung (moeglicherweise fluechte 
t der" 

6450 PRINT " Feind, nachdem man die Mine 
gelegt hat) entsteht mittelschwerer bis” 
6460 PRINT ” schwerer Schaden. Bei einem 
Volltreffer bleibt nichts vom getroffenen 

6470 PRINT ” Objekt uebrig.” 

6480 PRINT "Apropos Objekt: Derer gibt es 
zwei:" 

6490 PRINT "1. Die Planeten. Dort kann der 
Spieler Energie nachtanken und, wenn" 

6500 PRINT " er keine mehr hat, neue Min 
en besorgen. Der Feind kann lediglich Ener 
gie" 

6510 PRINT " nachtanken. Planeten sind i 
m allgemeinen nicht so einfach zu vernicht 
en wie" 

6520 PRINT ” 2 . Die Raumbasen. Dort kann ma 
n zwar auch Energie abholen, aber diese Me 
nge" 

6530 PRINT " ist kleiner als bei einem P 
laneten. Dafuer darf der Feind sie nicht b 
e-" 

6540 PRINT " nutzen, Dieser revanchiert 
seinerseits wiederum durch Attacken gegen 
Basen." 

6550 WHILE INKEY$="" 

6560 WEND 
6570 CLS 

6580 PRINT " Sind alle der etwas empfind 
liehen Basen abgeschossen, ist das Imperiu 
m," 

6590 PRINT " welches der Spieler verteid 
igen sollte, nicht mehr vorhanden." 

6600 PRINT "Der Spieler kann Informationen 
ueber eigene Schiffe abrufen und mit dem" 
6610 PRINT "Password 'ENMSTR311671218' fei 
ndliche Informationen abzapfen," 

6620 PRINT "Ein-/Ausgabeformate:" 

6630 PRINT "Der Ursprungspunkt <0;0) einer 
Jeden Anzeige liegt in der linken oberen" 
6640 PRINT "Ecke. Die auf dem oberen Teil 
des Bildschirms dargestellte Galaxis ist g 
enau" 

6650 PRINT "20000 mal 10000 Einheiten gros 
s; folglich hat jeder einzelne Sektor eine 

6660 PRINT "Groesse von 1000 mal 1000 Einh 
eiten. Eine Raumeinheit zu durchfliegen ko 
stet” 

6670 PRINT "exakt eine Energieeinheit. Der 
in der Mitte unten dargestellte Sektor" 
6680 PRINT "bezieht sich auf das jeweils m 
it einer Zahlentaste angewaehlte aktuelle 
Schiff." 

6690 PRINT "Dabei wird das Schiff in der M 
itte gezeichnet; d.h. es wird nicht immer 

6700 PRINT "genau ein ganzer Sektor darges 
teilt, sondern es sind auch noch Teile" 
6710 PRINT "benachbarter Sektoren aufgezei 
chnet. Zudem ist der Anzeigebereich etwas 
kleiner" 

6720 PRINT "als ein voller Sektor," 

6730 PRINT "Bei der Eingabe von Winkeln (b 
eim Schiessen oder Navigieren) ist zu beac 
hten," 

6740 PRINT "dass rechts 0 Grad ist und geg 
en den Uhrzeigersinn gezaehlt wird." 

6750 PRINT "PHASENAUFTEILUNG:” 

6760 PRINT "Da nicht saemtllche befohlenen 
Aktionen sofort ausgefuehrt werden, ist d 
er 1 

6770 PRINT "folgende Phasenplan von Wichti 
gkeit:" 

6780 PRINT "1, Eingabe (!) von Navigation” 
6790 PRINT ” Legen von Minen" 

6800 PRINT " Schiessen" 

6810 WHILE INKEY$="" 

6820 WEND 
6830 CLS 

6840 PRINT "2. Bewegungen werden ausgefueh 
rt (Spieler und Feind)" 

6850 PRINT "3. Minen explodieren" 

6860 PRINT "Wenn der Benutzer eine Demonst 
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ration dar verwendeten Shapes wuenscht, wa 


7120 

PLOT x-ii,y-jj 

[9473 

ehle" 


7130 

PLOT x+ii,y-jj 

[9453 

6870 PRINT "bei der Eingabe des Schwierigk 

C 5217] 

7140 

NEXT 

[3503 

eitsgrades die Option "eigene" 


7150 

MOVE x-10,y 

[7723 

6880 PRINT "Verte" und gebe per Hand fuer 

C 36781 

7160 

DRAV x+10,y 

[4903 

jeden Typ die" 


7170 

MOVE x,y-5 

[6823 

6890 PRINT "entspr. Anzahlen ein. Dabei er 

C 6190] 

7180 

DRAV x,y+5 

[1603 

scheinen jeweils die Shapes," 


7190 

RETURN 

[5553 

6900 PRINT "Auf der Karte erscheinen alle 
Typen mit ihren Anfangsbuchstaben." 

[68183 

7200 
6,9,1 

DATA 0,6,1,6,2,6,3,5,4,4,4,5,5,3,5,4, 
'',8,7,9,8,7,8,8,9,5,9,6,9,7,10,3,10,5, 

[40393 

6910 VHILE INKEY$="" 

C1095] 

11, o, 

, 11,1,11,2,11,3 


6920 VEND 

C3903 

7210 

FOR ii=0 TO 10 

[8003 

6930 RETURN 

[5553 

7220 

MOVE x-6+ii,y+10\(ll-ii> 

[16713 

6940 '************************************ 

[23713 

7230 

DRAV x-6+ii,y-10\<11-ii>,1,1 

[19753 

*t**t*t**********t***************** 


7240 

NEXT 

[3503 

6950 '** Shap 

[11063 

7250 

RETURN 

[5553 

es *** 


7260 

FOR ii=5 TO 7 STEP 2 

[10443 

6960 '**#**#***********##***************** 

[23713 

7270 

MOVE x-ii,y-ii 

[18253 

*********************************** 


7280 

DRAV x+ii,y-ii,1,0 

[3323 

6970 RESTORE 7060 

[7713 

7290 

DRAV x+ii,y+ii 

[1393 

6980 FOR j j =0 TO 14 

[7383 

7300 

DRAV x-ii,y+ii 

[6743 

6990 READ ii 

[3563 

7310 

DRAV x-ii,y-ii 

[5763 

7000 MOVE x+ii,y+jj 

[8483 

7320 

NEXT 

[3503 

7010 DRAVR -2*ii,0,1,0 

[10863 

7330 

RETURN 

[5553 

7020 MOVE x+ii,y-jj 

[10803 

7340 

MOVE x+10,y-6 

[8163 

7030 DRAVR -2*ii,0 

[9883 

7350 

DRAVR -8,0, 1,0 

[7143 

7040 NEXT 

[3503 

7360 

MOVER 5,0 

[6923 

7050 RETURN 

[5553 

7370 

DRAVR 4,4 

[5363 

7060 DATA 14,14,14,14,14,13,13,12,12,11,10 

[18763 

7380 

MOVER 3,0 

[7003 

, 9,8,6,3 


7390 

DRAVR -20,0 

[3653 

7070 RESTORE 7200 

[7753 

7400 

MOVER 5,0 

[6923 

7080 FOR kk=l TO 22 

[11443 

7410 

DRAVR -8,8 

[5623 

7090 READ ii.jj 

[8363 

7420 

MOVER -5,0 

[7653 

7100 PLOT x+ii,y+jj,1,0 

[15403 

7430 

DRAVR 15,0 

[4383 

7110 PLOT x-ii,y+jj 

[9073 

7440 

RETURN 

[5553 
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Simulator 
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Wollten Sie schon immereinmal wie weiland Stringfellow 
Haw’ke im Film "Airwolf' einen Kampfeinsatz mit einem 
Hubschrauber fliegen? 

Dann scheiterte dieses Vorhaben bestimmt zum einen an 
der Tatsache, daß Hubschrauber ziemlich teuer, und zum 
anderen daran, daß Kampfeinsätze über Bundesdeutschem 
Gebiet illegal sind und empfindliche Geldbußen nach sich 
ziehen können. 

Da Sie jedoch diesen Text lesen, kann man davon ausge¬ 
hen, daß Sie der glückliche Besitzer eines CPC’s sind. Ein 
CPC ist ein Gerät, das so ziemlich alles kann und Ihnen 
natürlich auch die Möglichkeit bietet, einmal hupend und 
schraubend in die Lüfte zu steigen. 

Alles, was Sie dazu benötigen, ist das nachfolgende Listing 


und halt Ihren CPC. 

Nachdem Sie das Programm gestartet haben, gelangen Sie 
zunächst einmal ins Hauptmenue, in dem Sie einen Spiel¬ 
modus wählen können. 

Haben Sie sich für einen Level entschieden, so wird das 
Cockpit des Hubschraubers aufgebaut. Das Cockpit bietet 
eine Menge Instrumente sowie einen Ausblick auf die 
Landschaft. 

Von dieser Landschaft ist im Moment, außer dem Hori¬ 
zont, noch nichts zu sehen, was sich allerdings im Spiel¬ 
verlauf noch ändern wird. 

Unterhalb der Windschutzscheibe befindet sich der Kon- 
trollmonitor, der Ihnen Auskunft über die Wetterlage gibt. 
Je schlechter das Wetter, um so heftiger die Seitenwinde. 
Zum Starten ziehen Sie den Joystick nach hinten und be¬ 
wegen sich auf FLY LEVEL 4. Nun können Sie mit den 
Cursortasten bis auf 400 KM/H beschleunigen und Ihren 
Einsatz erledigen. 

Gesteuert wird mit Joystick: 

HOCH, RUNTER. RECHTS, LINKS und MG FEUERN. 
Mit den Cursortasten: 

PFEIL HOCH = Geschwindigkeit erhöhen 

PFEIL RUNTER = Geschwindigkeit verringern 

COPY-TASTE = Mini-Raketen abfeuern (max. 6 Stck.) 

Folgende Instrumente stehen Ihnen zur Verfügung: 

NAVI = künstlicher Horizont 

TIMER = Flugzeituhr 

FUEL = Tankanzeige 

MUNI = Munition 

FLY LEVEL = Flughöhe 

ROT. — Rotorumdrehungen 

KM/H = Geschwindigkeit 

Tips zum Landen: 

Bringen Sie den Hubschrauber in waagerechte Fluglage, 
senken Sie die Geschwindigkeit auf 0 und gehen Sie auf 
FLY LEVEL 0. 

War die Tankanzeige auf unter 1500 Liter gerutscht, so 
werden Sie neu betankt. 

Durch Drücken von Space und Joystick nach hinten, kön¬ 
nen Sie die Rotordrehzahl absenken. 
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4 REM * 



* 

5 REM * 

VERSION 

1.0 

* 

6 REM * 



* 

7 REM * 

COPYRIGHT 

1985 

* 

8 REM * 



* 

9 REM * 

by 


* 

10 REM * 


* 

1 1 REM * 

Michael 

Kneip 

* 

12 REM * 


* 


Zum erneuten Starten drücken Sie den Joystick nach vorn, 
bis Sie auf 510 Umdrehungen sind. 

GUTEN FLUG!! (Michael Kneip) 

! REM ****************.******* [1471 ] 

2 * * [403 ] 

[3120] 
[403] 
[1504 ] 
1403 ] 
[1043 ] 
[403 ] 
[403 ] 
[403 ] 
[1001 ] 
[403 ] 
[1471 ] 
[436 ] 
[1011] 
[2052] 
[934 ] 
[967 } 
[460] 
[297 ] 
1199 ] 
[330] 
[400] 
(621 ] 
[223 J 
[934 ] 
[1185] 
[1233 ] 
[1195 ) 
[4327 ] 


13 REM ***************************** 

14 GOTO 257 

15 BORDER 1 

16 MODE 1:SYMBOL AFTER 140 

17 temp=9999 

18 muni=10000 

19 top=6 

20 fly=0 

21 abzug=10 

22 yy=7 

23 haus=0 

24 hausx=15:rot=500 

25 farben=5 

26 GOSUB 243 

27 x=270:y=270:zz=30 

28 IF cocpit=2 THEN 29 ELSE 106 

29 IF Start<>2 THEN 133 

30 wetter=wetter+1:IF wetter=200 THEN wett 
er=0:GOTO 143 

31 swind=swind+1:IF swind>=seitenwind THEN 
swind=0:GOTO 32 ELSE 38 

32 wahllslO 

33 IF z+1>5 THEN 39 ELSE 34 

34 IF z-1<-5 THEN 39 ELSE 35 

35 wahlll=INT(RND*20) 

36 IF wahlll<10 THEN PLOT 1 ,1,0:PLOT 0,y:D 
RAW 640,x:PLOT 0,y+wahll,3:DRAW 640,x-wahl 
1:y=y+1o:x=x-10:z=z-1 

37 IF wahlll>10 THEN PLOT 1,1,0:PLOT 0,y:D 
RAW 640,x:PLOT 0,y-wahll,3:DRAW 640,x+wahl 
1:y=y-10:x=x+10:z=z +1 

38 SOUND 1,1000,5,1 ,0,0,15:SOUND 3,0,5,1,0 
,0,11 

39 LOCATE 1,23:PRINT rot:IF temp<=0 THEN 2 
08 

40 LOCATE 8,1:PRINT x:LOCATE 8,3:PRINT y 

41 IF kmh>0 AND fly = 0 THEN fly=1 

42 IF kmh = 0 AND fly=1 AND INKEY(72)=0 THEN 
fly=fly-1 

43 IF fly < = 0 THEN fly=0 

44 IF kmh >400 THEN kmh=400 

45 IF z=5 THEN 46 ELSE IF INKEY(75)=0 THEN 
z=z+1:x=x+10:y=y-10:PLOT 1,1,0:PLOT 0,y+1 

0:DRAW 640,x-10 

46 IF z=-5 THEN 47 ELSE IF INKEY(74)=0 THE 
N z=z—1:x=x—10;y=y+10:PLOT 1,1,0:PLOT 0,y- 
10:DRAW 640,x+10 

47 IF zz =30 THEN 48 ELSE IF INKEY(72)=0 TH 
EN zz = zz + 1 :fly=fly-1;x=x + 1:y=y+1:PLOT 1,1, 
0:PLOT 0,y-1:DRAW 640,x-1 

48 IF zz=-30 THEN 49 ELSE IF INKEY(73)=0 T 
HEN zz=zz-1:fly=fly+1:x=x-1:y=y-1:PLOT 1,1 
,0:PLOT 0,y+1:DRAW 640,x+1 

49 IF z>=3 AND fly<5 THEN LOCATE 18,17:PRI 
NT CHR$(24)"DANGER"CHR$(24):LOCATE 18,18:P 
RINT CHR$(7)"PULL ":LOCATE 18,19:PRINT"LE 
FT":danger=1 

50 IF INKEY(74)=0 THEN LOCATE 17,25:PRINT 
CHR $(2 4)CHR$(199)CHR$(24):LOCATE 21,25:PRI 
NT .i 

51 IF INKEY(75)=0 THEN LOCATE 25,25:PRINT 
CHR$(24)CHR$(197)CHR$(24);LOCATE 21,25:PRI 
NT" " 

52 IF INKEY(73)=0 THEN LOCATE 19,25:PRINT 
CHR$(24)CHR$(198)CHR$(24):LOCATE 21,25:PRI 
NT" " 

53 IF INKEY(72)=0 THEN LOCATE 23,25:PRINT 
CHR$(24)CHR$(196)CHR$(24):LOCATE 21,25:PRI 
NT" " 

54 IF INKEY(74)<>0 AND INKEY(75)<>0 AND IN 
KEY(73)< >0 AND INKEY(72)<>0 THEN LOCATE 17 
,25:PRINT CHR$(199)" "CHR$(198)" ";CHR$(24 
);" ";CHR$(24);" "CHR$(196)" ";CHR$(197) 


[3496 ] 

[652 ] 
[1206 ] 
[1650 ) 
[1198] 
[6920 ] 


[6794 ] 


[3174 ) 

[2359 ] 

[1414] 
[1850 ] 
[1 640 ] 


[629] 

[1129] 

13214] 


[8146 ] 

[7010 ) 

[5310 ] 

17946 ] 

[5956 ] 

[5390 ] 
[5285 J 

[4570 ] 
[1 1003: 


55 IF danger=1 AND z<=2 AND z>=-2 THEN LOC 
ATE 18,17:PRINT"WETTER":LOCATE 18,18:PRINT 

wetter$:LOCATE 18,19:PRINT" ":danqer 

= 0 

56 IF z < = -3 AND fly<5 THEN LOCATE 18,17:PR 
INT CHR${24)"DANGER"CHR${24):LOCATE 18,18: 
PRINT CHR$(7)"PULL ":LOCATE 18,19:PRINT"R 
IGHT":danger=1 

57 IF kmh>=100 AND fly<=3 THEN danger=2:LO 
CATE 18,17:PRINTchr$(24)"DANGER"CHR$(24);L 
OCATE 18,18:PRINT CHR$(7)"PULL ":LOCATE 1 
8,19:PRINT"UP " 

58 IF kmh<100 AND danger=2 OR kmh>=100 AND 
fly >3 AND danger=2 THEN LOCATE 18,17:PRIN 

T"WETTER":LOCATE 18,18:PRINT wetter$:LOCAT 
E 18,19:PRINT" ":danger=3 

59 IF recht=1 THEN zahl=zahl+1 

60 IF zahl=20 THEN zahl=1:GOSUB 191 

61 IF angrif = 2 THEN 62 ELSE 64 

62 IF INKEY(72) THEN GOSUB 198 

63 IF INKEY(73) THEN GOSUB 203 

64 IF fly=0 AND temp<1500 AND kmh=0 THEN 2 
12 

65 IF fly=0 AND INKEY(47)=0 AND kmh=0 THEN 
215 

66 PLOT 1,1,3:PLOT 0,y:DRAW 640,x 

67 LOCATE 20,23:PRINT fly 

68 SOUND 1,1000,5,1,0,0,15:SOUND 3,0,5,1,0 

, 0,11 

69 LOCATE 18,8:PRINT CHR$(159):LOCATE 22,8 
:PRINT CHR$(159) 

70 IF rauni>0 AND INKEY(76)=0 THEN 159 

71 LOCATE 1,18:PRINT temp 

72 temp=temp-11 

73 IF kmh>9 THEN temp=temp-kmh/10 

74 IF top >0 AND INKEY(9)=0 THEN 178 

75 GOSUB 153 

76 IF INKEY(0)=0 THEN kmh=kmh+10 

77 IF INKEY(2)=0 THEN kmh=kmh-10 

78 SOUND 1,1000,5,1,0,0,15:SOUND 3,0,5,1, 

0 , 0 , 11 : 

79 LOCATE 36,23:PRINT kmh 

80 simu=simu-kmh:IF simu<=0 THEN simu=400: 
GOTO 81 ELSE 101 

IF farben=5 THEN farben=3 ELSE farben=5 


85 IF fly=5 THEN fenster=1 

> = 6 AND fly< =9 THEN fenster=2 
„ =9 THEN fenster=2 
88 IF fly > = 10 AND fly< = 13 THEN fenster = 3 


81 

IF : 

82 

PEN 

83 

IF : 

84 

IF : 

85 

IF : 

86 

IF : 

87 

IF : 

88 

IF : 

89 

IF : 

90 

IF ; 

91 

IF : 

92 

IF : 

93 

IF : 

94 

IF 1 

95 

IF 1 

96 

aus\ 

97 

IF i 


-INT(RND*40)+1:LOCATE hausab,1:PRINT CHR$( 
242)CHR$(243) 

98 IF auswahl>10 AND fenster<5 THEN hausab 
= INT(RND*40 ) + 1 .-LOCATE hausab, 1 : PRINT CHR$( 
240):LOCATE hausab,2:PRINT CHR$(241) 

99 IF fenster<5 THEN LOCATE 1,1:PRINT CHR$ 

( 8 ) 

100 WINDOW 1,40,1,25 

101 REM 

102 REM 

103 SOUND 1,1000,5,1,0,0,15:SOUND 3,0,5,1, 

0 , 0,11 

104 PEN 5 

105 GOTO 28 

106 PEN 3:LOCATE 2,1:PRINT"NAVI" 

107 LOCATE 17,22:PRINT"FLY LEVEL" 

108 LOCATE 2,17:PRINT"FUEL" 

109 LOCATE 28,1:PRINT"TIMER" 

110 LOCATE 35,17;PRINT"MUNI" 

111 LOCATE 2,22:PRINT"ROT." 

112 LOCATE 36,22:PRINT"KM/h" 

113 PEN 5 

114 cocpit=2 

115 a = 0 

116 FOR b=7 TO 14 

117 a=a+1:IF a=4 THEN a=1 

118 PEN a:LOCATE b,20:PRINT CHR$(143):NEXT 

119 a=3 


[7582 ] 


[ 7.096 ) 


[8514 ) 


[10479 


(2899 1 
[2250 ] 
[959] 
[1 444 ) 
(1712 ] 
[2499 ] 

[1680 ] 

[2310] 
(1767 ] 
(3174 ] 

[2772] 

[1954 1 

[968] 

[823] 

[1747 ] 

[1573 ] 

[9241 

[2114] 

[979] 

[3314] 

[1 307 ] 
[3283 ] 

[1468 ] 
[782 ] 

[1 545 ] 
[1868 ] 
[1 500 ] 
[3306 ] 
[1629] 
[2387 ] 
(1715) 
[1 493 ] 
[829 ] 
[1879 ] 
[1 276 ] 
[1290 ] 
[1104] 
[1176] 
(4058 ] 


(8444 ] 


[1705] 

[1024 ] 
[272 ] 
(272 ] 
(3174 ] 

[561 ] 
[390 ] 
[1 337] 
(2350 ] 
(2000 ] 
[1544 ] 
[1884 1 
[2078 ] 
(1461 ] 
[561 ] 
[480 ] 
1324 J 
[896 ] 
[1637 J 
[2943] 
(325 ] 


lllllll 

1111111 

J , »l 


III ||l II 

.. 


•lllllll 


i *" 1 11 
Mull 

lllllll 

'hihi 


iiiiiiii 

'mihi 

iiiiiiii 


iiiiiii 

llllll 


.111111' 
"um 
um • 
iiiiiiii 


nii11j I 
iiiiiiii 


"llül 1 

IIIIIIII 


IIIIIIII 

llll l "l 

'll'll, 


.. 

llllllll 
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LISTinGS 











LISTinCS 


Min 


ühiü; 

MIIIIII 

Ijiiiin 

mihi 


lliillii 




nillin 


ll"l. 

ilmill 
!M "" 


'l/ll 

lliitln 


.II 

11 , 11,11 

Hill III 

•i.ii'ii 


1111 ih 
ipiiii 


ii.iiji 

i„,iin 

lÜl.l 

'l/ll 


120 FOR b=27 TO 34 

121 a=a-1:IF a=1 THEN a=3 

122 PEN a:LOCATE b,20:PRINT CHR$(143):NEXT 

123 FOR b=16 TO 25 STEP 3 

124 a=5 

125 PEN a:LOCATE b,1:PRINT CHR$(202);NEXT 

126 FOR b=19 TO 22 STEP 3 

127 a=5 

128 PEN a:LOCATE b,3:PRINT CHR$(202):NEXT 

129 PEN a:LOCATE 17,3:PRINT CHR$(202) 

130 PEN a:LOCATE 24,3:PRINT CHR$(202) 

131 GOSUB 226 

132 GOTO 28 

133 warte=500 

134 SOUND 1,1000,5,3,0,0,1 5:SOUND 3,0,5,3, 
0 ,0,11 

135 FOR i=1 TO warte:NEXT 

136 warte=warte-10 

137 LOCATE 1 ,1 8:PRINT temp 

138 temp=temp-1 

139 IF warte<-50 THEN 140 ELSE 134 

140 FOR i=1 TO 50:SOUND 1,1000,5,2,0,0,15: 
SOUND 3,0,5,2,0,0,11 -.LOCATE 1,18:PRINT tem 
p:temp=temp-2:NEXT 

141 FOR i=1 TO 50:SOUND 1,1000,5,1,0,0,15: 
SOUND 3,0,5,1,0,0,11:LOCATE 1,18:PRINT tem 
p:temp=temp-2:NEXT 

142 LOCATE 18,17:PRINT"WETTER" 

143 wahl=INT(RND*4) 

144 IF wahl=1 THEN wetter$="GUT " 

145 IF wahl=1 THEN seitenwind=10 

146 IF wahl=2 THEN wetter$="MAESS." 

147 IF wahl=2 THEN seitenwind=5 

148 IF wähl=3 THEN wetter$="SCHLE." 

149 IF wahl=3 THEN seitenwind=2 

150 LOCATE 18,18:PRINT wetter$ 

151 start=2 

152 IF wahl=0 THEN SOUND 1,1000,5,1,0,0,15 
:SOUND 3,0,5,1 ,0,0,11::GOTO 143 ELSE GOTO 
30 

153 sec=sec+1:IF sec=60 THEN sec=0:mi=mi+1 

154 IF mi=6Q THEN mi=0:h=h+1 

155 IF h=24 THEN h=0 

156 LOCATE 28,3:PRINT USING"## : ff# : Uft " ; h ;mi 
;sec 

157 SOUND 1,1 000,5,1 ,0,0,1 5:SOUND 3,0,5,1, 
0 ,0,11 

158 RETURN 

159 FOR p=1 TO 2 

160 LOCATE 34,18:PRINT muni:muni=muni-2 

161 SOUND 7,4000,4,7,,,30:LOCATE 18,8:PRIN 
T CHR$( 144): LOCATE 22,8 .-PRINT CHR$(144):LO 
CATE 18,8:PRINT " ":LOCATE 22,8:PRINT " ": 

162 LOCATE 8,1:PRINT x:LOCATE 8,3:PRINT y 

163 IF z=5 THEN 164 ELSE IF INKEY(75)=0 TH 
EN z = z+1:x=x+10:y=y—10:PLOT 1,1,0:PLOT 0,y 
+10:DRAW 640,x-10 

164 IF z=-5 THEN 165 ELSE IF INKEY(74)=0 T 
HEN z=z-1:x=x-10:y=y+10:PLOT 1,1,0:PLOT 0, 
y-10:DRAW 640,x+10 

165 IF zz = 30 THEN 166 ELSE IF INKEY(72)=0 
THEN zz=zz+1:fly=fly-1:x=x+1:y=y+1:PLOT 1, 
1,0:PLOT 0,y-1:DRAW 640,x-1 

166 IF zz=-30 THEN 167 ELSE IF INKEY{73)=0 
THEN zz=zz+1:fly=fly-1:x=x+1:y=y+1:PLOT 1 

,1,0:PLOT 0,y-1:DRAW 640,x-1 

167 temp=temp-3 

168 LOCATE 1,18:PRINT temp 

169 PLOT 1,1,3:PLOT 0,y:DRAW 640,x 

170 LOCATE 20,23:PRINT fly 

171 NEXT 

172 IF yy=8 THEN LOCATE 18,yy:PRINT CHR$(1 
54)CHR$(230)CHR$(231)CHR$(230)CHR$(154) 

173 IF yy=8 THEN SOUND 130,300,1000,15,1,1 
,15:PLOT 320,276:FOR ra=2 TO 29:FOR k=0 TO 

2*PI STEP Pl/5:xxx=ra*SIN(k) + 320:yyy=ra*C 
OS{k) + 276:farbe=INT(RND*8):DRAW xxx,yyy,fa 
rbe:NEXT k:NEXT ra 

174 IF yy=8 THEN yy = INT{RND*6) + 6:angrif=0: 

LOCATE 18,8:PRINT" ":LOCATE 18,7: 

PRINT" ":LOCATE 18,6:PRINT" 

":LOCATE 18,9:PRINT" ":LOCATE 1 

8,10:PRINT" " 

175 PLOT 0,0 

176 LOCATE 16,8:PRINT" " 

177 GOTO 28 

178 LOCATE 18,8:PRINT CHR$(238):LOCATE 22, 
8 :PRINT CHR$(238) 


11210 1 

179 INK 0,24;FOR i=1 TO 50:NEXT:INK 0,0 

[1019] 

[1 382 1 

180 FOR n=100 TO 800 STEP 15 

[1 266] 

[2943 1 

181 SOUND 1,n,2,15 

[1 455 ] 

[834] 

182 NEXT 

[350 ] 

[339 1 

183 FOR xx =1 TO 7 STEP 0.5 

[1689 ] 

[2565 ] 

184 SOUND 1 ,400,5,xx,,,1 

[1 526 1 

(1413 ] 

185 NEXT 

(350 ] 

[339 ] 

186 SOUND 1,0,50 

[1112] 

[2293 ] 

187 top=top-2 

[1036 ] 

(1616 ] 

188 LOCATE 18,8:PRINT " ":LOCATE 22,8:PRIN 

[1810] 

11518 ] 

ip »1 II 


[939 3 

189 IF yy=8 THEN 172 

[1170] 

[390] 

190 GOTO 74 

[392 1 

1927 ] 

191 FOR n=500 TO 100 STEP -15 

[1 692 ] 

[2387 ] 

192 SOUND 1,n,4 

[1145] 


193 NEXT 

[350] 

[647] 

194 SOUND 1,0,30 

[1148] 

[1 272 ] 

195 IF angrif=2 AND bewaf=1 THEN 235 

[753 ) 

[968 ] 

196 angrif=2 

[940 ] 

[818 ] 

197 RETURN 

(555 ] 

[18421 

198 auf=auf+1 

[931 ] 

[6771 ] 

199 IF auf=8 THEN auf=0:IF yy<15 THEN yy=y 

y+i 

(2080 ] 


200 LOCATE 18,yy:PRINT CHR$(154)CHR$(230)C 

[2416 ) 

[6595 ] 

IIR$ ( 2 31 )CHR$ (230 )CHR$ (154) 



201 IF yy-1>5 THEN LOCATE 17,yy-1:PRINT " 

[2566 ] 

[1313] 

202 RETURN 

[555 ] 

[1 578 ] 

203 auf=auf+1 

[931 ] 

[2036 ] 

204 IF auf=8 THEN auf=0:IF yy>6 THEN yy=yy 

(2189) 

[1509 3 

-1 


[1122] 

205 LOCATE 18,yy:PRINT CHR$(154)CHR$(230)C 

[2416] 

[1733 ] 

HR$(231)CHR$(230)CHR$(154) 


[1730 ] 

206 IF yy<15 THEN LOCATE 17,yy+1:PRINT " 

[2367] 

[1 698] 

11 


[1139] 

207 RETURN 

[5551 

[634 ] 

208 INK 0,0:FOR i=1 TO 5000:NEXT:CLS:LOCAT 

[5444 ] 

[5559 ] 

E 13,5:PRINT"G A M E O V E R":FOR i=1 TO 

5000:NEXT 



209 MODE 2:INK 0,0 

[1 473 ] 

[1946 J 

210 INPUT"Noch einmal";wahl$ 

(1890 ] 

[860 1 

211 IF wähl$="j" THEN RUN ELSE CLS:END 

(2291 ] 

[1 470 J 

212 MODE 2 

[513] 

[2679 ] 

213 PRINT "Ihr Hubschrauber ist wieder fri 
sch aufgetank und mit 6 Raketen versorgt" 

[5875 1 

[3174 ] 

214 FOR i=1 TO 5000:NEXT:CLEAR:PLOT 1,1,1: 
RUN 

[3065] 

[555 ] 

215 SOUND 1 ,1000,5,3,0,0,1 5:SOUND 3,0,5,3, 

[2387 ] 

[606 1 

0,0,11 

[92 4 ] 

[1310] 

216 warte=0 

[7296 ] 

217 IF INKEY(73)=0 THEN warte=warte+10:rot 
=rot-10 

[3236 ] 


218 IF INKEY<72)=0 THEN warte=warte-10:rot 
=rot+10 

[1358 ] 

[1414 ] 

219 IF warte>500 THEN 217 ELSE IF warte<-5 

(1986 ] 

[8061 ] 

0 THEN 28 ELSE 220 



220 FOR 1=1 TO WARTE:NEXT:SOUND 1,1000,5,3 
,0,0,15:SOUND 3,0,5,3,0,0,11 

[2619] 

15183 ] 

221 LOCATE 1,18:PRINT temp 

[968] 


222 temp=temp-2 

[825] 


223 LOCATE 1,23:PRINT rot:IF temp<=0 THEN 

[2303 ] 

[7386 ] 

256 



224 IF rot<0 THEN rot=0 ELSE IF rot>500 TH 
EN rot=500 

[27451 

[7155 ) 

225 GOTO 217 

[428 ] 


226 SYMBOL AFTER 154 

[1 454 ] 


227 SYMBOL 154,4X0,4X0,4X0,4X0,4X0,4X11111 

[2919 1 

[824 1 

111,&X0 


[968] 

228 SYMBOL 230,4X0,4X0,4X0,4X0,4X0,4X11111 

[3692 ] 

[23101 

111,4X100100,4X1011010 


[1767 ] 

229 SYMBOL 231,4X0,4X11000,4X111100,4X1011 

[4410 ] 

1350] 

010,8X1011010,4X11111111,&X111100,4X11000 


[4482 ] 

230 SYMBOL 240,4X11000,4X111100,4X1111110, 
4X10101011,4X1011101,4X1010110,4X110100,4X 

(53361 

[11443 

11000 



231 SYMBOL 241,4X1011010,4X111100,4X11000, 
4X11000,4X11000,4X11000,4X11100,4X11010 

[4066 J 


232 SYMBOL 242,4X11111,&X100000,&X1000000, 
4X11111111,4X10101011,4X10101011,4X1111111 

[4328 ] 

[10838 

1 


233 SYMBOL 243,4X11100000,&X1100000,4X1010 
0000,4X1100000,4X10100000,4X1000000,4X1000 
0000 

[4732 ] 


234 RETURN 

(555 1 

[252 ] 

235 FOR xx=1 TO 7 STEP 0.5:SOUND 1,400,5,x 

[3923 ] 

[1 428 ] 

x,,,1:NEXT:SOUND 1,0,50 


[390 ] 

236 PLOT 0, 90, 5:PLOT 0, 90:PLOT 0, 90:PL 

(1 1043 1 

[3409 1 

OT 0, 90:PLOT 0, 90:PLOT 0, 90:PLOT 0, 90: 


PLOT 0, 90: PLOT 640, 1 60.-DRAW 640, 330:DRA 



54 CRC 
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M II1111111111»11«I M III •( 111111III || IIIII MUH Mini 


IIIMIIliriMIIIIKli 


I I 1111 111111II11IIIII.. 




MiiMiiimiimiiiiiiiriiiiii 


W 0, 330:DRAW 0, 160:PLOT 0, 160:DRAW 640, 

160;PLOT 380, 240:DRAW 430, 330:PLOT 380 
240 

237 DRAW 450, 270:PLOT 380, 240:DRAW 420, 
190:PLOT 380, 240:DRAW 430, 230:PLOT 380, 
240:DRAW 370, 180:PLOT 380, 240:DRAW 330, 
200:PLOT 380, 240:DRAW 310, 310:PLOT 380, 
240:DRAW 360, 320:PLOT 380, 240:DRAW 300, 
250 

238 PLOT 0, 310:DRAW 640, 290:PLOT 0, 270: 
DRAW 640, 280:DRAW 640, 260:DRAW 0, 290:PL 
OT 0, 240:DRAW 640, 310:PLOT 640, 240:DRAW 
-10, 260:PLOT 0, 210:DRAW 640, 250:PLOT 0, 

190:DRAW 640, 210:PLOT 640, 190:DRAW 230, 
160 

239 PLOT 40, 160:DRAW 60, 330:PLOT 90, 330 

:DRAW 90, 160:PLOT 130, 330:DRAW 70, 160:P 
LOT 120, 160:DRAW 140, 330:PLOT 150, 160:P 

LOT 150, 330:DRAW 160, 160:DRAW 190, 160:D 

RAW 190, 330:DRAW 210, 160:DRAW 230, 330 

240 DRAW 260, 160:DRAW 310, 160:DRAW 300, 

330:DRAW 350, 330:DRAW 370, 160:DRAW 410, 

160:DRAW 440, 330:DRAW 480, 160:DRAW 530, 
330:DRAW 560, 330:PLOT 540, 160:DRAW 490, 
330:PLOT 560, 330:DRAW 590, 160:DRAW 610, 
160 

241 DRAW 630, 330:DRAW 580, 330:DRAW 560, 
160 

242 GOTO 208 

243 PLOT 0, 390:DRAW 50, 340:PLOT 640, 390 
:PLOT 590, 340:DRAW 590, 340:PLOT 590, 340 
:PLOT 640, 390:DRAW 590, 340:DRAW 50, 340: 
PLOT 0, 150:DRAW 100, 150:DRAW 140, 110:PL 
OT 640, 150:PLOT 640, 150:DRAW 540, 150 

244 DRAW 500, 110:DRAW 420, 110:DRAW 380, 
70:PLOT 140, 110:DRAW 220, 110:DRAW 260, 7 
0:DRAW 380, 70:PLOT 640, 100:DRAW 590, 100 
:DRAW 550, 60:DRAW 470, 60:DRAW 430, 20:DR 
AW 450, 0:PLOT 0, 100:DRAW 50, 100:DRAW 90 
, 60 

245 DRAW 130, 60:DRAW 140, 60:DRAW 150, 60 
:DRAW 170, 60:DRAW 210, 20:DRAW 190, 0:PLO 
T 100, 150:PLOT 0, 155:DRAW 105, 155:DRAW 
145, 115:DRAW 225, 115:DRAW 265, 75:DRAW 3 
75, 75:PLOT 375, 75:PLOT 375, 75:DRAW 415, 

115 

246 DRAW 495, 115:DRAW 535, 155:DRAW 640, 
155:PLOT 640, 155:DRAW 105, 155:PLOT 0, 34 
0:DRAW 50, 340:DRAW 640, 340:PLOT 640, 335 
:DRAW 0, 335:PLOT 45, 340:DRAW 0, 385:PLOT 

600, 340:PLOT 640, 385:DRAW 595, 340 

247 PLOT 0, 390:DRAW 50, 340:PLOT 640, 390 
:PLOT 590, 340:DRAW 590, 340:PLOT 590, 340 
:PLOT 640, 390:DRAW 590, 340:DRAW 50, 340: 
PLOT 0, 150:DRAW 100, 150:DRAW 140, 110:PL 
OT 640, 150:PLOT 640, 150?DRAW 540, 150 

248 DRAW 500, 110;DRAW 420, 110:DRAW 380, 
70:PLOT 140, 110:DRAW 220, 110:DRAW 260, 7 
0:DRAW 380, 70:PLOT 640, 100:DRAW 590, 100 
:DRAW 550, 60:DRAW 470, 60:DRAW 430, 20:DR 
AW 450, 0:PLOT 0, 100:DRAW 50, 100:DRAW 90 
, 60 

249 DRAW 130, 60:DRAW 140, 60:DRAW 150, 60 


110229 ) 


:8237 ] 


[10095 ] 


110876 ] 


[922 ] 

[421 ] 
[1061 7 ] 


[9662 ] 


[12408 ] 


[9947 ] 


[10617] 


[9662 ] 


[12408] 


:DRAW 170, 60:DRAW 210, 20:DRAW 190, 0:PLO 
T 100, 150:PLOT 0, 155:DRAW 105, 155:DRAW 
145, 115:DRAW 225, 115:DRAW 265, 75:DRAW 3 
75, 75:PLOT 375, 75:PLOT 375, 75:DRAW 415, 

115 

250 DRAW 495, 115:DRAW 535, 155:DRAW 640, [9402] 

155:PLOT 640, 155:DRAW 105, 155:PLOT 0, 34 
0:DRAW 50, 340:DRAW 640, 340:PLOT 640, 335 
:DRAW 0, 335: PLOT 45, 340.-DRAW 0, 385: PLOT 
600, 340:PLOT 1,1,3:PLOT 640, 385:DRAW 59 
5, 340 


iiimii 

ii in in 


150:PLOT 620 

, 370:DRAW 20, 

3 [8910] 

UJ 

340:DRAW 

320, 

400:PLOT 

370, 

4 


340:PLOT 

270, 

400:PLOT 

280, 

3 

3 

400:PLOT 

220, 

400:DRAW 

240, 

3 

O 

340:PLOT 

360, 

340:DRAW 

390, 

3 

IA 


40 

252 PLOT 420, 400:DRAW 400, 340;PLOT 320, [11296] 

1 50 :DRAW 270, 150:DRAW 370, 150:DRAW 370, .II 

80: DRAW 270, 80: DRAW 270, 150: PLOT 370, 15 umiü 

0 :DRAW 380, 1 40:DRAW 380, 90;DRAW 370, 80: ''lül 1 

DRAW 270, 80: DRAW 260, 90: DRAW 260, 1 40 l|,|l'll 

253 DRAW 270, 150: PLOT 0, 110:DRAW 60, 110 [8114] il'll'l, 

:DRAW 100, 70:DRAW 180, 70:DRAW 230, 20:PL 

OT 410, 20:DRAW 460, 70:DRAW 540, 70:DRAW 
580, 110:DRAW 640, 110:PLOT 230, 20;DRAW 2 
30, 0:PLOT 410, 0:DRAW 410, 20 

254 PLOT 1,1,5:PLOT 0,340:DRAW 640,340 

255 RETURN 


256 REM 

257 MODE 2 

258 PRINT"[1 ].Mit Gegner(mit Raketen 

259 PRINT"[2].Mit Gegner(ohne Raketen 

PRINT" [3].Ohne Gegner" 

PRINT" [4].Spiel beenden" 

PRINT" [5].Spiel abspeichern" 

PRINT:PRlNT"lhre Wahl" 
a$=INKEY$:IF a$=""THEN 264 ELSE 265 
IF a$="1" THEN bewaf=1:recht=1 
IF a$="2" THEN bewaf=0:recht=1 
THEN recht=0:recht=0 


260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 


IF a$ = "3' 

IF a$="4" THEN MODE 1:CLS:END 
IF a$="5" THEN 271 
GOTO 15 
REM save 
MODE 2:CLS 

PRINT"[1) = 1000 Baud" 

PRINT"[23 = 2000 Baud" 

PRINT"[3] = 3500 Baud" 

PRINT"[4] = Spiel starten" 

PRINT 

PRINT"lhre Wahl [1-4] ?" 
a$=INKEY$:IF a$="" THEN 279 ELSE 280 
IF a$="1" THEN SPEED WRITE 0:GOTO 285 
THEN SPEED WRITE 1 :GOTO 285 
THEN POKE &B8D1,2:POKE &B8D2 


IF a$="2" 

IF a$="3" 

,23:GOTO 285 

283 IF a$="4" THEN RUN 

284 GOTO 273 

285 CLS:SAVE"hubschraubers." 

286 GOTO 273 


[1936 J 
(555) 
1272 ] 
1513) 
[2581 ] 

[2516] 

[1 777 ] 
[2465 ] 
(2875] 
[1 523 ] 
[1 506] 
[1845 ] 
[952] 
(2388 ] 
[1870 ] 
1308] 
(391 ] 
(508 1 
(1257 ] 
[1730 ] 
[1851 J 
[1634 ] 
[2708] 
(361 j 
[1937] 
[1845 ] 
[2996] 
[2304] 
[2619] 

[908 ) 
[41 2 J 
[1248 ] 
(412) 


Gangster 


i 


Vor etwa drei Wochen wurden in London mehrere Ban¬ 
ken überfallen. Die 20 Mitglieder der Bande, auf deren 
Konto die Überfälle gehen, haben die Beute an verschiede¬ 
nen Stellen in der Stadt "abgebunkert”, um die Polizei in 
die Irre zu führen. 

Der Boß der Gang ist nun allerdings der Meinung, daß 
genug Gras über die Sache gewachsen ist und die "Kohle” 
abgeholt werden kann. 

Die Bandenmitglieder werden also in einem Firmenwagen 
auf den Weg geschickt und sollen zumindest einen Teil der 
Beute wieder einsammeln. Allerdings hat sich der Boß ein 
wenig verkalkuliert, die Polizei hat von der Aktion Wind 


üllül 1 

iimm 


bekommen und beschattet das Auto. 

Überall, entlang der bereits gefahrenen Strecke, werden 
Polizisten postiert, die den Auftrag haben, einen aus der 
Gang 'hopp" zu nehmen, wenn er das nächste Mal 
vorbeikommt. 

Passen Sie also auf, daß Sie keine Strecke zweimal fahren 
und bauen Sie auch keine Unfälle, indem Sie vor 
Häuser fahren. 

Eine Hilfe ist, daß Sie auf dem Weg durch die Stadt noch 
ein paar arbeitslose Diebe einstellen können, die Ihnen 
bei Ihrem Job helfen. 

Das Programm ist vollständig in M-Code geschrieben und 
somit ziemlich schnell. Eine Kurzanleitung und eine High 
Score-Tabelle ist integriert. (Thorsten Kuhn) 


10 ' ***»**•*»**********.**♦*««»«*» 
20 ' **** (c) by Thorsten Kuhn **** 

30 ' **«**»***********«**,,*,»,»,,, 

40 ' 

50 '•****• BASIC LADER ****** 


(1252 ] 
[988 ] 
[1 252 ] 
[117] 
[1316] 


Hirni 

iiiiim 

Mi.l' 

ihihi 

! ,iimi 

> min 


iimn 

Milli 

Imin 


a; 

.[INI II 


||imil 

MuH 

.iimn 

’Iiiiii 

a; 


"ilü|i 

iiiiim 


'll'ii, 


.. 
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LISTinGS 




111 »tl 11»I fl 111111111.1 > 111 < 11111111 < 111 >11111111111II111,1,11.1,41,», M 


immiiiimiMimmi imiiiiniiiiii 


nunii 11111111111«1111111111 in um muh 


üiii::: 

'•llll 1 ' 

I 1 I I I I I I 

iIÜIIm 

IIiiiiii 


niiiii' 

IIiiiiii 


iiiiii 

llllll 

iiiiii 

,i"i 


•Hl 

Hill 


l""| 

llllll 

|l"l| 

lIllllll 

IIIIIIII 


null 

iiiiii" 

IIHIHI 


'l/ll 


Imim 

hihII 


.. 

* i H i h 


111111 ■ i 


ihmiii 


■niiiii 

ilüllH 


■II 60 ' 

jjl 70 dat=0:sum = 0:zeile=210 
In 80 FOR adr=S58lA TO S65CD 
Ui; 90 READ byte:dat=dat+1 
■hi 100 sum=sum+byte 
110 POKE adr,byte 

III 120 IF dat < 30 AND adr < S65CD THEN 160 
130 READ chksum 

140 IF chksum <> sum THEN PRINT "Fehler in 
Zeile : ";zeile 

150 zeile=zeile+10:sum=0:dat=0 
160 NEXT adr 
170 CALL 8581 A 
180 ' 

190 '»*»*** MC-DATAS ****•• 

200 ' 

210 DATA 8CD,8FF,SBB,SCD,8BA,SBB,8CD,S4E, 8 

BB, SCD,800,8BB,&CD,848,SBB,811,SFB,800,821 

, ,SFD,8 66,&CD,SAB,SBB, 8 3E,SFB,821,89C,85E,a 

11 CD, 4571 

220 DATA 8A8,8BB, 8 3E,SFD,821,8A4,85E,&CD,8 
A8,SBB,&3E,SFC,821,&AC,&5E,SCD,8A8,SBB,S3E 
,800,806,803,8OE,803,SCD,832,8BC,83E,801,8 
06, 3294 

230 DATA 81A,&0E,&1A,SCD,832,SBC,S3E,802,8 
06,818,80E,818,SCD, 832 ,&BC,83E,803,S06,80B 
,80E,80B,SCD,8 32,SBC,&01,809,809,8CD,838,8 

BC, 2102 

240 DATA 821,SCE,865,806,814,836,80A,823,8 
36,800,823,810,SF8,S21,&E2,&65,&06,&FA,&36 
,89A,823,810,SFB,8 21,8E2,865,806,80A,836,8 
30, 2422 

250 DATA 823,836,830,823,836,831,823,836,8 
30,823,836,820,811 , 815,800,819,810,SEC,SCD 
,&A7,SBC,&3E,&01,&CD,&OE,SBC,&21,&0A,&03,& 
22, 1958 

260 DATA &3B,&67,&11,&1 2,&24,&ED,&53,&3D,& 
67,&3E,&01 ,&32 f &3F.&67,&2A.&3B,&67,&ED,&5B 
,&3D,&67,&3A,&3F,&67,&CD,&2C,&BC,&CD,&44,& 
BC, 2814 

270 DATA &2A,&3B,&67,&ED,&5B,&3D,&67,&3A,& 
3F,&67,&24,&15,&2C,&1D,&3C,&22,&3B,&67,SED 
,&53,&3D,S67,&32,&3F,&67,&FE,&05,SC2,SBE,& 

58, 2737 

280 DATA &21,&DC,&5E,&7E,&FE,&FF,&CA,&FC,& 
58 , &CD,&5A,&BB,&23,&C3,&EF,&58,&CD,&03,&BB 
,&CD,&06,&BB,&FE,& 45,&C8,&FE,&65,&C8,&FE,& 
54, 4772 

290 DATA &CA,&DE,&5D,&FE,&74,&CA,&DE,&5D,& 
FE,&53,&CA,&3F,&59,&FE,&73,&CA,& 3F,S59,&FE 
,&41,&CA,&29,&59,&FE,&61,&CA,&29,&59,&C3 ,& 
FC, 4599 

300 DATA &58,&21 ,&91 ,&5F,&7E,&FE,&FF,&CA,& 
39,&59,&CD,&5A,&BB,&23,&C3,&2C,&59,&CD,&06 
,&BB,&C3,&A4,&58,&21,&8C,&64,&7E,&FE,&FF,& 
CA, 4144 

310 DATA &4F,&59,&CD,&5A,&BB,&23,&C3,&42,& 
59,&CD,&03,&BB,&CD,&06,&BB,&FE,&31,&CA,&6C 
,& 59,&FE,& 32,&CA,&7B,&59,&FE,& 33,&CA,&8A ,& 

59, 3982 

320 DATA &FE,&34,8CA,&99,&59,&C3,&4F,&59,& 
21,&01,&40,&22,&2C,&67,&21 ,&0A,&00,&22,&27 
,&67,&C3,&A5,&59,&21,&01,&30,&22,&2C,&67,& 
21 , 2356 

330 DATA &32,&00,&22,&27,&67,&C3,8A5,&59,& 
21,&01,&20,&22,&2C,&67,&21,&5A,&00,&22,&27 
,&67,&C3,&A5,&59,&21,&01,&10,&22,&2C,&67 ,& 

21, 1934 

340 DATA &82,&00,&22,&27,&67,&3E,&14,&32,& 
F3 , &66,&21,800,&00,&22,&F7,&66,&21,&00,&00 
,&22,8F5,&66,&21,&02,&02,&22,&F9,&66,&21,& 
6B, 2175 

350 DATA & 10,822,&FB,866,&3E,&FB,&32,&25,& 
67,82A,8F7,866,811,82A,800,819,822,8F7,866 
,83E,820,832,829,867,821,819,801,822,8E3,8 
66, 2474 

360 DATA 83E,S01,832,8E5,866,SCD,814,8BC,8 
21,801,801,811,SB4,85E,806,S27,8E5,8CD,875 
,8BB,SEI,81A,SCD,85A,SBB,824,813,810,8F3,8 
3E, 3075 

370 DATA 80F,8CD,S5A,8BB,83E,802,SCD,85A,S 
BB,SC3,810,85A,83E,S0F,SCD,&5A,SBB,8 3E,803 
,SCD,85A,SBB,SCD,806,8B9,806,828,82A,SFB,8 
66, 3287 

380 DATA 823,822,SFB,866,87E,857,a3A,829,8 
67,8BA,8DA,831,85A,S2A,8F9,866,SCD,875,SBB 
,83A,825,867,SCD,8 5A,SBB,82A,8F9,866,824,S 

22, 3425 

390 DATA 8F9,866,810,SDB,82A,SF9,S66,826,S 


1117] 
11153] 
[1 203 ) 
[956 ] 
[874] 
[84] 
[1536 ] 
[1222 ] 
[4252] 

[1738 ] 

[547] 

1554 ] 

[117] 

[1114] 

[117] 

[3794 ] 


[6353 ] 


[6207 ] 


[4716 ] 


[6125] 


[6071 ] 


[6796 ] 


[6200 ) 


[6984 ] 


[6883 ] 


[5033 ] 


[4990 ] 


[5770] 


(5719 ] 


[5080 ] 


[6373] 


[7145 ] 


[6335 ) 


[7184 ] 


01 ,&2C,822,8F9,866,87C,885,8FE,81A,8C2,S10 
,85A,SCD,S09,8B9,83A,S25,S67,S2E,8A3,SBD,8 
CA, 3481 

400 DATA 86F,85A,83E,801,832,829,867,&3E,8 
A3,832,825,867,821,802,801,822,8F9,866,821 
,829,800,822,SFB,866,8C3,806,85A,821,815,8 
24, 2136 

410 DATA SCD,875,SBB,83E,8FC,SCD,85A,SBB,8 
21,80D,803,8CD,875,8BB,S3E,SFC,8CD,85A,8BB 
,8C3,888,85A,8C3,835,S5C,83E,80F,SCD,85A,S 
BB, 3979 

420 DATA 83E,SOI,SCD,85A,SBB,SED,84B,82C,8 
67,819,SED,852,SED,85A,SED,852,SED,85A,SED 
,852,80B,83E,800,8B8,8C2,899,85A,8B9,8C2,8 
99, 3866 

430 DATA 85A,S2A,SE3,866,8CD,a75,8BB,83E,a 
90,SCD,85A,SBB,SCD,824,8BB,8FE,801,8CA,S0A 
,85B,8FE,S02,8CA,827,85B,8FE,804,8CA,844,8 
5B, 3851 

440 DATA SFE,808,SCA,S61,85B,SFE,810,8CA,8 
7E,85B,8CD,81B,8BB,8D2,804,85B,83E,800,8CD 
,81E,SBB,8C2,80A,85B,83E,S02,8CD,SIE,8BB,8 
C2, 3524 

450 DATA 827,85B,83E,808,SCD,81E,SBB,8C2,8 
44,85B,83E,801,SCD,81E,SBB,8C2,861,S5B,S3E 
,S09,8CD,aiE,8BB,aC2,87E,85B,83A,8E5,866,8 
C3, 3330 

460 DATA 8BD,85A,83E,801,832,8E5,866,82A,8 
E3,S66,S2D,S22,8E3,S66,S3E,a01,SBD,SC2,886 
,85B,82A,8E3,866,S2E,819,822,8E3,866,SC3,8 
86, 3307 

470 DATA &5B,83E,802,832,SE5,866,82A,8E3,8 
66,82C,822,8E3,866,83E,81A,8BD,8C2,886,85B 
,82A,SE3,866,82E,802,S22,SE3,S66,8C3,886,8 
5B, 3212 

480 DATA 83E,804,832,SE5,866,82A,8E3,866,8 
25,822,8E3,866,83E,800,SBC,8C2,886,85B,82A 
,8E3,866,826,828,822,8E3,866,8C3,886,85B,8 
3E, 3181 

490 DATA 808,832,8E5,866,82A,8E3,866,824,8 
22,SE3,866,83E,829,SBC,8C2,S86,85B,82A,8E3 
,866,826,801,822,8E3,866,8C3,886,85B,83E,8 

10, 3140 

500 DATA 832,8E5,866,8C3,8BA,85A,82A,SE3,8 
66,825,S2D,SCD,81A,SBC,811,800,808,819,819 
,819,87E,832,83A,867,82A,SE3,866,8CD,875,a 
BB, 3041 

510 DATA 83E,8FD,SCD,S5A,SBB,83A,83A,867,8 
FE,810,SCA,SCD,85B,SFE,808,8CA,8DF,85B,SFE 
,8FF,8CA,8F8,85B,8FE,833,8CA,SBD,85B,8C3,8 
88, 4730 

520 DATA 85A,821,81F,864,SCD,8AA,SBC,82A,8 

F3,866,823,822,8F3,866,8C3,888,85A,8CD,8A7 
,SBC,821 ,828,864,SCD,SAA,8BC,821 ,831 ,864,8 
CD, 3722 

530 DATA SAA,SBC,8C3,SE5,85B,821,80D,864,8 
CD,SAA,SBC,82A,8F3,866,S2B,822,SF3,S66,811 
,800,800,8AF,SED,852,8CA,81B,85D,8C3,888,S 
5A, 3645 

540 DATA S2A,SF5,866,823,822,8F5,866,821,8 
16,864,SCD,SAA,SBC,82A,8F5,866,8AF,SED,8 5B 
,8F7,866,SED,852,SC2,888,85A,82A,82C,867,S 

11, 3709 

550 DATA 801,800,8AF,SED,852,SCA,8B6,859,8 

2A,82C,867,825,825,825,825,822,82c,867,S2A 
,827,867,811,SOA,800,819,822,827,867,8C3,8 
B6, 2275 

560 DATA 859,83E,801,832,8E2,S66,821,8E9,8 
66,822,8E7,866,83A,8E2,866,SFE,801,SCA,S5A 
,S5C,SFE,802,SCA,869,85C,SFE,803,SCA,878,8 
5C, 3616 

570 DATA SFE,804,8CA,898,S5C,8C3,888,85a,8 
21,801,80A,822,838,867,82A,8F3,866,822,830 
,867,8C3,89B,85C,821,801,819,822,838,867,8 
2A, 2670 

580 DATA 8F5,S66,822,830,867,SC3,89B,85C,8 
21,SEE,866,806,804,SED,85B,8E7,S66,81A,877 
,813,823,810,8FA,836,820,821,801,825,822,8 
38, 2730 

590 DATA 867,82A,827,867,822,830,867,8C3,8 
9B,S5C,SC3,88B,85A,821,SE8,803,822,S2A,867 
,821,800,800,822,82E,867,S06,800,S3A,S2E,8 
67, 2214 

600 DATA 83C,832,82E,867,8ED,85B,S2A,867,S 
2A,S30,867,8AF,SED,852,8DA,SC4,85C,804,822 
,830,867,8C3,8B0,85C,82A,838,867,SCD,875,8 
BB, 3287 

610 DATA S3E,830,880,82A,8E7,866,877,821,8 
E7,866,8 34 ,SCD,85A,SBB,82A,838,867,824,822 


(6468 ] 

[5412 ] 

[6735] 

(6322) 

[5578 ] 

[6713] 

[6922 ] 

[7035] 

[6006 ] 

[5875 ] 

[6228] 

(6110 J 

(5134] 

(6996 ] 

[5543 ] 

[5179] 

[6373 I 

(5331 ] 

[6309] 

[5689 ] 

[7304 ] 

[5458 ] 


56 CPC 


3 '86 Sonderheft 








...nun.im 


ui... 


..nimnm 


iMiimiiiiMiiMMiiiiiniifiimii 


. 11111111 .111IIM11M11111 ...11(«II Fl 111««1 .MIHI....11IIIIII 


>A,&üB,S77,823,S10,8E7,a3E,80F,SCD,i 

’A SBB,S3E,S01,SCD,85A, 8BB,S3E,800,8 [6263 J 
&BB,&21,8B4,863,S7E,8CD,85A,SBB,823 
'E,SFF,SC2,SE6,a5D,S21, 809,808,SCD,& 

A &BB,821,8E2,865,S3£,S00,832,&DF,8 [5720] 
83E,S09,SCD,a6F,8BB,SE1,806,819,87E 
A,SBB,S23,S10,SF9,S3E,80A,SCD,S5A,S 

A S3E,80D,SCD,S5A,SBB,83A,SDF,S66,S [4982] 
&DF,&66,&FE,&0A,&C2 / &FF,&5D,&3E,&0B 
A, &BB, & 21 ,87D,865,87E,8FE,8FF,8CA,S 

A 8 5E,8CD,S5A,8BB,823,8C3,82D,85E> 8 [5758] 
864,SE5,SCD,SAA,SBC,SE1,SD2,S3D,S5E 
9,800,S19,87E,SFE,8FF,8CA,852,S5E,8 

A S3D,85E,8CD, 806,&BB,SC3,8A4,858,8 [5988] 
823,S3A,SDC,866,SFE,S0A,802,823,S5D 
4,8BC,S21 ,S8A,S62,a7E,8CD,a5A,aBB,a 
6 

A S7E,SFE,8FF,8C2,a69,a5E,SCD,S06,S [6401 ] 
820,aDA,a74,a5E,aC3,SDE,S5D,83E,S1 4 
A,SBB,S5D,S3E,S08,SCD,S5A,8BB,83E,8 
8 

A SCD,S5A,8BB,804,82B,SC3,8BB,S5D,8 [6429] 
823,810,SFB,SC 3,SDE,85D,810,838,870 
A,882,8AA,88A,S00,800,838,S78,SFF,& 

A 866,866,838,838,812,830,850,810,8 [5356] 
847,861 ,S6E,867,873,874,865,872, S3A 
0,820,820,820,820,820,820,820,847,8 

k 86C,864,83A,8A3,820,820,820,820,8 [5397] 
&20,86B,86D,S2F,S68,83A,820,820,S20 
^,80A,809,809,809,809,809,809,809,8 

5 

* &6F,870,879,872,869,867,868,874,8 [5756] 
879,820,854,868,86F,872,873,874,865 
),84B,875,S68,86E,80A,80A,80D,809,8 

\ 809,809,809,809,809,809,809,809,8 [5171] 
109,809,809,809,809,8A4,820,831 ,8 39 
3,80F,803,80A,SOA,80A,80A,aOA,80A,8 

i 80A,80A,&0A,&0D,809,809,809,809,8 [5018] 
409,809,809,809,809,809,809,809,809 
r,841,S4E,847,853,854,845,852,SOF,8 

1 &0E,802,80A,80A,80A,80A, SOA, SOA, 8 [6710] 
409,809,809,809,809,809,809,809,809 
>,830,841 ,83E,8 20,8 53,870,869,865,8 

1 &61,86E,860,865,869,874,875,86E,8 [6655] 
iOA,80D,S09,809,a09,809,S3C,853,83E 
1,874,861,872,874,820,820,830,854,8 


8 [6693] 


U i J «,o, J v.,a J r,, a ,uu,ä 1 j^, & uu,&bb f 821 , &CE ,865,8 
E5, 3098 ' 

640 DATA S3A,SDC,866,830,832,SDC, 866 ,S5E ,8 [5412] 
23,856,82A,8F5,866,8AF,SED,852,8DA,858,S5E 
,83A,8DC,866,8CB,827,867,83E,814,894,8CA,8 
52, 3549 

550 DATA 85D,832,8DD,866,SED,S4B,8DD,S66,8 [7659] 
11,SEI,865,821,8DF,865,8ED,8B8,SED,S5B,8F5 
,866,SEI,873,823,872,821,SE2,865,83A,SDC,8 
36 , 4126 

>60 DATA 847,811,819,800,819,810,8FA,8AF,8 [6646] 
1 ,819,800,SED,852,822,8E0,866,81 1,8E2,865 
-8AF,8ED,852,SAF,8EB,821,SE1 ,800,SED, 8 52,8 
-2 f 3159 

>70 DATA 8 DD, 866 , SFn . mn p.nn occ 0 m »i-, 

)B, 866,821 ,8C2, 86 f 


3E, 2069 

140 DATA 820,854,86F,870,82D,854,865,86E, 

20,820,830,845,83E,820,845,S 6 E,864,865,80F 
,8 01,8FF,80C,80A,80A,80D, 809,809,809,809,8 
09, 1707 

850 DATA 809,809,809,809,809,809,809,809,8 [6080] 
0F,803,853,870,869,865,860,861 ,S 6 E, 860,86 5 
,869,S74,875,86E,8 67,80F,801 ,80A,80A,80A,8 
0D, 1625 

860 DATA 809,S2D,853,870,869,865,860,866 ,& 
69,867,875,872,865,86E,80A,80A,80D,809,S0S 
,80F,802,SFB,SOF,801 ,8 20,848,8 61 ,875,8 73,« 

OA, 2093 

870 DATA S0D,S09,809,S0F,S03,8A3,SOF,801 ,8 


15373 1 


,«3,s^,sbl ,SbE, 8 68,8 65,875,865,8 72, 

20, 2753 

n2° = oo TA &6B '&6F,S65,S6E,S6E,S65,S6E,«u«, ft 
OD,809,809,890,820,876,8 6F,86E, 820,864,865 
,872,S20,a50,86F,86C,S69,a7A,865,869,S20,8 

75, 2566 

910 DATA 86D,873,874,865,860,860,874,865,8 
73,8 2 0,84 7 ,a6 5 ,S62,a69,865,874,SOA,80A,80D 
,809,S2D,864,861,873,820,841,875,874,S6F,8 
20 , 2485 

920 DATA 877,869,872,864,820, 86 D,869,874 ,8 
20,84A,86F,S79,873,874,869,S63,86B,820,86F 
,864,865,872,820,820,820,820,820,820,820,8 


8 [4729] 


[5372] 


[6242] 


15896] 


[7726] 'i| 


[63661 !" 



lilll 


iiimj 

>111111 


[6924] 


[5721 ] 


[7124] M 


[5277 ) 


11111111 

111II111 


mim 

ll'H'll 

llllll I 1 
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46C, 1993 

1060 DATA 469,463,468,465,46E,40A,40A,40A, [6345] 
40D,409,409,409,409,409,409,409,409,446,46 
1,468,46E,464,475,46E,467,473,46C,469,473, 

&74, 2004 

1070 DATA 465,420,465,469,46E,474,472,461, [6886] 
467,465,«6E,421,40A,40A,40A r 40D,&09,409,&0 
9,409,442,469,474,474,465,420,467,465,462, 

&65, 2141 

1080 DATA 46E,420,473,469,465,420,469,468, [4951] 
472,465,46E,420,44E,461,46D,465,46E,420,46 
5,469,46E,43A,40F,403, 0A,&0A,40A,40A,40A, 

40D, 2043 

1090 DATA 409,409,409,409,409,409,409,409, [6295] 

409,42D,42D,42D,42D,42D,42D,42D,42D,42D,42 

D,42D,42D,42D,42D,42D,42D,42D,42D,42D,42D, 

40F, 996 

1100 DATA 401,4FF,40C,40A,40A,40F,403,409 , [6673] 
409,409,409,409,409,409,409,409,409,409,40 
9,409,409,409,409,447,441,44E,447,453,454, 

&45, 971 

1110 DATA 452,40F,401,40A,40A,40A,40A,40D, [4837] 
453,469,465,420,468,461,&62,&65,46E,420,46 
5,473,420,46E,469,463,468,474,420,467,465, 

473, 2147 

1120 DATA 463,468,461 ,466,466,474,420,473, [5580 ] 
469,463,468,420,465,469,46E,465,46E,40A,40 
A,40D,450,46C,461,474,47A,420,469,46E,420, 

464, 2569 

1130 DATA 465,472,420,446,461,468,46E,464, [6208] 
475,46E,467,473,46C,469,473,474,465,420,46 
4,465,472,420,450,46F,46C,469,47A,465,469, 

40A, 2839 

1140 DATA 40A,40D,409,409,409,409,409,409, [7858] 
409,409,409,409,409,409,409,409,47A,475,42 
0,473,469,463,468,465,472,46E,421,40A,40A, 

40D, 1234 

1150 DATA 409,409,453,463,468,461,46C,474, [6159] 
465,46E,420,473,469,465,420,46A,465,474,47 
A, «74,420,461,462,465/472,420,46E,469,463, 

468, 2674 

1160 DATA 474,420,467,46C,465,469,463,468, [6372] 

40A,40A,40D,409,409,409,409,409,409,409,'40 

9,409,409,409,464,465,46E,420,443,46F,46D, 

470, 1642 

1170 DATA 475,474,465,472,420,461,475,473, [6554] 
&21,421,40A,40A,40D,409,409,409,409,409,40 
9,409,450,472,46F,462,469,465,472,465,46E, 

&20, 1937 

1180 DATA «73,469,465,420,465,473,420,46E, [5421] 
46F,«63,468,46D,461,46C,421,421,40F,402,40 
A,40A,«0A,40A,«0A,40A,«0D r «09,«09,409,409, 

409, 1540 

1190 DATA 409,409,442,469,474,474,465,420, [6279] 
465,469,46E,465,420,454,461,473,474,465,42 
0,464,472,475,465,463,46B,465,46E.40F,401, 

4FF, 2668 

1200 DATA 40F,403,40A,40A,409,409,409,409, [5725] 

409,409,409,409,409,409,409,409,409,409,40 

9,409,409,454,46F,470,42D,454,465,46E,40F, 

403, 856 

1210 DATA 40A,40A,40A,40A,40A,40A,40A,40A, [5731] 

40A,40A,40A,40A,40A,40A,40A,40A,40A,40A,40 

A,40A,40F,402,40A,40D,«09> 409,409,409,409, 


409, 294 

1220 DATA 409,442,469,474,474,465,420,465, [5501] 
469,46E,465,420,454,461,473,474,465,420,46 
4,472,475,465,463,46B,465,46E,40F,401,4FF, 

401, 2660 

1230 DATA 400,400,454,403,40F,407,403,400, [4587] 

402.400.400.406.400.401.407.403.400.403.40 
0,400,432,400,400,407,404,400,401,400,400, 

490, 340 

1240 DATA 400,400,405,40F,400,401,400,400, [5183] 
464,400,400,405,408,400,401,400,400,4DE,40 
1,400,407,419,400,401,400,400,466,401,400, 

407, 501 

1250 DATA 414,400,401,400,400,400,400,400, [5543] 

407.405.400.401.400.400.466.401.400.407.40 

C, 400,401,400,400,43F,401,400,407,40C,400, 

401, 241 

1260 DATA 400,400,41C,401,400,407,419,400, [5679] 

401.400.400.466.401.400.407.419.400.401.40 
0,400,4EF,400,400,407,432,400,401,400,400, 

41C, 523 

1270 DATA 401,400,407,432,400,4FF,40C,40A, [5481] 
40A,40F,403,409,409,409,409,409,409,409,40 

9.409.409.409.409.409.409.4 09,409,447,441 , 

44E, 721 

1 280 DATA 447,453,454,445,452,40F,401 ,40A, [5931 ] 
40A,40A,40A,40A,40A,40D,409,409,409,409,40 
9,409,409,409,409,409,447,465,462,465,46E, 

420, 1081 

1290 DATA 473,469,465,420,462,469,474,474, [4566] 

465,420,464,469,465,40A,40A,40D,409,409,40 

9,409,409,409,409,409,453,474,461,472,474, 

467, 1961 

1300 DATA 465,473,463,468,477,469,46E,464, [6522] 
469,467,46B,465,469,474,420,461,46E,40F,40 
2,40A,40A,40A,40A,40A,40D,409,409,409,409, 

409, 1854 

1310 DATA 409,409,409,409,409,409,409,409, [5798] 
43C,431 ,4 3E,40F,4 01 ,420,4 20,420,431 ,430,42 
0,420,46B,46D,42F,468,40F,402,40A,40A,40D, 

409, 942 

1320 DATA 409,409,409,409,409,409,409,409, [4429] 

409.409.409.409.4 3C,432,43E,40F,401 ,420,42 
0,420,435,430,420,420,46B,46D,42F,468,40F, 

402, 941 

1330 DATA 40A,40A,40D,409,409,409,409,409, [7123] 
409,409,409,409,409,409,409,409,430,433,43 
E,40F,401,420,420,420,439,430,420,420,46B, 

46D, 820 

1340 DATA 42F,468,40F,402,40A,&OA,40D,409, [5676] 

409.409.409.409.409.409.409.409.409.409.40 

9.4 09,43C,4 34,43E,40F,401 ,420,420,420,431 , 

433, 704 

1350 DATA 430,420,46B,46D,42F,468,4FF,40D, [5593] 
409,409,409,409,409,431,430,40B,40D,409,40 
9,409,409,409,439,40B,40D,409,409,409,409, 

409, 1052 

1360 DATA 438,4OB,4OD,409,409,409,409,409, [5409] 
437,40B,4OD,409,409,409,409,409,436,40B,40 

D, 409,409,409,409,409,435,40B,40D,409,409, 

409, 476 

1370 DATA 409,409,434,40B,40D,409,409,409, [6638] 
409,409,433,40B,40D,409,409,409,409,409,43 
2,40B,40D,409,409,409,409,409,431,4FF, 682 
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Schneider CPC International verrät die kompletten Lösungswege zur Geschichte: 


Eine der ersten Firmen, die Programme 
für Schneider/Amstrad Computer um¬ 
setzte, war die englische Softwarefirma 
Mikro Gen. 

Das erste Programm für die CPC’s 
war Pyjamarama. Es lief zuvor schon 
sehr erfolgreich auf anderen Compu¬ 
tern an und zeichnet sich durch gute 
Grafik- und Toneffekte aus. 

Bemerkenswert ist die große Anzahl 
an Räumen, die man erkunden kann. 
Dieses Grundkonzept hat Mikro Gen 
auch bei den Nachfolgeprogrammen 
(Automania, Everyone's a Wally, 
Herbert’s Dummy Run und Three 
Weeks in Paradise) fortgeführt. Doch 
leider gelingt es nicht vielen Spielern, 
jeweils das Ziel zu erreichen, da man 
für das Ausknobeln des Lösungswe¬ 
ges sehr viel Zeit braucht. Jeder Ge¬ 
genstand, der im Programm auf¬ 
taucht, hat nämlich eine bestimmte 
Funktion. Hat man diese herausge¬ 
funden, muß sie in Einklang mit dem 
gesamten Programm gebracht wer¬ 
den.... 

Zusätzlich zu den Lösungswegen ver¬ 
öffentlichen wir hier noch Lage¬ 
pläne zu den Programmen, auf denen 
alle wichtigen Räume eingezeichnet 
und benannt sind, damit Sie es noch 
einfacher haben, die Programme nun 
zu bewältigen. 

Der Titel dieses Berichts ist ein 
bißchen irreführend, weil es sich ins¬ 
gesamt um fünf Programme handelt. 
Der hier verwendete Name "Quartett” 
ist insofern gerechtfertigt, weil ”Auto- 


mania" nicht dem Arcade-Action- 
Typ zugehört. Hier benötigt man kei¬ 
nen speziellen Lösungsweg. Dabei 
hat Wally die Aufgabe, 10 Autos zu 
bauen, wovon jedes aus 6 Teilen be¬ 
steht. Es geht im Verkaufsraum los, 
in dem auf die umhersausenden Reifen 
aufgepaßt werden muß, welche Wally 
treffen wollen. Anschließend muß 
Wally im Lager die richtigen Teile 
suchen und die Leiter hochsteigen, 
um sie zu holen. Überall liegt etwas 
herum, über das Wally fallen könnte 
und deshalb darüberspringen muß. 
Dann baut man mit Wally in der 
Werkstatt die Teile in die richtige 
Position, wobei für das Dach und die 
Windschutzscheibe spezielle "Hoch- 
sprünge” nötig sind. Soviel zum 
Spielprogramm "Automania”, das - 
wie alle bisher von Mikro Gen er¬ 
schienenen Programme - für jede 
Spielernatur sehr empfehlenswert 
ist. 


Pyjamarama 


Für diejenigen, die "Pyjamarama” 
noch nicht besitzen, soll hier einmal 
ganz kurz der Spielsinn dieses 
Programms, das eher ein Grafik- 
Adventure als ein (Action-) Game ist, 
genannt werden (siehe auch Bild 1): 
Das Spielziel: 

Die Hauptfigur des Programms ist 
Wally Week, ein notorischer Lang¬ 


schläfer. Die Aufgabe des Spielers ist 
es, ihn mit Hilfe eines Weckers aufzu¬ 
wecken, damit Wally pünktlich zur 
Arbeit kommt. 

Doch bevor der Wecker überhaupt 
funktioniert, muß er mit einem 
Schlüssel aufgezogen werden. Dieser 
Aufziehschlüssel befindet sich auf 
dem Mond. Aber leider hat das Bild, 
welches nach dem Mond kommt, 
eine magnetische Sicherung. Diese 
kann nur mit einem Magneten aufge¬ 
hoben werden. Soviel zuerst zu "Py¬ 
jamarama”. Zur weiteren Hilfe sollen 
hier noch ein paar Pokes genannt 
werden, mit denen man mehr von sei¬ 
nem bzw. Wallys Leben hat: 

Die Unsterblichkeit: 

Mit POKE 16087,0 vor der letzten La¬ 
deanweisung im Basic-Lader (LOAD 
”!Name”) ist man unsterblich. Verlu¬ 
ste der "Schnarchenergie" können 
aber auch durch POKE &23E4,0 
:POKE &23F8,0 verhindert werden. 
Sind einige dieser POKEs an ver¬ 
schiedenen Stellen in Ihrem Programm 
eingebaut, dann können Sie sich 
darauf verlassen, daß es Ihnen nun 
gelingt, "Pyjamarama" zu lösen. 
Dazu gehen Sie wie folgt vor (siehe 
dazu auch Lageplan 1): 

Zur Vorgehensweise: 

Bevor man sich auf den untenstehen¬ 
den Lösungsweg begibt, sollte man 
ein wenig durch alle Räume wandern, 
damit man ungefähr einen Plan des 
Hauses hat. Dies empfiehlt sich auch 
bei den übrigen Lösungswegen bzw. 
Programmen. 
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;Jj|||j| Jetzt geht’s los: 

1. Besorgen Sie sich den BÜCKET 
Ul!!!! 1 (Wassereimer) und füllen Sie Ihn im 
Badezimmer am Wasserhahn mit 
ll.lljl Wasser. 

;|||||[ 2. Besorgen Sie sich jetzt den PLANT 
11:11,11 POT (Blumentopf)- Gehen Sie dann 
ilüilü mit dem Blumentopf und dem gefüll¬ 
ten Eimer in den Raum, in dem sich 
,| "|i die "Venus-Fliegenfallen” befinden. 
Ulljlll Jetzt sind nämlich diese Fliegenfal- 
j;;;;;|i len außer Gefecht gesetzt und Sie 
können sehr leicht den BP CAN (BP 
!ll!!m Kanister) einsammeln, müssen aber 
||!jll dafür den Eimer zurücklassen. 

3. Hierauf muß der Kanister gefüllt 
!||!!ü! werden. Gehen Sie anschließend in 
Hüll! den Liftraum und berühren Sie die 
dort befindliche Zahl ”3”. So gelan¬ 
gen Sie in den Raketenraum. In der 
Nähe der Rakete liegt der TRIAN- 
GLE KEY (Dreiecks-Schlüssel). Neh¬ 
men Sie diesen auf! 

Gehen Sie dann mit dem Kanister 
und dem TRIANGLE KEY in den 
Liftraum zurück. Wenn Sie dort an¬ 
gekommen sind, springen Sie an die 

film! Zah * ” 1 ” 

11,11:11 Hiernach gehen Sie durch die Lifttür 
il'iim nach rechts durch die Tür, die als 
il!||l!| nächste kommt. In dem Raum, in 
^"ül dem Sie sich jetzt befinden, können 
’j'll'jj Sie an der Petroleumpumpe den BP 
„llj Kanister auffüllen. 

11,11,11 4. Auf dem Mond befinden sich 
:|||||:: Aliens. Möchte man ohne Schaden 
n.il'li an diesen Kreaturen vorbeikommen, 


dann muß man ein geladenes Laser¬ 
gewehr besitzen. Dies erhält man 
folgendermaßen: 

4.a. Wechseln Sie das POUND ge¬ 
gen den PENNY ein. 

4.b. Tauschen Sie den Penny gegen 
den Hammer. Gehen Sie nun in den 
Liftraum und tauschen Sie dort den 
Hammer gegen den FIRE EXTIN- 
GUISHER (Feuerlöscher) ein. 

4.c. Verlassen Sie den Liftraum 
durch Tür 1. Gehen Sie jetzt in den 
Raum, in dem Teekisten aufeinander 
gestapelt sind. Dort geistern auch 
"Gespenster” herum. Von hier kön¬ 
nen Sie durch das obere Fenster ent¬ 
weichen. Wenn Sie nun rechts ent¬ 
lang gehen, kommen Sie in einen 
Raum, in dem sich ein "kaltes Feuer” 
befindet. Mit dem Feuerlöscher kön¬ 
nen Sie dieses Feuer problemlos 
durchqueren. Nun müssen Sie weiter 
nach rechts gehen und nachdem Sie 
gefallen sind, sollten Sie schnell nach 
links gehen und den SQUARE KEY 
einkassieren. An dieser Stelle müssen 
Sie sich beeilen, da Sie sonst von 
einem riesigen Ball plattgewalzt 
werden. 

4.e. Mit dem SQUARE KEY kom¬ 
men Sie in den Billardraum. Hier fin¬ 
den Sie endlich das Lasergewehr 
(LASER GUN). 

4.f. Jetzt müssen Sie in den Liftraum 
zurückwandern und dort durch Tür 1 
gehen. Vergewissern Sie sich aber 
vorher, ob Sie den TRIANGLE KEY 
und das LASER GUN bei sich haben. 
Nun geht es rechts lang durch die 


nächste Tür; Sie befinden sich jetzt in 
dem Raum mit der Petroleumpumpe. 
Von hier aus geht es weiter durch die 
rechte Tür. In diesem Raum liegt auf 
einem Tisch eine Batterie. Nehmen 
Sie diese Batterie kurz auf und stellen 
Sie diese danach sofort wieder ab. 
Jetzt müssen Sie sich durch den unte¬ 
ren Ausgang fallen lassen. 

Endlich, endlich, endlich! Sie sind 
nun stolzer Besitzer eines geladenen 
Lasergewehrs (LASER GUN). 

Doch das Programmziel ist noch 
immer nicht erreicht! 

4. g. Nehmen Sie das Lasergewehr 
(LASER GUN) und besorgen Sie sich 
den gefüllten BP Kanister, den Sie 
irgendwo zurückgelassen haben. Mit 
beiden Teilen, LASER GUN und BP 
CAN, müssen Sie nun zum Raketen¬ 
keller gehen und dort in die Rakete 
einsteigen. Durch diese Rakete wer¬ 
den Sie dann zum Mond befördert. 
Lassen Sie auf dem Mond das Laser¬ 
gewehr zurück und fliegen Sie wieder 
zur Erde. Dort wieder angekommen, 
gilt es, den Magneten zu besorgen, um 
damit die magnetische Sperre zu 
knacken. 

5. Es geht weiter, indem Sie sich die 
DRIVING LICENCE besorgen; 
diese liegt im ersten Gespensterraum. 
Den Führerschein (DRIVING LI¬ 
CENCE) können Sie dann gegen die 
IGNITION KEYS, die sich auf dem 
Dach befinden, eintauschen. Im 
Treppenhaus rutschen Sie später das 
Treppengeländer herunter und kom¬ 
men so zum CRASH HELMET 
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(Sturzhelm). Im Besitz dieses Sturz¬ 
helms holen Sie sich das LIBRARY 
TICKET und tauschen es gegen das 
LIBRARY BOOK ein. Durch die 
Kombination von CRASH HEL- 
MET und LIBRARY BOOK kom¬ 
men Sie in die Lage, die SCISSORS 
(Schere) aufzunehmen. 

6. Stellen Sie den HELP BUTTON in 
dem Raum, in dem der Geldwechsler 
steht, auf ON und machen Sie sich 
auf den Weg zu dem Raum, in dem 
ein Luftballon hängt. Oben unter der 
Decke befindet sich auch der BOX 
KEY (Box-Schlüssel). Um diesen 


Schlüssel zu bekommen, müssen Sie 
den Ballon berühren und schweben 
dann mit diesem nach oben. Da¬ 
durch, daß die HELP FUNKTION 
eingeschaltet ist, müßte mittlerweile 
unter dem Box-Schlüssel eine zusätz¬ 
liche Teekiste stehen. Sie ermöglicht 
es Ihnen, den BOX KEY zu 
erreichen. 

Falls dort keine zusätzliche Teekiste 
steht, müssen Sie die HELP- 
FUNKTION erneut einschalten. 

7. Gehen Sie jetzt in die Küche und 
schließen Sie mit dem BOX KEY das 
kleine Kistchen auf. In diesem 


Kistchen befindet sich der Magnet. ;;jj;jji 
Nehmen Sie diesen Magneten mit! "»"j| 

8. Ab jetzt ist das restliche Geschehen "Ijjjjj 
sehr einfach: Fliegen Sie mit dem 

Magneten zum Mond zurück und II . . 

holen Sie sich den Weckerschlüssel. 

Berühren Sie dann abschließend mit n. 

diesem in Wallys Zimmer den jjjjij; 
Wecker . 111Ml |! 

Das Spielende naht !!,'!!![' 

Dieser klingelt dann so laut, daß 'ji'fy 
Wally wach wird und es endlich Ij'ji'i! 
einmal schafft, dank Ihrer unermüd¬ 
lichen Mithilfe, pünktlich zur Arbeit 
zu kommen!!! 



Everyone’s a Wally 

Das zweite Programm der Wally- 
Serie ist etwas schwieriger zu lösen, 
da die anderen Figuren bzw. Charak¬ 
ter Ihnen fortwährend begegnen und 
Sie auch in deren Rolle schlüpfen 
müssen. Welche Person Sie derzeitig 
sind, und wo sich die übrigen Figuren 
momentan aufhalten, kann man aber 
glücklicherweise durch Tastendruck 
(siehe Lageplan 2) erfahren. Sollten 
Sie irgendwelche Probleme haben, 
dann müssen Sie nur weiterlesen, um 
sie zu lösen. 

Zum Spiel: 

Der Untertitel dieses Programms 
wäre "Ein Tag im Leben von 
Wally”. 

"Everyone’s a Wally” kann man als 
das erste Multirollen-Arkadeaben¬ 
teuerspiel bezeichnen. Neben dem 
bekannten Wally Week treten hier 
persönlich folgende Figuren zum er- 
sten Mal auf: Wilma, Wally’s Frau, 


Herbert, Wally’s Sohn und die Assi¬ 
stenten Tom, Dick und Harry (siehe 
auch Bild 2). Während des ganzen 
Spiels kann man die Kontrolle auf 
eine andere der fünf Personen über¬ 
nehmen. Jede Person hat eine eigene 
Aufgabe zu spielen und hierbei muß 
der Spieler entscheiden, welche 
Person in der Lage ist, eine bestimmte 
Aufgabe zu erledigen. Diese Überle¬ 
gung gibt Ihnen aber unser Lösungs¬ 
weg preis. 

Herbert ist hier, wie alle kleinen Kin¬ 
der, überhaupt nicht kontrollierbar. 
Zur musikalischen Untermalung 
empfiehlt es sich, eventuell die auf der 
Kassettenrückseite mitgelieferte Hit- 
Single "Everyone’s a Wally” von 
Mike Berry anzuhören. Das Lied er¬ 
schien sogar auch auf einer Schall¬ 
platte! 

Der Start: 

Um den Springbrunnen zu reparie¬ 
ren, müssen Sie sich die Erdnüsse 
(MONKEY NUTS) vom Bäcker (BA- 
KER) besorgen, indem Sie Wilma 


Hiiiiii 

verwenden. Nun können Sie in den i |J||;| 
Zoo eintreten, die Klempnerzange !l|j!jj 
(MONKEY WRENCH) aufnehmen !L|jj 
und an einer Stelle, an der Sie sie spä- ijjjj 
ter wieder leicht finden und aufneh- 
men können, ablegen. J!J|J||; 

Beachten Sie bitte, daß auch eine der iD' 
übrigen Personen einen bestimmten 
Gegenstand, den Sie brauchen und 
daher suchen, besitzen kann. 

Dies können Sie herausfinden, 
indem Sie einfach einmal kurz in jede 
Gestalt hineinschlüpfen! 

Suchen Sie nun Dick, den Klempner, 
und nehmen Sie mit ihm seine 
Saugglocke (PLUNGER) auf. Neh¬ 
men Sie nun die zuvor abgelegte || 
Klempnerzange wieder auf und ge- "i|j||i 
hen Sie mit Dick zum Springbrunnen jjljjljj 

(versichern Sie sich, daß Sie beides, \y . 

die Klempnerzange und die Saug- ll'll'll 
glocke, bei sich haben). ü'l 1 '!! 

Springen Sie auf den Springbrunnen jjjjjjt 
und dann auf die Spitze der Statue, " ", 
wodurch der Brunnen repariert j|i||i|| 
wird. ""'H 
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iimill 

11 , 11,11 Ist der Springbrunnen wieder funk- 
Üillm tionstüchtig, dann sollten Sie durch 
Wally den leeren Eimer (EMPTY 
ilülll! BÜCKET) und den Sand (sand) auf- 
l| ii!ll! nehmen. Gehen Sie mit Wally an¬ 
schließend zum Springbrunnen. Der 
„.m, Eimer wird dann gefüllt (FULL 
,,ji EMPTY). 

Haben Sie dies gemacht, dann müs- 
" sen Sie mit Wally zur Zemenlmisch- 
maschine (CEMENT MIXER)gehen 
;;;;;;;; und den Zement (CEMENT) aufneh¬ 
men. Darauf ist es Ihre Aufgabe, die 
Maurerkelle (TROWEL) zu suchen. 
JU! Gehen Sie dann mit der Maurerkelle 
und dem Zement zu dem Ort, an dem 
jjjjjjjj die Ziegelsteine (BRICKETS) liegen. 
Ili;,," Wenn Sie daran vorübergehen, sollte 
eine Wand in der Bildschirmmitte 
aufgebaut werden. 

iliilin 

Beschaffung des Buchstaben B: 

1. Schlüpfen Sie in Wilmas Person 
und nehmen Sie Buch 1 (BOOK 1) 
IJjljjü und Buch 2 (BOOK 2) auf. 

!||!i j! 2. Tauschen Sie zuerst Buch 1 in der 
[[jjjjj! Bücherei (LIBRARY) am ersten 
''|||j*' Schild gegen das Springseil (JUMP 
'Jjjjj!! LEAD) und tauschen Sie dann Buch 
!|ji! jl 2 in der Bücherei gegen den Bun- 
H'jr senbrenner (BUNSEN BURNER) 

in Ilm 

ein. 

3. Nehmen Sie jetzt Buch 3 (BOOK 3) 
auf und tauschen Sie es in der 
Bücherei (LIBRARY) gegen den 

11,11,11 Buchstaben B. 

illllllf 

mÜll, 

11,11,11 Beschaffung des Buchstaben K: 

liüllü 1. Schlüpfen Sie in Wilma’s Person 
und besorgen Sie sich die Erdnüsse 
,j (MONKEY NUTS) vom Bäcker 
£>; (BAKER). 

;;;!!;!! 2. Gehen Sie mit den Erdnüssen in 
,l!"!li den Zoo und nehmen Sie dort die 
!ll!!ü! Klempnerzange auf. 
jliNill Legen Sie diese dann an einer Stelle 
-"'"l! ab, die Sie später leicht wiederfln- 

:iiü: den. 

''I!!||! 3. Wechseln Sie nun in Dick’s Gestalt 
und gehen Sie durch die Räume, um 
sich die Saugglocke (PLUNGER) zu 
besorgen. Nehmen Sie nun auch die 
Klempnerzange (Monkey Wrench) 
wieder auf. 

4. Reparieren Sie mit Dick den 
Springbrunnen, indem Sie auf die 
Spitze des Springbrunnens steigen 
bzw. springen. Dazu müssen Sie aber 

iijuii beides, die Klempnerzange (MON- 
j| jjjj KEY WRENCH) und die Saugglocke 
||!imi (PLUNGER) besitzen, 
liüllü 5. Schlüpfen Sie wieder in Wally's 
'Ml! Person und nehmen Sie so den leeren 
Ü'll'jj Eimer (EMPTY BÜCKET) und den 
Jjjjj Sand (SAND) auf. 

11 , 11,11 6. Füllen Sie den Eimer am Spring- 
'!!!!!" brunnen und gehen Sie dann weiter, 
iilil'ü um den Zement (CEMENT) in dem 


Bildschirm, in dem sich die Ze¬ 
mentmischmaschine (CEMENT 
MIXER) befindet, aufnehmen. 

7. Gehen Sie nun mit der Maurer¬ 
kelle (TROWEL) und dem Zement 
(CEMENT) zum Raum mit den Zie¬ 
gelsteinen. Laufen Sie nun an diesen 
vorbei, wodurch eine Wand errichtet 
wird. 

8. Wechseln Sie jetzt in Harry's 
Rolle und nehmen Sie mit ihm den 
Sicherungsdraht (FUSE WIRE) und 
die durchgebrannte Sicherung 
(BLOWN FUSE) auf, wodurch diese 
wieder repariert wird. 

9. Besorgen Sie sich jetzt die gute Iso¬ 
lierung (GOOD INSULATOR) und 
den Schraubenzieher (SCREW DRI¬ 
VER) und gehen Sie damit zu einer 
der Telefonzellen. Treten Sie dort ein 
und spielen Sie das Asteroidenspiel 
solange, bis Sie einen Klang hören. 
Haben Sie diesen einmal gehört, 
dann können Sie zu dem Bildschirm 
mit dem Hochleitungsmasten (PY¬ 
LON) gehen. 

Sie können nun den Hochleitungs 
masten reparieren, da sich alle 
Lichtstrahlen bzw. Elektrospannun- 
gen aus dem Bild bewegen (um den 
Hochleitungsmasten zu reparieren, 
müssen Sie die gute Isolierung 
(GOOD INSULATOR) gegen die 
schlechte Isolierung (BAD INSU¬ 
LATOR) austauschen. 

10. Schlüpfen Sie in Tom’s Gestalt 
und gehen Sie dann damit fort, um 
sich die Flachbatterie (FLAT BAT- 
TERY) vom Gabelstapler zu besor¬ 
gen. Legen Sie die Flachbatterie dann 
an einer Stelle ab, an der Sie diese 
später leicht wiederfinden können. 

11. Wechseln Sie nun in Harry's 
Rolle und holen Sie die Flachbatterie 
(FLAT BATTERY) wieder zurück. 
Gehen Sie dann mit dieser und dem 
Springseil (JUMP LEAD) zur Bee 
Pee-Station. 

12. Wenn Sie die Flachbatterie hier 
einmal mit der grünen Batterie, die 
sich in der Bee Pee-Station befindet, 
aufgeladen, haben dann müssen Sie 
die jetzt wieder aufgefüllte Batterie an 
einer Stelle ablegen, an der Sie diese 
später leicht wiederfinden und 
schnell aufnehmen können. 

13. Schlüpfen Sie wieder in Tom’s 
Charakter und nehmen Sie die Flach¬ 
batterie (FLAT BATTERY) auf. 
Bringen Sie diese darauf zum Gabel¬ 
stapler zurück. Wechseln Sie dann in 
Wally’s Rolle und steigen Sie in den 
Gabelstapler ein. 

Klettern Sie danach auf die Wand 
und nehmen Sie den Buchstaben K 
auf. 


Beschaffung des Buchstaben A: 

1. Schlüpfen Sie in Tom’s Gestalt und 
besorgen Sie sich die Ölkanne (OIL 
CAN). Gehen Sie damit zum Super¬ 
markt. Ölen Sie dort den Einkaufs¬ 
wagen. 

2. Begeben Sie sich jetzt in Harry’s 
Rolle, springen Sie auf den Einkaufs¬ 
wagen und dann auf die Ladentheke 
und nehmen Sie dort den Buchstaben 
A auf. 

Beschaffung des Buchstaben E: 

1. Um den Haken (HOOK) zu repa¬ 
rieren, müssen Sie sich in Wally’s Ge¬ 
stalt befinden, sich den Superkleber 
(SUPER GLUE) besorgen und den 
gebrochenen Haken (BROKEN 
HOOK) besorgen und diese Teile 
zum Arbeitsschuppen (WORKSHED) 
bringen. 

2. Legen Sie den Haken (BROKEN 
HOOK) oben auf den Arbeitstisch 
und gehen Sie mit dem Superkleber 
(SUPER GLUE) unter den Schraub¬ 
stock. Nehmen Sie jetzt den Haken 
wieder auf, der jetzt die Information 
”Haken arbeitet” (HOOK WOR¬ 
KING) tragen sollte. 

3. Gehen Sie mit dem Haken zum 
Krahn. 

4. Wechseln Sie nun zu Wilma’s Ge¬ 
stalt und nehmen Sie das Paket 
(PARCEL) und die Briefmarke 
(STAMP) auf. Gehen Sie damit zur 
Post (POST OFFICE). Dort ange¬ 
kommen, müssen Sie bis zum Ende 
des Bildschirms gehen, um das Paket 
zu frankieren. Nun können Sie 
weitergehen und das frankierte Paket 
gegen den Buchstaben E austau¬ 
schen. 

Beschaffung des Buchstaben R: 

1. Nehmen Sie die Gasmaske (GAS 
MASK) auf und gehen Sie, hinter 
dem Hai, in die Kanalisation und 
dann in die Höhle. 

2. Gehen Sie bis zum Ende dieses 
Raums bzw. Bildschirms und neh¬ 
men Sie dort den Buchstaben R auf. 

Reparatur der Gasleitung und Vervoll¬ 
ständigung des Spiels: 

Schlüpfen Sie in Dick’s Rolle und 
nehmen Sie die Gasmaske (GAS 
MASK) auf. Gehen Sie dann zur 
Höhle und sammeln Sie die undichte 
Gasleitung (LEAKING GAS PIPE) 
ein (achten Sie dabei auf den gefährli¬ 
chen Hai). 

Wenn Sie aus der Höhle hinausge¬ 
hen, müssen Sie das Kaugummi 
(CHEWING GUM) suchen und auf¬ 
nehmen, die Gasleitung im Ar¬ 
beitsschuppen (WORKSHED) auf 
den Arbeitstisch legen und wieder 
fortgehen, um das Pflaster (PATCH) 
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zu suchen. Nehmen Sie das Pflaster 
(PATCH) und das Kaugummi (CHE- 
WING GUM) auf und gehen Sie 
zusammen mit der undichten Gaslei¬ 
tung unter den Arbeitstisch. Nehmen 
Sie dort die reparierte Gasleitung auf. 
Nehmen Sie die Gasmaske (GAS 
MASK) wieder auf und bringen Sie 
die reparierte Gasleitung zurück in 


die Höhle. So verschwinden die Fun¬ 
ken in der Höhle und die Flamme 
von der Straße (MOTORWAY). 

Das Ende naht: 

Nun besitzen Sie alle Buchstaben des 
Codes und müssen sie zur Bank brin¬ 
gen. Ordnen Sie diese dort so, als 
wenn Sie das Word BREAK buch¬ 


stabieren wollen. Jede Person sollte 
im Spiel einen eigenen Buchstaben 
einnehmen: 

B muß Wilma aufnehmen, 

R muß Tom aufnehmen, 

E muß Dick aufnehmen, 

A muß Harry aufnehmen und 
K muß Wally aufnehmen, 
um die Schlußgrafik zu erreichen! 
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Herbert’s Dummy Run 

Dies ist das erste Programm der 
Wally-Serie, in dem der kleine Her¬ 
bert der Star ist. Das muß aber nicht 
bedeuten, daß hier nicht genausoviel 
Spaß entsteht wie bei den anderen 
Programmen, weil auch "Herberts 
Dummy Run" über eine sehr gute 
Grafik, zahlreiche Räume und nette 
Effekte verfügt, die den Joystick for¬ 
dern. ohne einfach "drauflos” zu 
ballern! 

Ziel des Spiels: 

Wally sSohn Herbert hat seine Eltern 
verloren. Verzweifelt irrt er daher 
durch die Gegend - d.h. durch ein 
Wohnhaus, eine Burg oder sogar 
durch ein Kaufhaus. Dabei begegnen 
ihm zwar viele Gegenstände, aber lei¬ 
der nicht seine Eltern. Wilma und 
Wally warten nämlich an einer 
Rolltreppe auf ihren Sohn, da sie hier 
sein Fehlen bemerkten. Nur durch 
Ihre Mithilfe kann Herbert sie 
) wiederfinden. 


Der Lösungsweg: 

Beachten Sie hierzu auch Lageplan 3, 
der die Lage und Verbindungen der 
wesentlichsten Räume beinhaltet. 

1. Zuerst müssen Sie sich den Box- 
Schlüssel (BOX KEY) und den Ho¬ 
nigtopf (HONEY POT) besorgen. 

2. Hierzu gilt es, in den Raum zu ge¬ 
hen. in dem das Spiel begann. Sprin¬ 
gen Sie dort auf den Kasten. Sogelan¬ 
gen Sie dann zu einer Stelle, an der 
Sie den Honigtopf (HONEY POT) 
gegen den Teddybär (TEDDY) ein¬ 
tausehen können. 

3. Nehmen Sie das Seil (ROPE) auf 
und gehen Sie danach mit dem Seil 
und dem Teddybär zum Arcade- 
Raum. in dem kleine Roboter 
umherschwirren. 

4. Der Teddybär geht nun fort und 
öffnet dann am rechten Bildschirm¬ 
rand eine Tür. durch die Sie nun auch 
durchgehen können. Springen Sie 
jetzt an das Seil, welches sich im 
nächsten Raum befindet. Es verlän¬ 
gert sich so, daß Sie jetzt vom Schwimm¬ 
bad aus mit dem Seil zur Gummiente 
(RUBBER DUCK) kommen und 


diese anschließend aufnehmen kön¬ 
nen. 

5. Nehmen Sie jetzt das Flaschenge¬ 
wehr (POP GUN) und den Korken 
(CORK) auf und gehen Sie damit 
zur Burg. 

6. Tauschen Sie das Flaschengewehr 
(POP GUN) gegen die Fahne 
(FLAG), die sich oben auf dem 
Burgturm befindet, ein. Gehen Sie 
anschließend mit der Gummiente 
(RUBBER DUCK) zum Start- 
Bildschirm. Von hieraus können Sie 
nun die Kieselsteine(PEBBLES) auf¬ 
nehmen, um die Schleuder (CATA- 
PULT) zu laden. 

7. Besorgen Sie sich jetzt die Ta¬ 
schenlampe (TORCH) und die Glüh¬ 
birne (BULB). Auf diese Art u nd Weise 
wird die Taschenlampe repariert und 
ist damit wieder funktionstüchtig. 

8. Gehen Sie mit der Taschenlampe 
in den dunklen Raum.Hier können 
Sie nun alles sehen. Schießen Sie auf 
alle Enten; danach fällt eine Mün- 
zenrollc herunter. Nehmen Sie diese 
auf und legen Sie sie an einer Stelle 
ab. die Sie später schnell und leicht 
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11 , 11,11 wiederfinden können. 

ÜHIm 9. Nehmen Sie den A-Ziegelstein (A- 
jjü!',!’ BRICKET) und die lOp-Schokola- 
ii;;ilü denmünze (CHOCOLATE COIN) 
''IIIIII auf und gehen Sie damit zu dem 
Bildschirm, in dem sich die Laden- 
|( ^ kasse befindet. 

,|‘ "|i 10. Klettern Sie auf die Spitze des Zie- 
'Ijijjjj gelsteins und gehen Sie mit der 10p- 
jl*. Schokoladenmünze an der Laden- 


![l|i|l kasse vorbei; die lOp-Schokoladen- 
münze sollte nun gegen eine echte 
10-Münze (COIN) ausgetauscht 
sein. 

I 1 ' 1 !!!! 11. Nehmen Sie die lOp-Münze und 
Ijjljjj! die Bombe (BOMB) auf und gehen 
"IjlJÜ Sie darauf in den Raum mit einem 
Geldstück-Schlitz an der Tür. Sprin- 
|, ||i|, gen Sie dort heran. Sie befinden sich 
'in dann im Spielraum (ARCADE- 
iljllj,, ROOM). Wenn alle Blitze eingesam- 
ü""" melt sind, erhalten Sie eine Kanonen- 

IIIIU 


kugel (CANNONBALL). 

12. Mit der Kanonenkugel und der 
Münzenrolle müssen Sie nun zum 
Raum gehen, in dem sich die Kanone 
befindet. Gehen Sie durch diesen 
Raum. Die Kanonenkugel wird dar¬ 
aufhin abgeschossen und es entsteht 
ein Loch in der Wand. 

13. Gehen Sie durch dieses Loch und 
nehmen Sie den Weltraumflieger 
(SPACE HOPPER) auf. 

14. Laufen Sie anschließend zurück 
und nehmen Sie nun den Tennis¬ 
schläger (TENNIS RAQUET) auf. 
Legen Sie den Weltraumflieger 
(SPACE HOPPER) an einer Stelle 
ab. die Sie im weiteren Verlauf gün¬ 
stig erreichen können. 

15. Gehen Sie jetzt in den Ausbrech- 
Raum (BREAKOUT-ROOM) hinein 
und vervollständigen Sie das Spiel. 
Ist das Spiel hiereinmal beendet bzw. 


vervollständigt, dann sollten Sie 
einen Handschuh (GLOVE) erhal¬ 
ten. 

16. Nehmen Sieden Weltraumflieger 
(SPACE HOPPER) wieder auf und 
gehen Sie mit dem Handschuh zur 
Stufe 1 (Etage 1 bzw.Level 1). Hier be¬ 
wacht ein Handschuh die Haustür 
(die Hand wird Sie nicht länger hin¬ 
dern. da Sie den Handschuh besit¬ 
zen). 

Der letzte Schritt: 

17. Sie befinden sich jetzt mit Wally 
und Wilma, die oben an der 
Rolltreppe stehen, im letzten Raum, 
der zur Lösung notwendig ist. Wenn 
Sie im Besitz des Weltraumfliegers 
sind, können Sie jetzt sehr hoch 
springen und die Rolltreppe anstel- 
len. So haben Sie Wally und Wilma 
wiedergefunden und Tlerbert's 
Dummy Run" gelöst. 
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Three Weeks in Paradise 

Das Programm "Three Weeks in Pa¬ 
radise" ist das neueste Action- 
Adventure der englischen Software¬ 
firma Mikro Gen. Schneider Interna¬ 
tional beschrieb und testete dieses 
Programm bereits schon in Ausgabe 
6/86. Hier wird nun der komplette 
Lösungsweg vorgestellt. 

Der Spielsinn: 

Wilma, Herbert und zwei Ihrer besten 
Freunde, sind bei ihrem diesjährigen 
Urlaub bei einem Streifzug durch den 
Dschungel von Kannibalen gefan¬ 
gengenommen worden. 

Durch Zufall erfahren Sie davon und 


eilen sofort Ihren Freunden zur Hilfe. 
Viel Zeit bleibt Ihnen dazu nicht, da 
sich die Kannibalen schon auf das 
leckere Essen der Marke Mensch 
freuen! 

Bevor man sich auf den untenstehen¬ 
den Lösungsweg begibt, sollte man 
auch bei diesem Programm ein wenig 
durch alle Räume wandern, damit 
man ungefähr einen Plan des Gelän¬ 
des bzw. Dschungels hat und so die 
einzelnen Lösungsschritte schneller 
vollziehen kann. Die Bildschirmin¬ 
formationen im unteren Bildschirm¬ 
teil sollten Sie genau beachten. Mit 
Aktion-Knopf ist gemeint, daß Sie 
den Joystick nach vorne drücken 
müssen. 


Wilma’s Rettung (Ladies First!): 

Besorgen Sie sich zuerst das Pfeffer¬ 
minzbonbon (Bezeichnung am Bild¬ 
schirm: MINT). Dieses finden Sie 
hinter dem Trading Post Schild (siehe 
auch Lageplan 4). 

Anschließend brauchen Sie Wilmas 
Handtasche; dazu müssen Sie sich in 
den Bildschirm begeben, in dem ein 
großer Tisch steht. Uber diesem Tisch 
hängt ein Gemälde, durch das Sie 
springen müssen. So gelangen Sie an 
den Strand, wo Sie Wilmas Hand¬ 
tasche (HANDBAG) aufnehmen 
müssen. Solange Sie diese Handta¬ 
sche besitzen, können Sie von dem 
Krokodil nicht angegriffen werden. 
Begeben Sie sich jetzt in den Raum, in 
welchem ein Eiswürfel liegt und 
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drücken Sie dann den Aktion- 
Knopf. 

Hierauf müssen Sie das Loch 
(HOLE) aufnehmen, sich nach rechts 
bewegen und die Handtasche vor 
dem Krokodilmaul abstellen. 
Zusammen mit dem Loch (HOLE) 
und dem Goldfischglas (GOLD 
FISH BOWL) ist es nun Ihre Auf¬ 
gabe, den Bildschirm mit dem Wunsch- 
brunnen (WISHING WELL) zu 
suchen. Am linken Rand dieses Rau¬ 
mes müssen Sie ebenfalls den 
Aktion-Knopf betätigen. Anschlie¬ 
ßend begeben Sie sich in den linken 
Bildschirm und nehmen dabei den 
Skelettschlüssel (SKELETON KEY) 
mit. Die Krokodile bewegt sich hier 
immer dann nicht, wenn Sie das Gold¬ 
fischglas (GOLD FISH BOWL) bei sich 
haben. Jetzt müssen Sie wieder zum 
Strand zurückgehen, dort ins Meer 
eintauchen und den Schrank berüh¬ 
ren. Hierauf öffnet sich die Tür und 
Sie können den Spinat (SPINACH) 
in Ihren Besitz aufnehmen. 

Lassen Sie aber den Spinat später in 
einem Raum, den Sie leicht wieder¬ 
finden bzw. leicht erreichen können 
zurück. 

Gehen Sie jetzt wieder in den Raum, 
in welchem sich das Strandgemälde 
befindet und nehmen Sie die gefüllte 
Schale (STUFFING BOWL) vom 
Tisch; gehen Sie darauf mit dieser 
Schale in den Raum mit dem großen 
Vogel (Saurier). Nehmen Sie hier das 
Ei auf, aber achten Sie darauf, daß es 
Ihnen nicht in die Schale fällt! Mit 
dem Ei und dem Spinat müssen Sie 
sich jetzt auf den Weg zu dem Raum 
machen, in dem sich das Schild 
"OLD FAITHFUL" befindet. 

Wenn Sie hier angekommen sind, 
müssen Sie die Liane berühren und 
schnell in den nun entstandenen 


Wasserfall springen. Auf dem Weg 
nach oben sollten Sie in das Nest 
hüpfen und dort den Spinat gegen 
Pfeile und einen Bogen (BOW AND 
ARROWS) eintauschen. Hierauf 
müssen Sie aus dem Nest springen 
und das Ei darin zurücklassen. Mit 
den Pfeilen und dem Bogen müssen 
Sie sich jetzt in den Bildschirmteil be¬ 
wegen. in dem sich Wilma befindet. 
Den wilden Eingeborenen können 
Sie nun mit einem Pfeil erschießen. 

Nun müssen Sie Ihre Reise wieder 
zum Wunschbrunnen-Raum (WISH¬ 
ING WELL) fortsetzen und genau in 
der Mitte des Brunnenrandes den 
Aktion-Knopf drücken, wodurch 
Wally (den Sie ja steuern) auf den 
Grund des Brunnens fällt. Hierange¬ 
kommen. gilt es, die Flasche 
(BOTTLE) aufzunehmen und darauf 


am rechten Brunnenrand wieder her¬ 
auszuklettern (dabei muß der Aktion- 
Knopf niedergedrückt bleiben). Mit nlll!" 
der zuvor erworbenen Flasche und 
dem Korkenzieher (CORKSCREW) ;p, 
müssen Sie jetzt zurück in den ,m!n 
Krokodil-Raum gehen. Dadurch, 'l!!!!!! 
daß Sie die Handtasche (HAND- !| jjjjj 
BAG) verwenden, können Sie mit ,j!|j!. 
dem Korkenzieher und der Flasche 
(jeweils einzeln, also Handtasche 
und Korkenzieher bzw. Handtasche |j|jj||' 
und Flasche) an dem Krokodil vor- !||,J! 
beikommen. Hierauf müssen Sie sich «■!!!!! 
mit diesen beiden Gegenständen 
über die Kokusnuß stellen und aber- !||J]J|; 
mals den Aktion-Knopf betätigen. 
Nehmen Sie danach die gefüllte 
Ölflasche (BOTTLE OF OIL) und die Hin,, 
stumpfe Axt (BLUNT AXE) zu dem |;;|||| 
Bildschirm mit, in dem das Auto i|j}|!|; 
steht. Schärfen Sie nun dadurch die jljjljj 
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Axt am Vorderrad des Wagens, daß 
Sie den Aktion-Knopf niederdrücken. 
Gehen Sie anschließend mit der jetzt 
scharfen Axt zu Wilma zurück, um 
sie durch mehrmaliges Drücken des 
Aktion-Knopf endlich aus ihrer un¬ 
glücklichen Situation zu befreien. 
Damit haben Sie bereits den ersten 
Teil des Programms gelöst! 

Herbert’s Rettung: 

Zuerst müssen Sie sich die Zündhöl¬ 
zer (DEAUX STICKS) aus dem 
Bildschirm, in dem sich das Krokodil 
befindet, besorgen. Im Amboß-Raum 
können diese dann dazu benutzt wer¬ 
den, ein Feuer anzuzünden. Nach¬ 
dem Sie das Feuer zum Brennen ge¬ 
bracht haben, müssen Sie zum 
Wunschbrunnen (WISHING WELL) 
gehen und dort den Blasebalg (BEL- 
LOWS) vom Brunnenrand aufneh¬ 
men. Wenn Sie jetzt über dem Feuer 
den Aktion-Knopf niederdrücken, er¬ 
halten Sie dadurch heiße Asche (HOT 
ASHES). 

Mit dieser Asche müssen Sie sich jetzt 


zum Totentempel-Bildschirm bege¬ 
ben und den Aktion-Knopf drücken, 
wenn Sie bei dem weißen Mann ange¬ 
kommen sind. Besitzen Sie den Bla¬ 
sebalg, dann wird sich die Wolke, 
nachdem Sie sich rechts von ihr hin¬ 
begeben haben, aus dem linken 
Bildrand hinausbewegen. Folgen Sie 
der Wolke, bis diese die Hütte erreicht 
hat und sammeln Sie dort die leeren 
Muscheln (EMPTY SHELLS) auf. 
Nehmen Sie diese Muscheln mit in 
den Brunnen und drücken Sie, auf 
dem Brunnengrund angekommen, 
dann in dem Moment auf den 
Aktion-Knopf, wenn der Wassertrop¬ 
fen auftrifft. 

Begeben Sie sich jetzt wieder nach 
oben (siehe dazu die Beschreibung 
bei Wilmas Rettung) und besorgen 
Sie sich die Plastik-Kanne (BILLY 
CAN). Gehen Sie damit zum Geyser, 
berühren Sie die Liane und rennen 
Sie dann zum Wasserfall, um die 
Kanne zu füllen. Suchen Sie hierauf 
die Schwimmflügel (FLIP FLOPS) 


und nehmen Sie diese zusammen mit 
der gefüllten Kanne mit zum 
Strand. 

Wenn Sie die Krabbe erreicht haben, 
müssen Sie den Aktion-Knopf drücken 
und sich anschließend mit der Krab¬ 
benschere und der vollen Muschel 
von rechts zu dem Raum begeben, in 
dem der arme Herbert schon entsetz¬ 
lich schmort. Halten Sie hier den 
Aktion-Knopf länger niedergedrückt, 
dann ist es Ihnen möglich, unversehrt 
an dem Löwen vorbeizukommen. 
Wenn Sie dann an der Mitte des Kes¬ 
sels angekommen sind, können Sie 
Herbert jetzt ganz einfach aus dem 
Kessel retten, indem Sie erneut den 
Aktion-Knopf niederdrücken. 

Wenn Sie sich jetzt noch zum Strand 
begeben, verlassen Sie automatisch 
per Schiff diese verwunschene, aber 
doch äußerst interessante Insel und 
erreichen darüber hinaus noch 100 % 
der Lösung. 

(Markus und Andreas Pisters) 
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Für unsere ständige Joyce-Rubrik suchen wir 
noch 

Programme 
Tips + Tricks 

zur Veröffentlichung. Honorar nach 
Vereinbarung. 


Einsendungen an: 

DMV Daten & Medien Verlagsges. mbH, 
Fuldaer Str. 6, 3440 Eschwege 
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ELITE: Commander nach 
Wunsch 


auch niemand auf die Idee, beim Würfelspiel die Figuren 
gleich ins Ziel zu setzen). Es eignet sich aber hervorragend 
dazu, schon einmal auszuprobieren, ob z.B. an den Seiten 
Laser notwendig sind oder nicht. Bei sinnvoller Anwen¬ 
dung dieses Programms bleibt ELITE ein Spiel, das so 
schnell nicht langweilig wird. (Thomas Kochmann) 


' Commander Thomas ... derzeitiges System: Geisgeza ... 
Hyperraumziel: Arexe ... Treibstoff: 7.0 Lichtjahre ... 
Konto: 65 Mio. Cr. ... Strafregister: sauber ... Einstufung: 
Elite... Ausrüstung: Zusatz-Laderaum... E.C.M.-System... 
E.C.M.-Störmeehanismus ... Raumgreifer ... Rettungs¬ 
kapsel ... Energiebombe ... Zusatz-Energieakku ... Lande- 
Computer ... galaktischer Hyperraumantrieb ... Tarnme¬ 
chanismus ... Militärlaser vorne ... Militärlaser hinten ... 
Militärlaser links ... Militärlaser rechts” 

Dies ist meine aktuelle Statusseite im Spiel ELITE, die ich 
nach ganzen zwei Tagen erreichte! Leider kann ich Ihnen 
jedoch keinen Planeten verraten, auf dem u.a. eine solche 
‘wunderbare Credit-Vermehrung" stattfindet. Aber viel¬ 
leicht genügt Ihnen vorerst das untenstehende Programm: 
Das Programm macht nichts anderes, als auf Kassette einen 
Commander zu erzeugen, der anschließend vom ELITE- 
Programm wieder geladen werden kann. Dieser Com¬ 
mander wird ausschließlich im Dialog mit dem User 
zusammengestellt, so daß das Programm für jeden, der mit 
dei ELITE-Terminologie vertraut ist, ohne weiteres ver¬ 
ständlich ist. 

Ein Hinweis jedoch zu der Abfrage "System eingeben?”: 
Tippen Sie "J" oder ’ j", so erwartet der Rechner die Ein¬ 
gabe der Koordinaten des gewünschten Systems, bezogen 
auf die jeweilige galaktische Karte, anschließend die tech¬ 
nische Stufe. Eine direkte Eingabe des Planetennamens ist 
leider nicht möglich (Sonst müßte das Programm die 
Koordinaten sämtlicher Planeten kennen - und Sie wären 
eine Weile mit dem Abtippen beschäftigt!). Geben Sie je¬ 
doch ”N” oder ”n" ein, so wählt der Rechner die Koordina¬ 
ten eines Planeten in der Mitte der jeweiligen Galaxie. 
Natürlich sollen Sie das Programm nicht dazu benutzen, 
sich sofort zum Elite-Kämpfer" zu befördern (es käme ja 


10 

' Commander fuer ELITE 

[1 544 1 

20 

1 

[1171 

30 

' Vorbereitung 

[643 1 

40 

MEMORY &9FFF 

[134] 

50 

FOR 1-&A000 TO &A067:POKE i,0:NEXT 

[1 482 1 

60 

1 

[1171 

70 

' Parameter fuer Galaxien 

[16991 

80 , 

RESTORE 130:DIM par(7,8) 

[1739 1 

90 

FOR gal-1 TO 8 

[640] 

100 

FOR i»0 TO 8:READ x$ 

[1428] 

110 

par(gal-1,i)«VAL("&"+x$) 

[1 464 1 

120 

NEXT:NEXT 

[1022 1 

130 

DATA 4A,5A,48,02,53,B7,79,85,09 

[2138 1 

140 

DATA 94,B4,90,04,A6,6F,83,84,06 

[1151 1 

150 

DATA 29,69,21,08,4D,DE,78,82,0C 

[9791 

160 

DATA 52,D2,42,10,9A,BD,7A,86,07 

[91 1 1 

170 

DATA A4,A5,84,20,35,7B,90,80,05 

[1 3601 

180 

DATA 49,4B,09,40,6A,F6,75,82,07 

[1646 I 

190 

DATA 92,96,12,80,D4,ED,7C,7F,09 

[1284 ] 

200 

DATA 25,2D,24,01,A9,DB,7B,80,07 

[1957 1 

210 

' 

[117 ] 

220 

' titel 

[643 1 

230 

MODE IrLOCATE 8,2 

[15691 

240 

PRINT"** Commander fuer ELITE 

12948 ) 

250 

LOCATE 1,5 

(6231 

260 

1 

[1171 

270 

' Name eingeben 

[366 1 

280 

INPUT"Name des Commanders";a$ 

[2296] 

290 

PRINT:PRINT:a$»UPPERS(LEFT$(a$, 1 0)) 

[26821 

300 

FOR i»1 TO LEN(a$) 

(791 1 

310 

POKE S9FFF+i,ASC(MID$(a$,i,1)) 

[15073 

320 

NEXTiPOKE &9FFF+i,0 

[1034] 

330 

1 

[117] 

340 

' Derzeitiges System 

[1 490 ] 

350 

PRINT"Derzeitiges System:":PRINT 

[3922 1 

360 

INPUT"Galaxie Nr.";x:PRINT 

[18903 

370 

x«x-1:x=x MOD 8:POKE &A011,x 

[2261 3 

380 

FOR i»0 TO 5 

[480 1 

390 

POKE &A03C+i,par(x,i):NEXT 

[15941 

400 

POKE &A043,par(x,6) 

[693 ] 

410 

POKE &A045,par(x,7) 

[763 1 

420 

POKE &A048,par(x,8) 

[955 1 

430 

INPUT"System eingeben (J/N)";a$ 

[33461 

440 

IF UPPER$(a$)< >"J"THEN 540 

11796 1 
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450 PRINT:PRINT"x-Koordinate: 

460 PRINT"links: 0 rechts: 255" 

470 PRINT"y-Koordinate: 

480 PRINT"oben: 0 unten: 255" 

490 PRINT:INPUT"x-Koordinate";x 
500 INPUT"y-Koordinate";y 
510 POKE &A043,x:POKE &A045,y 
520 PRINT:INPUT"Technisehe Stufe";x 
530 POKE &A048,MIN(x-1,255) 

540 POKE &A065,&FF 
550 PRINTsPRINT 
560 ' 

570 ' Treibstoff 
580 INPUT"Treibstoff (Lj.)";x 
590 x=MIN(10*x,255):POKE &A02E,x 
600 PRINT:PRINT 
610 ' 

620 1 Konto 

630 INPUT"Konto (Cr)";x:PRINT:PRINT 
640 a=INT(x/1000):b=(x-1000*a)*10 
650 a=MIN(a,65535) 

660 POKE &A012,a-256 *INT(a/256) 

670 POKE &A013,INT(a/256) 

680 POKE &A014,b MOD 256 
690 POKE &A015,INT(b/256) 

700 ' 

710 1 Strafregister 
720 PRINT"Strafregister:":PRINT 
730 PRINT" 0 = Sauber" 

740 PRINT" 1 bis 49 = Vorbestraft" 
750 PRINT"50 bis 255 - Gesucht" 

760 PRINT:INPUT"Wert";x 
770 POKE &A00B,x:PRINT:PRINT 
780 ' 

790 ' Einstufung 
800 PRINT"Einstufung:":PRINT 
810 PRINT" 0 bis 2303 = 

820 PRINT"Harmlos" 

830 PRINT" 2304 bis 4351 = 

840 PRINT"Relativ Harmlos" 

850 PRINT" 4352 bis 8447 = 

860 PRINT"Schwach" 

870 PRINT" 8448 bis 16639 - 
880 PRINT"Durchschnitt" 

890 PRINT" 16640 bis 33023 * 

900 PRINT"Ueberdurchschnitt" 

910 PRINT" 33024 bis 196607 = 

920 PRINT"Kompetent" 

930 PRINT" 196608 bis 720895 = 

940 PRINT"Gefaehrlich" 

950 PRINT" 720896 bis 1703935 = 

960 PRINT"Toedlich" 

970 PRINT"1703936 bis . - 

980 PRINT"Elite" 

990 PRINT:INPUT"Wert";x 
1000 a-INT(x/65536):x-x-65536*a 
1010 b*INT(x/256) :c«x-256*b 
1020 POKE &A00C,c:POKE &A00D,b 
1030 POKE &A00E,a:PRINT:PRINT 
1040 ' 

1050 1 Ausruestung 
1060 PRINT"Ausruestung:":PRINT 
1070 INPUT"Raketen: Anzahl";x:PRINT 
1080 POKE &A02F,x MOD 256 
1090 RESTORE 1140:FOR n-1 TO 8 
1100 READ a$,i:PRINT a$;" (J/N)"; 

1110 PRINT TAB(26):INPUT a$ 

1120 x»0:IF UPPER$(a$)-"J" THEN X-&FF 

1130 POKE i,x:NEXT 

1140 DATA Zusatz-Laderaum,&A030 

1150 DATA E.C.M.-System,&A031 

1160 DATA Raumgreifer,&A034 

1170 DATA Rettungskapsel,&A035 

1180 DATA Energiebombe,&A036 

1190 DATA Zusatz-Energieakku,&A037 

1200 DATA Lande-Computer,&A038 

1210 DATA Gal. Hyperraumantr.,&A039 

1220 PRlNT"Tarnmechanismus (J/N)"; 

1230 PRINT TAB(26):INPUT a$ 

1240 x»0:IF UPPER$(a$)-"j"THEN X-&40 
1250 PRINT"E.C.M.-Stoermech. (J/N)"; 
1260 PRINT TAB(26):INPUT a$ 

1270 IF UPPER$(a$)-"j"THEN x=x OR &80 
1280 POKE &A05C,x 

1290 PRINT:PRINT"Laser: 0-keiner" 
1300 PRINT TAB(9)"1-Impuls-Laser" 

1310 PRINT TAB(9)"2-Strahlen-Laser" 
1320 PRINT TAB(9)"3-Militaer-Laser" 
1330 PRINT TAB(9)"4-Asteroiden-Laser" 


[1360 ) 

1340 

PRINT 

[361 ) 

[1625 1 

1350 

INPUT"vorne ";x:POKE &A029,x 

[1097 ] 

[2046 1 

1360 

INPUT"hinten";x:POKE &A02A,x 

[2120 1 

[1848] 

1370 

INPUT"links ";x:POKE &A02B,x 

[14631 

[1574 1 

1380 

INPUT"rechts";x:POKE &A02C,x 

[2493 1 

[2384 ] 

1390 

PRINT:PRINT 

[7431 

[1142J 

1400 

' 

[1171 

[2818] 

1410 

1 Inventar 

[574 1 

[619 1 

1420 

PRINT"Inventar:":PRINT 

[1253 1 

[448 ) 

1430 

a=ÄA017:GOSUB 1850:PRINT 

[25781 

[743] 

1440 

INPUT"Freier Laderaum (t)";x 

[31281 

[1171 

1450 

x=MIN(x,255):POKE &A028,X 

[17161 

[734 ] 

1460 

PRINT:PRINT 

[7431 

[1125] 

1470 

1 

[117] 

[3311 ) 

1480 

1 Lagerbestand im System 

[1500 1 

[743 1 

1490 

PRINT"Lagerbestand im" 

[1543 1 

[1171 

1500 

PRINT"derzeitigen System:" 

[2050 1 

[3951 

1510 

PRINT:a=&A04A:GOSUB 1850 

[13361 

[24651 

1520 

PRINT:PRINT 

[7431 

[27931 

1530 

1 

[1171 

[18171 

1540 

1 Bytes verschluesseln 

[1462] 

[12121 

1550 

' und Pruefsummen bilden 

[1969 1 

[755 1 

1560 

x=0:FOR i-SAOOO TO &A065 

[1041 3 

[659 1 

1570 

x=x XOR PEEK(i):NEXT 

[1936 1 

[8071 

1580 

POKE &A066,x 

[3651 

[1171 

1590 

x=0:FOR 1-&AOOO TO &A066 

[1040 1 

[1088 1 

1600 

x=x+PEEK(i):NEXT 

[26421 

[17531 

1610 

POKE &A067,x MOD 256 

[1232 1 

[1071 1 

1620 

RESTORE 1650:FOR i»&A000 TO &A067 

[1878 1 

(2919 1 

1630 

READ x$:x=VAL("&"+x$) 

M680 1 

[621 1 

1640 

POKE i,PEEK(i) XOR x:NEXT 

[1001 ] 

[606 } 

1650 

DATA 21 ,16,4F,CD,C3,6B,21,20 

[965 1 

[2070 1 

1660 

DATA 10,11,73,4F,01,09,00,ED 

[1695 1 

11171 

1670 

DATA B0,11,F1,69,CD,4D,64,76 

[11191 

[1846 1 

1680 

DATA 76,76,76,76,76,CD,7B,6B 

[1898 1 

[2018 1 

1690 

DATA 32,7C,4F,CD,86,6B,32,7D 

[1926 ] 

[2261 1 

1700 

DATA 4F,CD,6B,6B,3E,02,CD,CA 

[1458 ] 

[959 1 

1710 

DATA 6B,CD,A8,56,CD,BA,6B,CD 

[20161 

[1 597 1 

1720 

DATA 50,CE,FB,CD,6B,6B,3E,97 

[4751 

[21 41 1 

1730 

DATA CD,CA,6B,21 ,01 ,0C,22,0F 

[1458 1 

[2698 1 

1740 

DATA 4F,3E,04,CD,26,63,CD,57 

[1301 1 

[871 1 

1750 

DATA 68,D6,15,E6,0F,5F,32,67 

[1281 ] 

[1826 1 

1760 

DATA 6B,3A,28,4F,57,32,68,6B 

[19871 

[1 652 1 

1770 

DATA 3A,29,4F,6F,32,69,6B,7D 

[15721 

[1335 1 

1780 

' 

[1171 

[2747] 

1790 

' Commander abspeichern 

[14801 

[1204] 

1800 

CALL &BB03 

[3961 

[1521 1 

1810 

SAVE"",b,&A000,&68 

[956 1 

[2007 1 

1820 

PRINT:PRINT:END 

[1018 1 

[1557 1 

1830 


[1171 

[1 424 1 

1840 

' Unterprogramme 

[9161 

[1406 1 

1850 

INPUT"Nahrung (t) ";x 

[12071 

[22171 

1860 

GOSUB 2180 

[8551 

(747 1 

1870 

INPUT"Textilien (t) ";x 

[21071 

[806 1 

1880 

GOSUB 2180 

[855] 

[2429 1 

1890 

INPUT"SpaltStoffe (t)";x 

[1381 1 

[1795 1 

1900 

GOSUB 2180 

[855 1 

[1479 1 

1910 

INPUT"Sklaven (t) ";x 

[9021 

[2372 1 

1920 

GOSUB 2180 

[8551 

[117] 

1930 

INPUT"Spirituosen (t)";x 

[1 492 1 

[1063 1 

1940 

GOSUB 2180 

[8551 

[15501 

1950 

INPUT"Luxusgueter (t)";x 

[17961 

[3054 1 

1960 

GOSUB 2180 

[8551 

[1228 ] 

1970 

INPUT"Rauschgifte (t)";x 

[1857 1 

[11681 

1980 

GOSUB 2180 

(8551 

[701 1 

1990 

INPUT"Computer (t) ";x 

[1021 3 

[1821 1 

2000 

GOSUB 2180 

[8551 

[2760 1 

2010 

INPUT"Maschinen (t) ";x 

[10931 

[696 1 

2020 

GOSUB 2180 

[8551 

[27971 

2030 

INPUT"Legierungen (t)";x 

[11191 

[441 ] 

2040 

GOSUB 2180 

[8551 

[10951 

2050 

INPUT"Waffen (t) ";x 

[1855 1 

[911 1 

2060 

GOSUB 2180 

[8551 

[840] 

2070 

INPUT"Felle (t) ";x 

[13423 

[2284 1 

2080 

GOSUB 2180 

[8551 

[1 442 1 

2090 

INPUT"Mineralien (t) ";x 

[2006 1 

[1822 1 

2100 

GOSUB 2180 

[855 1 

[3231 1 

2110 

INPUT"Gold (kg) ";x 

[1324 1 

[1821 1 

2120 

GOSUB 2180 

[8551 

[2562] 

2130 

INPUT"Platin (kg) ";x 

[1983 1 

13535) 

21 40 

GOSUB 2180 

[8551 

[1821 1 

2150 

INPUT"Edelsteine (g) ";x 

[1764 I 

[1720 1 

2160 

GOSUB 2180 

[8551 

[770] 

2170 

RETURN 

[555 1 

[30901 

2180 

x=MIN(x,255):POKE a,x 

[1473 1 

£6391 

2190 

a=a+1:RETURN 

(16421 

[2015 J 

2200 

' 

[1171 

[22861 

2210 

' Die Anmerkungen koennen 

(27061 

[13151 

2220 

' weggelassen werden 

(16431 
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Mühle 


US 


Das Programm Mühle "ist die gelungene Umsetzung des 
uralten Brettspiels für die Rechner der CPC-Reihe. 

Die Spielregeln entsprechen weitestgehend denen des 
Originals. Folgende Besonderheiten müssen jedoch heim 
Spiel beachtet werden: 

1. Es darf kein Stein aus einer Mühle genommen werden, 
auch dann nicht, wenn man sonst keinen Stein bewegen 
kann. In diesem Fall muß man ausselzen und gibt PF 
[ENTER] ein. 

2. Es darf nur auf miteinander verbundene Felder gezogen 
werden. Beispielsweise Al nach Dl oder A4. Bei Falsch¬ 
eingaben gibt der Rechner eine Fehlermeldung aus. 

3. Bleiben einem Spieler nur noch drei Steine (Minimum, 
um eine Mühle zu bilden), so darf er mit seinen Steinen 
wahllos auf jedes beliebige LEERE(Ü) Feld springen. 

4. Beim Setzen geben Sie einfach die Position des Steins an 
(z.B. Al IENTER]). 

5. Zum Nehmen geben Sie einfach die Position des Steins 
an (zB. Al [ENTER]). 

6. Zum Verschieben eines Steins geben Sie zuerst die Posi¬ 
tion an. wo der Stein steht und danach die Position, wo 
der Stein hin soll (z.B. Stein von Al nach Dl verschieben 

_ = A1D1 [ENTER]). 

Wurde einer der Spieler so eingeklemmt, daß er keinen 
Stein mehr verschieben kann, so gibt er ein FEST 
[ENTER] ein und hat damit verloren. 

Als zusätzliches Feature wurde die Möglichkeit zum Ab¬ 
speichern des Spielstandes eingebaut. Damit kann man 
eine angefangene Partie unterbrechen und zu einem spä¬ 
teren Zeitpunkt fortsetzen. 

Um ein Spiel zu speichern, geben Sie ein: ENDE 
[ENTER], 

Daraufhin fragte der Rechner: NOCH EIN SPIEL (J/N). 
Geben Sie N ein und beantworten Sie die Frage: SPIEL¬ 
DATEN ABSPEICHRN (J/N) mit J. 

Alles weitere erledigt der Rechner automatisch. 

(R. Backes) 


1 REM Programm 'T 

ITELBILD' --- 

2 FOR Z=0 TO 15:INK Z,0:NEXT:BORDER 0:MEMO 
RY &A1FF: MODE O.-POKE &B939.&C9 

3 PLOT 200,320, 1: DRAV 440,320:DRAV 560,80: 
DRAW 80,80:DRAV 200,320:PLOT 230,290:DRAV 
410,290:PLOT 410,290:DRAV 470,140:DRAV 170 
,140:DRAV 230,290:PLOT 260,260:DRAV 380,26 
0;PLOT 380,260:PLOT 380,260 

4 DRAV 410,185:DRAV 230,185:DRAV 260,260:P 


[37301 

[6136] 

[9586] 


[7768] 


LOT 320,260:DRAV 320,79:PLOT 320,259;DRAV 
320,319:PLOT 245,229:DRAV 155,229:PLOT 395 
,229:PLOT 322,253:PLOT 322,255:PLOT 322,25 
7,0: DRAV 322,217:DRAV 322,189 

5 PLOT 322,189,0:PLOT 322,187,1:PLOT 394,2 [9466] 
25:DRAV 488,225:PLOT 486,227:PLOT 562,79:D 

RAV 562,63:DRAV 562,55:DRAV 82,55:DRAV 82, 

83:PLOT 152,59,2:DRAV 152, 75:DRAV 168,75:D 
RAV 152,75:PLOT 168,75:DRAV 168,67 

6 DRAV 160,67,2: DRAV 168,59: PLOT 196,63.-DR [9441] 
AV 196,71:PLOT 200,75:DRAV 208,75:PLOT 212 

,71:DRAV 212,63:PL0T 208,59:DRAV 200,59:PL 
OT 236,59: DRAV 236,75:DRAV 248,75:PLOT 252 
,71:PLOT 248,67;DRAV 240,67 

7 PLOT 248,67,2:PLOT 252,63:PLOT 248,59:DR [11542] 
AV 240,59:PLOT 272,59:DRAV 284,59:PLOT 288 

,63:PLOT 284,67:DRAV 276,67:PLOT 272,71:PL 
OT 276,75:DRAV 288,75:PLOT 308,63:DRAV 308 
,71:PLOT 312,75:DRAV 320,75 

8 PLOT 324,71:DRAV 324,63:PLOT 320,59:DRAV [12152] 
312,59:PLOT 344,59:DRAV 344,75:DRAV 356,7 

5:PLOT 356,67:DRAV 348,67:PLOT 384,59:DRAV 


384,75:DRAW 372,75:DRAV 396,75;PLOT 408,6 
7:DRAV 416,67:PLOT 448,59 

9 DRAV 440,59:PLOT 436,63:DRAV 436,71:PLOT [9650] 
440,75:DRAV 448,75:PLOT 464,59: DRAV 464,7 

5:DRAV 472,75:PLOT 476,71:PLOT 472,67:DRAV 
468,67:PLOT 500,59: DRAV 492,59:PLOT 488,6 
3:DRAV 488,71:PLOT 492,75 

10 DRAV 500,75 [413] 

11 LOCATE 8,4:PEN 11:PRINT”MUEHLE":LOCATE [10018] 
10, 11: PEN 12:PR INT"by":PEN 4: LOCATE 4,23:P 

RINT CHR$<164):PEN 11:LOCATE 6,23:PRINT"RO 
LF BACKES”:PEN 3:LOCATE 6,25:PRINT"IS LOA 
DING" 


12 LOCATE 7,11:PEN 2:PRINT CHR$<231>:LOCAT 
E 8,14:PEN 13:PRINT CHR$<231):LOCATE 9,9:P 
RINT CHRt<231):LOCATE 15,17:PEN 2:PRINT CH 
R* <231) 

13 FOR adr=8rA200 TO &A2E1: READ a$ 

14 w=VAL<"&"+AS):s=s+w:POKE adr,w:NEXT 

15 MOVE 320,190:CALL &A200,14:MOVE 330,100 
:CALL &A200,14:MOVE 330,270:CALL &A200,14: 
MOVE 330,299:CALL &A200,14:MOVE 200,70:CAL 
L &A200,12:MOVE 302,230:CALL &A200,14 

16 INK 1,24: INK 2,26: INK 3,6: INK 4,21: INK 
6, 11: INK 11,17: INK 12,1: INK 14,13 

17 POKE &B939,&F3:RUN"!" 

18 DATA DF, 04, A2, C9, 07, A2, FE, 7B 

19 DATA CD,F6,17,F5,CD,FC,15,CD 

20 DATA 27,18,CD,86,OC,CI,B8,C8 

21 DATA 32, DF, A2,CD,1A,16,CD,FF 

22 DATA 16, D2,95, A2, E5, FD, El, D5 

23 DATA DD,El,CD,A9,OB,3A, DF, A2 

24 DATA 47,FD,23,CD,2D,OC,3A,34 

25 DATA B3,FD,95,38,05,78,AE,Al 

26 DATA 28,EF,FD,2B,CD,13,OC,51 

27 DATA 59,E5,C5.CB,01,DC,05,OC 

28 DATA 78,42,AE,Al,57,20,OA,BO 

29 DATA 28,07,DD,2B,DF,A5, A2, DD 

30 DATA 23, CI,El,E5,C5,CB,09,DC 

31 DATA F9,OB,78,43,AE, Al,5F, 20 

32 DATA OA,BO,28,07,DD,23,DF,A5 

33 DATA A2,DD,2B,CI,El,3A, 38, B3 

34 DATA AE,Al,AE,77,3A,36,B3,FD 

35 DATA 95,30,OA,FD,2B,CD,13,OC 

36 DATA 78,AE,Al,28,B4.2A,EO,A2 

37 DATA 7D, B4, C8, 2B,22,EO,A2,DF 

38 DATA CD,A2,C3,IE,A2,A8,A2, FD 

39 DATA D5,2A,89,AE,01,03,00, CD 

40 DATA 18, F6,38, 17,EB,22,89,AE 

41 DATA DD,E5,Dl,FD,E5,CI,2B,72 

42 DATA 2B,73,2B,71,2A,E0,A2.23 

43 DATA 22, EO, A2, Dl, C9, DO, A2, FD 

44 DATA 2A,89,AE,2B,56,2B,5E,2B 

45 DATA 22,89,AE,6E,26,00,C9,00 

46 DATA 00,00 


[7523] 


[1803] 

[2602] 

[7979] 


[3700] 

[1036] 
[6051 
[2366] 
[1312] 
[ 1001 ] 
[1586] 
[1770] 
11245) 
[1772] 
[1057] 
[1913] 
[1000] 
[1253] 
[11871 
[1459] 
[1957] 
[896] 
[1523] 
[1178] 
[1304] 
[1792] 
[1736) 
(1769) 
[720] 
[1370] 
[1333] 
[1475] 
[8291 
[1510] 
[440] 


1 POKE &BDEE 

,&C9:MEMORY &AB5E:DEFINT A-Z:G [3265) 

OSUB 318:GOSUB 224 

2 REM-Unterprogramm [3860] 

'wer beginnt'- 

3 com=PEEK<&AB7B):IF mo=0 THEN 5 ELSE IF m [3457) 
o=2 THEN mo=0 ELSE IF mo=3 THEN mo=l 

4 gewl=PEEK<&AB7C> : gew2=PEEK<&AB7D>: sp=mo: [3477] 
GOTO 6 

5 sp=INT<RND*2>:mo=sp: POKE &AB7E,mo [1124) 

6 LOCATE#l,5,2:IF sp=0 THEN PRINT#1,TAB<<1 [7131] 
7-LEN<spl$>>/2+l)spl$;BEGINNT"ELSE PRI 

NT#1,TAB< <17-LEN<sp2$> >/2+l)sp2S;"- begin 
nt” 

7 FOR za=l TO 1500:NEXT:CLS#1:IF mo=0 THEN [5318] 
POKE &AB7E.3 ELSE POKE &AB7E, 2 

8 REM - 'UNTERPROGRAMM 'zieh [4239) 

en oder setzen'- 

9 POKE &B939,&F3: IF PEEK<&DBBD)/PEEK <&D93D [2394] 
)=16 THEN 51 

10 POKE &B08B,&8B:POKE &B08C,&AE:IF sp=0 T [2281] 
HEN 12 ELSE 13 

11 REM- 'UNTERPROGRAMM 'ein [4680) 

gäbe setzen' - 

12 IF PEEK<&AB7B)=1 THEN 128 ELSE L0CATE#2 [9945] 

,5,5:INPUT#2,"SETZEN:",sett:lpl*=set$:LOC 

ATE#2, 12,5: PRINT#2,SPC<15):LOCATE#2,12,7:P 
RINT#2,LEFTS <lpl$,4 >:sp=l:PEN 2:GOSUB 15:G 
OTO 9 

13 L0CATE#3,5,5:INPUT#3,"SETZEN:",set$:1p [8363] 
2$=set$:L0CATE#3,12,5: PRINT#3, SPC<15):LOCA 
TE#3,12,7:PRINT#3,LEFT$<lp2S, 4>: sp=0: PEN 1 
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'UNTERPROGRAMM 'ste [50783 


lÜllll 


Mul* 
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[4773 

[41073 

[3729] 

[101953 


[5553 

[53053 


[3576] 


:GOSUB 15:GOTO 9 

14 REM - 

ine setzen '- 

15 FOR za=l TO 24: IF set$Ocomset$(za)THEN [55223 
NEXT ELSE IF PEEK(coalw(za))=255 THEN 17 

16 GOSUB 21:RETURN [15723 

17 LOCATE#0,spm(za),zem(za):PRINT#0,CHRS<2 [38743 
31):IF sp=l THEN stw=2 ELSE stw=3 

18 IF moOsp THEN st=st+l 

19 LOCATE#stw, st, 2: PRINT#stw, " GOSUB 24: 

RETURN 

20 REM-'UNTERPROGRAMM 'fal 

sehe eingaben' - 

21 POKE &B939,&F3:GOSUB 318:IF spl$=”CPC 4 
64" AND com=0 THEN RETURN ELSE LOCATE#l,2, 

2:WRITE#1,"! Falsche EINGABE !":FOR zei= 

1 TO 1000:NEXT:CLS#1:IF sp=0 THEN sp=l ELS 
E sp=0 

22 RETURN 

23 REM- 'UNTERPROGRAMM 'ste 

ht eine muehle' -‘ 

24 GOSUB 316:FOR za=l TO 16: IF mu(za)<>45 
THEN mzl(za)=0 

25 NEXT:GOSUB 28:FOR za=l TO 16: IF mu(za)< [29123 
>720 THEN mz2(za)=0 

26 NEXT:GOSUB 29:RETURN [8713 

27 REM- 'UNTERPROGRAMM 'anz [4238] 

eige muehle' - 

28 POKE &B939,&F3:FOR za=0 TO 16:IF mzl(za [109573 
)=0 AND mu(za)=45 THEN CLS#1:LOCATE#l,11,1 

:PRINT#1,"M";CHRS<252) ; "HLE”:LOCATE#l,10,2 
:PRINT#1,sp1$:PAPER#6,2:PEN#6,1:sp=1:mz1< z 
a)=l:GOTO 30:ELSE NEXT:RETURN 

29 FOR za=0 TO 16:IF mz2(za)=0 AND mu<za)= [132913 
720 THEN CLS#1:LOCATE#l,11,1:PRINT#1,"M";C 
HR$<252);"HLE”:LOCATE#l,10,2:PRINT#1,sp2$: 

PAPER#6, 1: PEN#6,2:sp=0: mz2(za)=1:GOTO 30: E 

LSE NEXT:RETURN 

30 DI:FOR za=l TO 2:CLS#6:L0CATE#6,1,3:PRI 
NT#6,"M HLE":L0CATE#6,2,3:PRINT#6,CHRS(252 
>:LOCATE#6,3,1:PRINT#6,"M":L0CATE#6,3,2: PR 
INT#6,CHRS < 252):LOCATE#6,3,4:PRINT#6,"L":L 
OCATE#6,3,5:PRINT#6,”E": FOR zei=l TO 30: NE 
XT 

31 FOR s=400 TO 100 STEP-15:SOUND l.s.5,5, 

1,1:NEXT:SOUND 1,0,30,1,1:CLS#6:FOR zei=l 
TO 150:NEXT:NEXT 

32 CLS#1:PAPER#6,0:PEN#6,2:CLS#6:LOCATE#6, 

1,3:PR INT#6,"M";CHRS(252);"HLE":LOCATE#6,3 
, 1:PRINT#6,"M”:L0CATE#6,3,2: PRINT#6, CHRS(2 
52):LQCATE#6,3,4:PRINT#6,"L":LOCATE#6,3,5: 

PR1NT#6,"E”:EI 

33 REM-'UNTERPROGRAMM 'ste [48433 

in nehmen' - 

34 POKE &B939,&F3:IF sp=l AND PEEK(&AB7B)= [26953 
1 THEN 153 

35 LOCATE# 1,1,1: PRINT# 1, " Welchen-[54953 

-Stein wollen Sie nehmen :?" 

36 IF sp=0 THEN GOSUB 40:RETURN [18853 

37 L0CATE#2,5,5: INPUT#2,"NEHMEN:",ne$:CLS [99513 
#1:L0CATE#2,5,5:PRINT#2,SPC(12):PEN#2,3:LO 
CATE#2, 12,8:PRINT#2,LEFTS(neS,4):PEN#2, 1 

38 IF neS="PE”THEN sp=l:RETURN ELSE FOR za C117703 
= 1 TO 24: IF neS=comsetS(za)AND PEEK(coalw( 

za))=240 THEN GOSUB 44:LOCATE#0,spm(za) , ze 
m(za):PEN 3: PRINT#0,CHRS(kpm(za)):GOSUB 24 
:RETURN:ELSE NEXT 

39 sp=0:GOSUB 21:GOSUB 35 ;coufO:RETURN [17653 

40 LOCATE#3,5,5:INPUT#3,"NEHMEN:",neS:CLS [6209J 
#1:L0CATE#3,5,5:PRINT#3,SPC(12):PEN#3,0:LO 
CATE#3,12,8:PRINT#3,LEFTS(ne$,4):PEN#3,2 

41 IF ne$="PE"THEN sp=0:RETURN ELSE FOR za [128873 
= 1 TO 24: IF ne$=comset$(za)AND PEEK(coalw( 

za)) = 15 THEN GOSUB 44: LOCATE#0, spm(za) , zem 
(za):PEN 3: PRINT#0,CHRS(kpm(za)):GOSUB 24: 

RETURN:ELSE NEXT 

42 sp=l:GOSUB 21:GOSUB 35:RETURN 


[115373 


[61893 


[106543 


[14653 
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43 REM-'UNTERPROGRAMM 'ste [45563 

ht stein in muehle' - 

44 ze=1:z=1:zz=0 [9013 

45 IF neS=coraset$(z+zz)AND(mzl(ze)OR mz2(z [29923 
e))=1 THEN GOTO 49 

46 IF zz=2 THEN zz=0 ELSE zz=zz+l:GOTO 45 [29033 

47 IF ze=16 THEN RETURN ELSE z=z+3:ze=ze+l [38793 
:GOTO 45 

48 IF sp=0 THEN sp=l ELSE sp=0 [20493 

49 GOSUB 21:GOSUB 34:RETURN [23553 

50 REM - UNTERPROGRAMM 'anzeige [56393 

steine verschieben' - 


[60603 


[18873 
[15753 
[7593 
[38103 


51 IF yw=l THEN 55 [13373 

52 CLS#2:CLS#3:PEN#2,3:L0CATE#2,5,2:PRINT# [178143 
2,splS;PEN#2,1:L0CATE#2,4,4:PRINT#2,”von - 

nach":LOCATE#2,2,7:PRINT#2,”von:":LOCATE# 

2,9,7:PRINT#2,"nach:":PEN#3,4: LOCATE#3,5,2 
:PRINT#3,sp2$:PEN#3,2:L0CATE#3,4,4:PRINT#3 
,”von - nach":LOCATE#3,2,7:PRINT#3,"von:" 

53 GOSUB 321 :LOCATE#3,9,7:PRINT#3,"nach:": [29363 
yw= 1 

54 REM-UNTERPROGRAMM 'st [48363 

eine verschieben' - 

55 POKE &B939,&F3:st1=0:st2=0:FOR za=l TO 
24:IF PEEK(coalw(za))=15 THEN stl=stl+l EL 
SE IF PEEK(coalw(za))=240 THEN st2=st2+l 

56 NEXT:IF stl<3 OR st2<3 THEN GOSUB 87 

57 IF sp=0 AND PEEK(&AB7B)=1 THEN 175 

58 IF sp=1 THEN 70 

59 LOCATE#2,5,5:INPUT#2,"",vnpS:LOCATE#2 
3,5:PRINT#2,SPC(10) 

60 POKE &B939.&F3:POKE &B08B,&8B:POKE &B08 [17233 
C, &AE 

61 pwl$=LEFTS(vnpS,2):pwrS=RIGHTS(vnpS,2) [32803 

62 IF vnp$="ENDE"THEN POKE &AB7E,sp+2:GOSU [25043 
B 87 

63 IF vnpS=”FEST"THEN POKE &AB7E,sp+2:stl= [1790] 
2:GOSUB 87 

64 FOR za=l TO 24: IF pwlSOcomsetS(za)THEN [119893 
NEXT ELSE IF PEEK(coalw(za))=15 THEN nehS 

=pwl$: spmn=spm(za): zemn=zem(za) : ea=kpm(za) 

:GOTO 66 

65 sp=l;GOSUB 21:GOTO 54 [13063 

66 FOR za=l TO 24: IF pwr$Ocomset$(za)THEN [70263 
NEXT ELSE IF PEEK(coalw(za))=255 THEN sez 

$=pwr$: spms=spm(za): zems=zem(za):GOTO 68 

67 sp=l:GOSUB 21:GOTO 54 

68 GOSUB 81 

69 PEN 3: LOCATE#0,spmn, zemn: PRINT CHRS(ea) 

:PEN 2:LOCATE#0,spms,zems: PRINT#0, CHRS(231 
) : LOCATE#2,6,7:PEN#2,3:PR INT#2,nehS:LOCATE 
#2,14,7;PRINT#2,sezS:PEN#2,l:sp=l:GOSUB 24 

70 POKE &B939,&F3:CLS#1:LOCATE#3,5,5;INPUT [95273 
#3,"",vnpS:LOCATE#3,3,5:PRINT#3,SPC(10) : P 

OKE &B08B,&8B:POKE &B08C,&AE:pwlS=LEFT$(vn 
pS,2):pwr$=RIGHT$(vnp$, 2) 

71 IF vnp$="ENDE”THEN POKE &AB7E,sp+2: GOSU [25043 
B 87 

72 IF vnp$="FEST"THEN POKE &AB7E,sp+2:st2= [16403 
2:GOSUB 87 

73 FOR za=l TO 24: IF pwlSOcoraset$(za)THEN [107783 
NEXT ELSE IF PEEK(coalw(za))=240 THEN neh 

$=pwl$: spmn=spm(za) : zemn=zem(za) : ea=kpm(za 
):GOTO 75 

74 sp=0: GOSUB 21-.GOTO 54 [10323 

75 FOR za=l TO 24: IF pwr$Ocomset$(za)THEN [70053 
NEXT ELSE IF PEEK(coalw(za))=255 THEN sez 

S=pwrS: spms=spm(za): zems=zexn(za) : GOTO 77 

76 sp=0:GOSUB 21;GOTO 54 

77 GOSUB 81 

78 PEN 3: LOCATE#0,spmn,zemn:PRINT CHRS(ea) 

: PEN 1: LOCATE#0, spms, zems:PRINT#0,CHRS(231 
>:L0CATE#3,6,7: PEN#3,4:FR INT#3,neh*;LOCATE 
#3,14,7:PRINT#3,sezS:PEN#3,2 

79 GOSUB 24:sp=0:GOTO 54 


[13063 

[8173 

[90413 


[10323 
[8171 
[103553 


[13683 


UNTERPROGRAMM 'spru [68833 


80 REM - 

ngweite pruefen' - 

81 IF st 1<3 OR st2<3 THEN GOSUB 87 

82 IF sp=l AND st2<4 OR sp=0 AND stl<4 THE 
N RETURN 

83 FOR za=1 TO 32:IF LEFTS(spw$(za),2)=neh [86993 
SAND RIGHTS(spwS(za),2)=sez$OR LEFTS(spw$( 

za),2)=sezSAND RIGHTS(spwS(za),2)=nehSTHEN 
RETURN:ELSE NEXT 

84 IF sp=0 THEN sp=l ELSE sp=0 

85 GOSUB 21:GOTO 54 


[12513 
[25063 


[20493 

[21823 


86 REM-UNTERPROGRAMM 'sp [43253 

ielende ???' - 

87 POKE &B939,&F3:IF stl<3 THEN POKE &AB7D 1133453 
,PEEK(&AB7D)+1:IF PEEK(&AB7B)=1 THEN PRINT 

#1,” COMUTER hat verloren schade 

:":ELSE PRINT#1,TAB((24-LEN(splS> >/2 + l)spl 
S," hat verloren” 

88 IF st2<3 THEN POKE &AB7C,PEEK(&AB7C)+1: [58323 
PRINT#1,TAB((24-LEN(sp2$))/2+l>sp2$," 

hat verloren" 

89 FOR zei=l TO 1500:NEXT:L0CATE#4,3,5:PRI [88323 
NT#4,PEEK(43900):LOCATE#4,12,5:PRINT#4,PEE 

K(&AB7D):CLS#1:PRINT#1," Noch ein Spiel(J 
/N) :" 

90 IF INKEY(46)=0 THEN GOSUB 93 ELSE IF IN [30483 
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KEY(45>=0 THEN POKE &AB7F,l:POKE &AB60, 1:E 
LSE 90 

91 MODE 1:IF PEEK(&AB7B>=1 THEN GOTO 256 E [8037] 
LSE CALL &BB03:MODE 0:INK 0,0;BORDER 0:PEN 

7:LOCATE 2, 10:PRINP’Einen Moment BITTE“:R 
UN 

92 REM - UNTERPROGRAMM 'spiel [4598] 

daten abspeichern' - 

93 POKE &B939, &F3: FOR zei = l TO 200:NEXT:CA [3696] 
LL &BB03 : CLS#1: PRINT#1, "Spieldaten abspei 

ehern ?" 

94 IF INKEY<45)=0 THEN CALL &BB03 ELSE IF [3567] 
INKEY<46)=0 THEN 107 ELSE 94 

95 pname$=sl$+-"-"+-s2$:POKE &AB7F,0:gewl=PE [8287] 
EK(&AB7C):gew2=PEEK(&AB7D):mo=PEEK < &AB7E): 
level=PEEK(&AB5F):com=PEEK(&AB7B> 

96 FOR za=l TO 24 [1348] 

97 IF PEEK(caalw(za>>=255 THEN stpo$(za>=" [30881 
LF":fa<za)=3 

98 IF FEEK(coalw(za>>=15 THEN stpo$(za)=co [3735] 
mset$(za>:fa<za>=2 

99 IF PEEK(coalw(za>>=240 THEN stpo$(za)=c [2789] 
omsetS(za) : fa(za)=l 

100 NEXT [350] 

101 SPEED VRITE 1:PEN#1,1:PRINT#1," Cas [159331 

ette einlegen dann ENTER dr”+CHR$(25 

2)+"cken ":CALL &BB06:CLS#1:PEN#1,3:PRINT# 

1,” REC und P1AY dr"+-CHRS (252 

>+"cken,dann ENTER ":CALL &BB06:CLS#1 

102 LOCATE#!,1,2:PEN#1,1:PRINT#1," [8884] 

OK ? dann: ENTER dr"+CHR$(252 

)+"cken”:CALL &BB06:CLS#1:PRINT#1," 

SAVE:”:PRINT#1,TAB<(24-LEN(pnameS> >/2+1 
> pname$ 

103 OPENOUT"!“:PRINT#9,pname$:CLOSEOUT:OPE [99351 
NOUT"!”:PRINT#9,spl$:PRINT#9,sl$:PRINT#9, s 

p2$:PRINT#9,s2$;PRINT#9,gewl:PRINT#9,gew2: 

PRINT#9,mo:PRINT#9,com: PRINT#9, level 

104 FOR za=&AB68 TO &AB6F:wertO=PEEK(za) : P [144191 
RINT#9, wert0: NEXT: FOR za=&AB72 TO &AB79:we 
rtl=PEEK(za):PRINT#9,wertl: NEXT: FOR za=l T 

O 24:PRINT#9,stpoS(za):PRINT#9,fa(za):FRIN 
T#9,zem(za) : PRINT#9,spmCza):NEXT:FOR za=l 
TO 16:PRINT#9,mzl<za>:PRINT#9, mz2(za> : NEXT 

105 CLOSEOUT [902] 

106 REM - UNTERPROGRAM [50681 

M 'ENDE' - 

107 MODE 0:CALL &BC02:INK 1,21: INK 2,15: IN [61741 
K 3,7: INK 4,18: INK 5,27: INK 0,0:BORDER 0 

108 LOCATE 1,1:PEN 4:PRINT"CPC 464 - SOFTV [11847] 
EARE”;LOCATE 1,3:PEN 5:PRINT"P R O D U C I 

T 0 N”:LOCATE 5,5:PEN 2:PRINT"# # # ROBSO 
FT # # #”:LOCATE 8,17:PEN 1:PRINT"A U F":L 
0CATE 3,21:PEN 3:PRINT"Wieder 'spielen'" 

109 FOR za=&AB5F TO &AB7F:POKE za,0:NEXT:C [32421 
ALL &BB06: END 

110 REM-UNTERPROGRAMM 'sp [43491 

ieldaten laden' - 

111 POKE &B939,&F3:WINDOW SWAP 0,1 [7521 

112 CLOSEIN:PEN#0,1:PRINT#0," Casette e [112811 

inlegen dann ENTER druecken ":CALL &B 

B06:CLS#0:PEN#0,3:PRINT#0," Press P 

LAY OK ?: dann ENTER":CALL &BB06: 

CLS#0 

113 ON ERROR GOTO 317 [1544] 

114 OPENIN"!":INPUT#9,pnarae$:CLOSEIN:PRINT [133691 

” LOAD:”:PRINT#0,TAB(<24-LEN(p 

naraei) ) /2 + 1)pnamel; OPENIN",! " : INPUT#9,spl$: 

INPUT#9,sl*: INPUT#9,sp2*: INPUT#9,s2$; INPUT 
#9,gewl:INPUT#9,gew2:INPUT#9,mo:INPUT#9,co 
m:INPUT#9,level 

115 FOR za=&AB68 TO SAB6F: INPUT#9, wertO: PO [150621 
KE za,wertO:NEXT:FOR za=&AB72 TO &AB79:INP 

UT#9,wertl:POKE za,wert1:NEXT:FOR za=l TO 
24:INPUT#9,stpo$<za):INPUT#9,fa(za):INPUT# 

9,zem(za):INPUT#9,spm(za):NEXT:FOR za=l TO 

16: INPUT#9,mzl(za): INPUT#9, mz2(za):NEXT 

116 CLOSEIN 

117 WINDOW SWAP 1, 0 

118 POKE &AB7E,mo:POKE &AB7B,com:POKE &AB5 
F,level:za=l 

119 IF fa(za)>2 THEN 120 ELSE LOCATE#0,spm 
<za) , zem(za):PEN fa(za):PRINT#0,CHR$(231> 

120 za=za+l:IF za=25 THEN GOTO 122 

121 GOTO 119 

122 PEN#4,2: LOCATE#4,3,5:PRINT#4,gewl:LOCA 
TE#4,12,5:PRINT#4,gew2 

123 POKE &AB7C,gewl:POKE &AB7D,gew2 

124 RETURN 


[7521 
[10241 
[32781 

[4457] 

[22591 

[4141 

[36901 

[1430] 

[5551 


125 stl=0:st2=0:FOR za=l TO 24:IF PEEK(coa [52631 
lw<za)> = 15 THEN stl=stl + l ELSE IF PEEK<coa 
lw(za)>=240 THEN st2=st2+l 

126 NEXT:CLS#1:RETURN [9421 

127 REM - UNTERPROGRAMM 'COMU [46371 

TER setzt' - 

128 LOCATE#l,2,2:PRINT#1, "COMPUTER setzt a [43631 
uf:":xy=l:POKE &B939.&C9 

129 IF PEEK(&D93B)+PEEK(&D93D>=75 AND PEEK [33291 
(&DBBD)=240 THEN 130 ELSE 136 

130 FOR za=l TO 44 [13601 

131 IF PEEK(coalw(tp8(za))>+PEEK(coalw(tp9 (87601 
(za)> >=30 AND PEEK(coalw<tpl1(za>>>+PEEKCc 
oalw(tpl0(za))>=510 THEN set$=comset*(tpll 

(za)):GOTO 151 

132 NEXT [3501 

133 FOR za=45 TO 88 [10381 

134 IF PEEK(coalw(tp9(za> > > +PEEK(coalw(tpl (100121 
1(za)>)=30 AND PEEK(coalw(tplO(za)>)+PEEK( 

coalw(tpl2(za>))=510 THEN set*=comset$(tpl 
2(za)).-GOTO 151 

135 NEXT [350] 

136 FOR za=1 TO 16:IF mu(za>=285 THEN 149 (50731 

ELSE xy=xy+3:NEXT 

137 xy=l [5521 

138 IF leve1<2 THEN 150 ELSE FOR za=l TO 1 [54181 
6: IF mu(za>=735 THEN 149 ELSE xy=xy+3:NEXT 

139 GOSUB 315:IF level<3 THEN 150 (23461 

140 FOR za=l TO 104:IF PEEK(coalw(tp8(za)) (98921 
>+PEEK(coalw(tp9(za> >)=30 AND PEEK(coalw(t 

pll(za)))+PEEK(coalw(tpl2(za)))+PEEK(coalw 
(tplO(za)))=765 THEN set$=comsetS(tplO(za) 

):GOTO 151 

141 NEXT:FOR za=l TO 104:IF PEEK(caalw(tp8 [87721 
(za))>+PEEK(caalw(tp9(za))>=480 AND PEEK(c 
oalw(tpll(za))>+PEEK(coalw(tpl2(za>>)+PEEK 
(coalw(tpl0(za)))=765 THEN set$=camset$(tp 

10(za >):GOTO 151 

142 NEXT:IF level<4 THEN 150 ELSE FOR za=7 [13071] 

7 TO 88:IF PEEK(coalw(tp8(za)))=15 AND PEE 
K(ccalw(tp9(za)))+PEEK(coalw(tplO(za)))+PE 
EK(coalw(tpll(za)))+PEEK(coalw(tpl2(za))>= 

1020 THEN set$=comset$(tp9(za)):GOTO 151 

143 IF PEEK(coalw(tp9(za)>)=15 AND PEEK(co (119781 
alw(tp8(za)))+PEEK(coalw(tplO(za)))+PEEK(c 
oalw(tpll(za)))+PEEK(coalw(tpl2(za)> >=1020 

THEN set$=comset$(tp8(za)> : GOTO 151 

144 IF PEEK(coalw(tp8(za)))+PEEK(coalw(tp9 (106581 
(za)>>=30 AND PEEK(coalw(tplO(za>))+PEEK(c 

oalw(tpl1(za)))+PEEK(coalw(tpl2(za)))=765 
THEN set$=comset$(tplO(za)): GOTO 151 

145 NEXT:FOR za=77 TO 88:IF PEEK(coalw(tp8 (117301 " 

(za)))=240 AND PEEK(coalw(tp9(za)))+PEEK(c 
oalw(tpl0(za)>)+PEEK(coalw(tpl1(za)>)+PEEK ii 

(coalw(tpl2(za) ) > = 1020 THEN setS=comset$(t jj; 

p9(za)):GOTO 151 m 

146 IF PEEK(coalw(tp9(za)) )=240 AND PEEK(c (113721 ||! 
aalw(tp8(za)))+PEEK(caalw(tplO(za)))+PEEK( 
coalw(tpll(za)))+PEEK(coalw(tpl2(za))>=102 
0 THEN set$=camset$(tp8(za)) : GOTO 151 

147 IF PEEK(coalw(tp8(za)) ) +PEEK(coalw(tp9 [89311 >1 

(za))>=240 AND PEEK(coalw(tplO(za)))+PEEK( 
coalw(tpll(za)))+PEEK(coalw(tpl2(za))>=765 

THEN set$=comset$(tplO(za)) : GOTO 151 

148 NEXT:GOTO 150 [9691 

149 FOR zz=0 TO 2:IF PEEK(caalw(xy+zz))=25 [57211 
5 THEN set$=comset$(xy+zz) : GOTO 151:ELSE N 
EXT 

150 za=INT(RND*24>+1; IF PEEK(coalw(za>)=25 [44951 

5 THEN set$=comset*(za) : ELSE GOTO 150 
»51 lpl$=set$:LOCATE#!,22,2:PRINT#1,setS:L (51501 
OCATE#2,12,7:PR INT#2," »:LOCATE#2,12,7 

:PRINT#2,UPPERS(lplS):sp=l:PEN 2:GOSUB 15: 
com=0: CLS#1: GOTO 9 

152 REM- UNTERPROGRAMM 'ca (39791 

mputer nimmt' - 

153 CLS#1:LOCATE#l,3,2:PR INT#1,"COMPUTER N [5463] 
IMMT :": GOSUB 316:knS=" ":neS=" " : POKE &B9 
39,&C9 

154 FOR za=l TO 16:IF mu(za)=720 THEN knS= [50291 
knS+-camne$(za) 

155 NEXT [350] 

156 FOR 1w=1 TO 3: RESTORE 308:FOR ze=l TO (32041 
16:FOR za=l TO 3:READ tnul(za) 

157 IF mu(ze)=tpsc(lw)AND mu(tmul(za))=tpw (67891 
e(lw)OR mu(ze)=tpwe(lw)AND mu(tmul(za))=tp 
sc(lw)THEN 159 

158 NEXT za,ze*lw:GOTO 162 (10601 

159 FOR zz=l TO 6 STEP 2:FOR zzl=l TO 6 ST [17901 
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160 IF MID®(comne® <ze) , zz, 2)=MID®(comne®(t [115421 
i'lllii uul(za) > , zzl, 2>THEN ne*=MIDS(comne®(tmul(z 

a>>,zzl,2>;F0R zz2=l TO 24: IF ne®=comset*( 
in.n zz2) AND PEEK(coalw(zz2>>=240 THEN 173 ELSE 
lliilhi HEXT 

161 HEXT zzl, zz: GOTO 158 [1441] 

162 xy=l:FOR za=l TO 16:IF mu(za>=735 THEN [44221 
171 ELSE xy=xy+3:NEXT 

163 xy=l:FOR za=l TO 16:IF mu(za>=270 THEN [40981 
171 ELSE xy=xy+3:NEXT 

164 zaw=0:xwl=0 [1160] 

165 xw=INT(RND*24)+1:POKE &B08B,&8B:POKE & [32251 

B08C,&AE 

166 IF PEEK(coalw(xw>>=240 THEN ne$=comset [2857] 
*(xw> 

167 IF INSTR(kn®,ne®>=0 THEN 173 [1541] 

168 IF xw<24 THEN xw=xw+l:GOTO 166 [2345] 

II ,ii|| 169 IF xwl=l THEN ne®=”PE” : PRINT#1," Kan [9819] 

n leider keinen Stein nehmen !'*: FO 

U'll'l' R zei=l TO 1500:NEXT:CLS#1:sp=l: GOTO 9 
,!!!!![, 170 IF zaw<3 THEN zaw=zaw+l:GOTO 165 ELSE [38221 
llJIIIÜ xw=l: xwl = l: GOTO 166 

.. 171 FOR zz = 0 TO 2: IF PEEK(coalw(xy+zz>>=24 [5384] 

. Mi. 0 THEN ne®=comset*(xy+zz>ELSE NEXT: GOTO 16 

'lillil' ^ 

’lilHl 172 IF INSTRCkn®, neJJOO THEN 164 [2252] 

llülli 173 L0CATE#1,20,2: PRINT#1, i ne®: GOSUB 38 [7077] 
:FOR za=l TO 1000:NEXT:CLS#1:PEN#2,3:LOCAT 
1 ' E#2,12,8:PRINT#2,LEFT$(ne$,4 >:PEN#2,1:GOTO 

9 

|h||| 174 REM- COMPUTER 'v [52691 

llillili erschiebt" —————————-——_————————— 

|ÜI" 175 POKE &B939 , &F3: vnp®=’’" : nzl$="" : GOSUB 2 [1651] 

''lull! 22 

!!m!|; 176 LOCATE#l, 1, 1: PRINT#1, " COMPUTER [4021] 

"I!!! 1 zieht " : POKE &B939.&C9 

1 1i!lf 177 xy= 1: FOR za=l TO 16: IF mu(za)=495 THEN [54011 
FOR zz=0 TO 2: IF PEEK(coalw(xy+zz> > =15 TH 
EN nz*(xy+zz>=CQmset$(xy+zz> ELSE NEXT 

178 FOR ze=l TO 48: IF nz$ <ze> =comset® <ze>T [3314] 
HEN nzl®=nz®(ze> ELSE 181 

179 FOR zel=l TO 48:IF comseti<zel>=nzl®TH [4642] 
m EN nz*(ze1> =comset$(ze1) 

'!:!! ' 180 NEXT zel [3741 

•imj 181 NEXT ze [4031 

,]'!!,I 182 xy=xy+3: NEXT [9021 

!!;!!:!! 183 IF stl<3 THEN 87 ELSE IF st 103 THEN 1 [17381 

imlli 94 

{| l || l || 184 xy=l: FOR za=l TO 16: IF mu(za)=285 THEN [38721 
'll' l 1 ' 187 ELSE xy=xy+3: NEXT 

185 xy=1:FOR za=l TO 16: IF rau(za>=735 THEN [3433] 
192 ELSE xy=xy+3:NEXT 

■ i "II 186 GOTO 194 [419] 

,.|!mii 187 sst®='”’: sstl$="" : sst2$="” : FOR zz=0 TO [52261 
iiü!]' 2: IF PEEK(coalw(xy+zz> > = 15 THEN sst®=sst®+ 
iiinl 1 comset® (xy+zz) 

i||Jl 188 IF PEEK(coalw(xy+zz> >=255 THEN sst2®=c 136911 
omsett <xy+zz> 

11,11,11 189 NEXT C3501 

imiin 190 FOR zs=l TO 48: IF PEEK(coalw(zs)>=15 A [100981 
ND LEFT$(sst*,2X>comset®<zs>AND RIGHT® (ss 
'] i"" t® , 2><>camset$<zs>THEN sst l$=comset® (zs> : v 
'| !!||! np$=sstl$+sst2®: GOTO 221 ELSE NEXT 
" 1 191 GOTO 194 C4191 

192 wstl$=””:wst2®="”:FOR zz=0 TO 2:IF PEE [62691 
,. , 1 , K(coalw(xy+zz> >=255 THEN wst2®=comset®(xy+ 

}!, zz) : ELSE NEXT 

193 FOR zs=l TO 48: IF PEEK(coalw(zs> > = 15 A [85221 

j,. ND nz$<zs) Ocomset® (zs)THEN wstl®=comset$( 

niiill zs) : vnp®=wstl®+wst2®: GOTO 221 ELSE NEXT 

11,11,11 194 xy= 1: FOR za=l TO 16: IF mu(za>=285 THEN [2367] 

'“J'" 1 195 ELSE 197 

195 FOR z=0 TO 2:IF PEEK(coalw(xy+z> >=255 [56211 

AND PEEK<coalw(tpl3(xy+z) >) = 15 THEN vnp®=c 
amset$(tpl3(xy+z> >+camset®(xy+z):GOTO 221 

196 IF PEEK(coalw(xy+z>>=255 AND PEEKfcoal [57981 
il!!!!: w(tpl7(xy+z> > > = 15 THEN vnp$=comset® < tpl7 (x 

I II j y+z >> tcomset® (xy+z): GOTO 221 ELSE NEXT 

II,. 197 xy=xy+3: NEXT [9021 

iii.m 198 GOSUB 319: xy=l: FOR za=l TO 16: IF muhl= [67021 
0 AND mul za >=45 THEN 199 ELSE xy=xy+3:NEXT 

:goto 200 

'"i"" 199 FOR zz=0 TO 2: tw*=comset$ (xy+zz > : FOR z [10757] 
l'll'" s=l TO 48: IF tw®=comset$(tpl4(zs) > AND PEE 
!"" K(coalw(tpl3(zs> > >=255 THEN vnp®=tw*+comse 
ll'Hill t® (tpl3(zs> > : GOTO 221 ELSE NEXT zs,zz 

200 xy=l: FOR za=l TO 16: IF mu(za>=735 THEN [29441 
ij'jjljj 201 ELSE 202 ___ 


201 FOR z=0 TO 2:IF PEEK(coalw(xy+z>>=255 [6683] 

AND PEEK(coalw(tpl3(xy+z)>)=15 THEN vnp$=c 
oiaset® (tpl3(xy+z> ) +comset® (xy+z > : GOTO 221 

ELSE NEXT 

202 xy=xy+3:NEXT [9021 

203 FOR za=l TO 24:IF PEEK(caalw(tp8(za>>> [127911 
+PEEK(coalw(tp9(za> > >+PEEK(coalw(tplO(za> > 

>=45 AND PEEK(coalw(tpll(za>>>=255 THEN vn 
p®=comset®(tplO(za>> +comset®(tpll(za> > : GOT 
0 221 ELSE NEXT 

204 FOR za=l TO 36:IF PEEK(coalw<tpl(za)>> [12756] 
+PEEK(coalw(tp2(za> > > +PEEK(coalw(tp3(za > >> 

=45 AND PEEK(coalw(tp4(za> > > +PEEK(coalw(tp 
5(za> > >=510 THEN vnp®=comset®(tpl(za>>+com 
set®(tp4(za> >:GOTO 221 ELSE NEXT 

205 FOR za=l TO 12:IF PEEK(coalw(tpl(za>>> [105391 
+PEEK(coalw(tp4(za> > >+PEEK(coalw(tp5(za> > > 

=45 AND PEEK(coalw(tp2(za))>=255 THEN vnp® 

=comset$(tp4(za> >+comset$(tp5<za> >:GOTO 22 
1 ELSE NEXT 

206 FOR za=l TO 12:IF PEEK(coalw(tp2(za>>> [13421] 
+PEEK(coalw(tp5(za>> >+PEEK(coalw(tpl5(za> > 

>=45 AND PEEK(coalw(tpl (za> > >+PEEK(coalw(.t 
p4(za)>>=510 THEN vnp$=comset$(tpl5(za)>+c 
omset®(tpl(za)>:GOTO 221 ELSE NEXT 

207 FOR za=l TO 12: IF PEEK(coalw(tp2(za>>> [13120] 
+PEEK(coalw(tp4(za))> +PEEK(coalw(tpl6(za > > 

>=45 AND PEEK(caalw(tp3(za)>>+PEEK(coalw(t 
p5(za>>>=510 THEN vnp®=comset®(tpl6(za>>+c 
omset®(tp3(za>>: GOTO 221 ELSE NEXT 

208 FOR za=21 TO 36:IF PEEK(coalw(tpl(za)> [125781 
>+PEEK(coalw(tp2(za> >)+PEEK(coalw(tp3(za)) 

>=45 AND PEEK(coalw(tp4(za> > > +PEEK(coalw(t 
p5(za)> > =510 AND PEEK(coalw(tp6(za-20>>>=2 
40 THEN vnp®=comset®(tpl(za)>+comset$(tp4( 
za> >:GOTO 221 ELSE NEXT 

209 FOR za=21 TO 36:IF PEEK(coalw(tpl(za>> [15496] 

> +PEEK(coalw(tp2(za>> >+PEEK(coalw(tp3(za)> 

>=45 AND PEEK(coalw(tp4(za>>>+PEEK(coalw(t 
p5(za> > > =510 AND PEEK(coalw(tp7(za-20>>>=2 
40 THEN vnp$=comset®(tp3(za>>+comset®(tp5( 
za > >:GOTO 221 ELSE NEXT 

210 FOR za=21 TO 36 [9311 

211 IF PEEK(coalw(tpl(za)>>+PEEK(coalw(tp2 [12466] 
(za>>>+PEEK(coalw(tp3(za)>>=45 AND PEEK(co 
alw(tp4(za> > >+PEEK(coalw(tp5(za> > >=510 AND 

PEEK(coalw(tp6(za-20> > >+PEEK(coalw(tp7(za 
-20)>>=510 THEN vnp®=comset$(tp3(za>>+coms 
et®<tp5(za)):GOTO 221 ELSE NEXT 

212 FOR za=21 TO 36:IF PEEK(coalw(tpl(za)> [138761 
>+PEEK(coalw(tp3(za> >)+PEEK(coalw(tp6(za-2 

0)> > =45 AND PEEK(coalw(tp5(za> > > +PEEK(coal 
w(tp4(za>>>=510 THEN vnp®=comset®(tp3(za>> 
+camset$(tp5(za)>:GOTO 221 ELSE NEXT 

213 FOR za=21 TO 36:IF PEEK(coalw(tpl(za>> [12638] 
)+PEEK(coalw(tp3(za> > > +PEEK(coalw(tp7(za-2 

0> > > =45 AND PEEK(coalw(tp4(za>)> +PEEK(coal 
w(tp5(za>>>=510 THEN vnp$=comset®(tpl(za>> 

+comset®(tp4(za>>:GOTO 221 ELSE NEXT 

214 FOR za=21 TO 36:IF PEEK(coalw(tpl(za)> [111221 

> +PEEK(coalw(tp2(za>> >+PEEK(coalw(tp7(za-2 
0>>>=45 AND PEEK<coalw(tp4(za)> >+PEEK(coal 
w(tp5(za>>>=510 THEN vnp$=comset$(tp7(za-2 
0)>+comset®(tp5(za)>:GOTO 221 ELSE NEXT 

215 FOR zz=l TO 48;IF PEEK(coalw(tpl4(zz>> [59551 
>=255 AND PEEK(coalw(tpl3(zz> > > = 15 THEN vn 
p$=comset$(tpl3(zz> >+comset$(tpl4(zz> >ELSE 

218 

216 FOR zs=1 TO 48:IF LEFT®(vnp®,2)=nz®(zs [35331 

> THEN 218 

217 NEXT:GOTO 221 CI169] 

218 NEXT * [3501 

219 FOR zz=1 TO 48:IF PEEK(coalw(tpl4(zz>> [65101 
>=255 AND PEEK(coalw(tpl3(zz> > >=15 THEN vn 
p®=comset$(tpl3(zz> > +comset$(tpl4(zz)>:GOT 

O 221 ELSE NEXT 

220 vnp$="ENDE”:PRINT#1,” Habe leider ve [7671] 

rloren schade":FOR za=l TO 1500:NE 

XT:POKE &AB7D,PEEK(&AB7D)+1:GOTO 60 

221 L0CATE#1,1,2:PR INT#1,” von: ”;LEFT®( [38901 

vnp®,2>;” nach: RIGHT®(vnp®,2>:GOTO 60 

222 FOR za=l TO 48 :nz®(za)="”:NEXT:RETURN [25781 

223 REM - UNTERPROGRAMM 'altes [44741 

oder neues spiel' - 

224 POKE &B939,&F3:DIM spw*(32),spm(24),ze [74061 
m(24 >,kpm(24),mz1(16),mz2(16>,mu(16>,stpo® 

(24) , fa(24> , coalw(48>,comset$(48),comne$(l 
6>,nz®(48) 

225 DIM tpl(52>,tp2(52>,tp3(52>,tp4(52),tp [75891 


72 CPC 


3 ’86 Sonderheft 













im ii iiiii iii nimm Mi Hin mihi ihm iii i 


MiimimiiiiiimmmmiiMiMi 


ii a•a 111 


i in m i iiiii in iiiii iii mm um hm in 


mim 


5 <52),t p6 < 16),tp7 <16),tpö<104),tp9<104),tp 
10(104),tpl1<104 >,tpl2 <104 >,tpl3(48) , tpl4< 

48),tpl5<12>,tpl6<12),tpl7(48) 

226 SYMBOL 252,102,0,102,102,102,102,62,0: [7443] 
SYMBOL 253,102,0,0,60,102,102,60,0:SYMBOL 

254,102,60,102,102,102,102,60,0:SYMBOL 255 
,102,0,60,6,62,102,62,0 

227 SPEED KEY 255,255:st=6:mo=PEEK(&AB7E): [5893] 
ccm=PEEK(&AB7B> : level=PBEK<&AB5F> 

228 sl*="":F0R za=&AB68 TO &AB70: sl*=sl*+C [3494] 
HR*(PEEK(za) ) : NEXT: sl*=LEFT*<sl*,3) 

229 s2*="”:FOR za=&AB72 TO &AB7A:s2*=s2*+C [4298] 
HR*(PEEK(za)>:NEXT:s24=LEFT$<s2*,3) 

230 IF PEEK<&AB7F)=1 THEN 260 [1393] 

231 BORDER 0:INK 0,13:INK 1,2:INK 2,21:INK [11261] 
3,0:MODE 1:VINDOV#l,1,40,1,8:VIND0V#2,1,4 

0,9,18:VINDOV#3,1,40,19,22:WIND0V#4,1,40,2 
3,25:PAPER#2,0:PAPER#1,2:PAPER#3,2:PAPER#4 
,3:CLS#4:CLS#2:CLS#3:CLS#1 

232 LOCATE#l,12,2:PEN#1,3:PRINT#1,"R 0 B [8310] 

S O F T’’:LOCATE#l, 17,4: PEN#1,0: PRINT# 

1,"present's":LOCATE#l,11,6:PEN#1,1:PRINT# 

1,"M ";CHR* <252);" H L E" 

233 PEN#2,1:LOCATE#2,13,4:PRINT#2,"Ich w” + [6179] 
CHR$ <252)+"nsche Ihnen":LOCATE#2,15,7:PEN# 

2,3:PRINT#2,"'viel SPASS'" 

234 L0CATE#3,12,2:PEN#3,1:PRINT#3,CHR$ <164 [7687] 

):L0CATE#3,15,2:PEN#3,1:PRINT#3,”by ROLF B 
ACKES":LDCATE#3,17,4:PEN#3,3:PRINT#3,"in 1 

986" 

235 PEN#4,2:L0CATE#4,9,2:PRINT#4,"BITTE EI [4479] 
NE TASTE DR”+CHRS < 252 > +"CKEN”:CALL &BB06 

236 REM-UNTERPROGRAMM 'spi [4243] 

elanleitung ' - 

237 CLS#0:CALL &BC02:BORDER 13:INK 0,0:INK [2641] 
1, 15: INK 2, 18: INK 3, 11 

238 MODE 1:GOSUB 258;L0CATE 13,7:PEN 2:PRI [12302] 
NT"M";CHR* <253)i"chten Sie :":LOCATE 3,11: 

PR INT"Ein":LOCATE 7,11:PEN 1:PRINT"ALTES": 

LOCATE 13,11:PEN 2:PR INT"Spiel weiterspiel 
en ?:":LOCATE 36,11:PEN 1:PRINT”<A>":LOCAT 
E 16,15:PEN 2:PRINT"oder :" 

239 LOCATE 4,19:PRINT"Ein":LOCATE 9,19:PEN [8136] 
1:PR INT"NEUES”:LOCATE 16,19:PEN 2:PRINT"S 

piel anfangen ?:":LOCATE 35,19:PEN 1:PRIN 
T"< N)" 

240 PEN 2:LOCATE 6,23:PRINT”Ihre Wahl :”:L [11227] 
OCATE 19,23:PEN 1:PR INT"N":LOCATE 22,23:PE 

N 2:PRINT"oder":LOCATE 28,23:PEN 1:PRINT"A 
":LOCATE 30,23:PEN 2:PRINT": 7" 

241 IF INKEY(69>=0 THEN bab=l:CALL SBB03:G [5102] 
OTO 260:ELSE IF INKEY<46)=0 THEN bab=0:POK 

E &AB7C,0:POKE &AB7D,0:POKE &AB7E,0:ELSE 2 
41 

242 CALL &BC02:BORDER 13:INK 0,0:INK 1,15: [4808] 
INK 2,18:INK 3,20:MODE 1:GOSUB 258 

243 LOCATE 6,7:PEN 3:PRINT"Gegen wen m” ; CH [10721] 
R*<253);"chten Sie spielen:":LOCATE 7,12:P 

EN 2:PRINT”Mensch gegen Mensch LOCATE 
33,12:PEN 1:PRINT"<M)" 

244 LOCATE 16,15:PEN 3:PRINT" oder ":LOCAT [15387] 
E 7,18:PEN 2:PRINT"Mensch gegen Computer 

LOCATE 33,18:PEN 1:PRINT"<C>":PEN 3:L0C 
ATE 5,24:PRINT"Ihre Vahl LOCATE 17,24: 

PEN 1:PRINT"<M>":LOCATE 22,24:PEN 3:PRINT" 
oder":LOCATE 28,24:PEN 1:PRINT"<C) ?" 

245 CALL &BB03:IF INKEY<38)=0 THEN CALL &B [14466] 
B03:GOTO 248 ELSE IF INKEY<62)=0 THEN CALL 

&BB03:spl*=”CPC 464":sl*=LEFT$Cspl*,3>:co 
ra=1:POKE &AB7B,1:CLS;GOSUB 258:LOCATE 4,7: 

PEN 2:PRINT"IHREN NAMEN (mit ENTER best"; 

CHR*(255);"tigen) :"ELSE 245 

246 LOCATE 10,9:INPUT;sp2$:sp2$=LEFT*(sp2* [4835] 
,8>;IF sp2*="”THEN sp2*="SPIELER" 

247 s2*=LEFT*(sp2S,3):GOTO 253 [1156] 

248 BORDER 1:INK 3,1: INK 0,12:CLS:com=0: PO [3801] 

KE &AB7B,0:POKE &AB5F,0:LEVEL=0 

249 MODE llINK 1,0:GOSUB 258:LOCATE 3,10:P [6940] 
EN 1:INPUT"NAME SPIELER SCHWARZ :",spl$:s 
pl*=LEFT*<spl$,8):IF spl*=””THEN spl$="l.P 
LAYER" 

250 sl*=LEFT$ <spl*,3) [1286] 

251 LOCATE 3.14: INK 2,26:PEN 2: INPUT"NAME [53961 
SPIELER VEISS :",sp2$:sp2*=LEFT*Csp2*,8 

>:IF sp2*=""THEN sp2*="2.PLAYER" 

252 s2$=LEFT*(sp2$,3) [450] 

253 FOR za=&AB68 TO &AB7A:POKE za,0:NEXT:F [12151] 
OR za=1 TO LEN<spl$ >:na=ASC<MID*(spl*,za,z 

a> >:POKE &AB67+za,na:NEXT:FOR za=l TO LEN< 


sp2S):na=ASC(MID*(sp2* , za,za)):POKE &AB71 + 
za,na:NEXT 

254 IF PEEK<&AB7B)= 0 THEN 260 

255 CLS:IF spl*<>”CPC 464"OR bab=l THEN RE 
TURN 

256 BORDER 12: INK 0,1: INK l,24:GOSUB 258:P 
EN 1:LOCATE 3,10:PR INT"Welchen Schwierigk 
eitsgrad 1-4 : ?" 

257 leve1*=INKEY*:leve1 = VAL<level*>:POKE & 
AB5F,level:IF level=0 OR level>4 THEN 257 
ELSE 260 

258 LOCATE 3,2:PEN 3:PRINT"# # # # # M 

";CHR*<252) ; " H L E # # # # #":PEN 2:P 

RINT:PRINT STRING*<40,”-") : RETURN 

259 REM-UNTERPROGRAMM 

'spielfeldaufbau' - 

260 IF PEEK<8tAB60) = l AND PEEK(3:AB7B) = 1 THE 
N POKE &AB60, 0:MODE 0:LOCATE 2,10:PRINT"Ei 
nen Moment BITTE":RUN:ELSE POKE &AB60,0:MO 
DE 1: INK 0,13: INK 1,26: INK 2,0: INK 3,24:BO 
RDER 1 

261 VINDOW#0,1,24,1,23: VINDOW#l ,1,24,24,25 
: VIND0V#2,25,40,3, 10: VIND0V#3,25,40,11, 18: 
WINDOV#4,25, 40,19,25: VINDOV#5, 25,40,1,2: VI 
NDOV#6,11, 15, 11, 15 

262 PAPER#0,0:PAPER#1,2: PAPER#2,2: PAPER#3, 
1:PAPER#4,3:PAPER#5,3:PAPER#6,0:CLS#0:CLS# 
1:CLS#2:CLS#3:CLS#4:CLS#5:CLS#6 

263 PLOT 56,56,3:DRAV 56,344:DRAV 344,344: 
DRAV 344,56:DRAV 56,56:PLOT 55,55:DRAV 55, 
343: DRAV 343, 343:DRAV 343, 55: DRAV 55,55:PL 
OT 104,104:DRAV 104,296:DRAV 296,296:DRAV 
296,104:DRAV 104,104:PLOT 103,103:DRAV 103 
,295:DRAV 295,295:DRAV 295, 103:DRAV 103,10 
3 

264 PLOT 152,152:DRAV 152,248:DRAV 248,248 
:DRAV 248,152: DRAV 152,152:PLOT 151,151:DR 
AV 151,247:DRAV 247,247:DRAV 247,151:DRAV 
151,151 

265 PLOT 200,56:DRAV 200,152:PLOT 199,55:D 
RAV 199,153:PLOT 200, 344: DRAV 200,248:PLOT 

199,343:DRAV 199,249:PLOT 56,200: DRAV 152 
,200:PLOT 55,199:DRAV 151,199:PLOT 344,200 
:DRAV 248,200:PLOT 343,199:DRAV 249,199 

266 PBN#0, 3:PEN#1,3:PEN#2,1: PEN#3,2:PEN#4, 
0:PEN#5,0:PEN#6,2:zahl=1:bust=65: FOR za=4 
TO 22 STEP 3:LOCATE#0,za,2:PEN 2:PRINT CHR 
*(bust):LOCATE#0,1,za:PRINT zahl:zahl=zahl 
+1:bust=bust+l:NEXT za:PEN 3 

267 L0CATE#6,1,3:PRINT#6,"M";CHR*<252>; "HL 
E":LOCATE#6,3,1:PRINT#6,"M":LOCATE#6,3,2:P 
RINT#6,CHR* <252):L0CATE#6,3,4: PRINT#6, ”L" : 
L0CATE#6,3,5:PR INT#6,"E":PEN 3:L0CATE#5,4, 
2:PRINT#5,"SPIELSTAND" 

268 IF bab=1 THEN GOSUB 111:GOTO 269:ELSE 
spl*="" : sp2$="” : FOR za=&AB68 TO 8»AB70:spl* 
=spl*+CHR*<PBEK<za)>:NEXT:FOR za=&AB72 TO 
&AB7A:sp2$=sp2*+CHR*<PEEK<za)):NEXT 

269 IF spl*=sp2*THEN spl*="l "+LEFT*(spl*, 
LEN<spl$)-2):sp2*="2 "+LEFT* <sp2*,LEN<sp2S 
> -2) 

270 PEN#2,3:LOCATE#2,2,3:PRINT#2,sp1*: PEN# 
2,1:L0CATE#2,12,4:PRINT#2,"ZUG":L0CATE#2,2 
,7:PR INT#2,"LETZTE P. :”:PEN#3,4:LOCATE#3,2 
,3:PRINT#3,sp2*:PEN#3,2:LOCATE#3, 12,4:PR IN 
T#3,"ZUG”:L0CATE#3,2,7:PRINT#3,"LETZTE P.: 
":GOSUB 321 

271 IF sl*=s2$THEN sl$=LEFT*(sl*,1)+" 1":s 
2$=LEFT*<s2S,1)+" 2” 

272 PEN#4,2:LOCATE#4,3,1:PRINT#4,”GEV. SPI 
ELE:":LOCATE#4,2,2:PRINT#4,STRING*<14,154) 

:LOCATE#4, 1,3:PRINT#4,TAB < < <17-LEN < s2*))/2 
)+5);LEFT* < s2*,5):LOCATE#4,1,3:PRINT#4,TAB 
< <7-LEN<sl*))/2+l);LEFT*<sl*.5) 

273 FOR za=3 TO 5:LOCATE#4,8,za:PRINT#4,CH 
R* <149):LQCATE#4,9,za:PRINT#4,CHR*<149):NE 
XT 

274 LOCATE#4,2,6:PRINT#4,STRING*<14,154):I 
F level=0 THEN 275 ELSE PEN#4,0:LOCATE#4,5 
,7:PRINT#4,"LEVEL level 

275 IF bab=l THEN GOSUB 279:GOSUB 125:GOTO 
3 

276 LOCATE#4,3,5:PEN#4,2:FRINT#4,PEEK < &AB7 
C):LOCATE#4,12,5:PRINT#4,PEEK(&AB7D) 

277 FOR za=7 TO 15:LOCATE#2,za.2:PRINT#2,C 
HR*(230):LOCATE#3,za,2:PRINT#3,CHR*(230):N 
EXT 

278 REM---UNTERPROGRAMM ' 

werte einiesen' - 


[1506] 

[2412] 

[8122] 

[6120] 

[7482] 

[3820] 

C10897] 

[8286] 


iihim 
j um 11 
■ in ii ii 
miim 

J ,| n 


III IIIII 
IIIIIII 


[7731] ;;ni!|i 

■i nun 


11111111 

[15334] hi 1 '" 
.. 


[7374] 


[10413] 


lull. 


1111111 

hihi 

iiiiin 


[12951] 


"IIUII 

iilliil 

imi 

iiiiiin 

'iiini 

iiiiiin 


[12346] 


C12348] ! 


iiiiin 

nun 

Imin 


[3437] 


[12949] 


[3523] 

[9194] 


[5378] 



iiiiiin 


"Mül' 
.. 


[5513] 

[3454] 

[4158] 

[5126] 
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279 POKE &B939,8.C9: FOR za=l TO 24: READ spm [3381] 
(za) : READ zem(za) : READ kpxn(za) : NEXT 

280 DATA 4,4,150,13,4,158,22,4,156,7,7,150 [11923] 
,13,7,159,19,7, 156,10,10,150,13,10,155, 16, 

10, 156, 4, 13, 151,7, 13, 159, 10, 13, 157, 16, 13, 1 
51,19,13,159,22.13,157,10,16,147,13,16,158 
, 16, 16, 153,7, 19, 147, 13, 19, 159, 19, 19, 153,4, 

22,147,13,22,155,22,22, 153 

281 FOR za=l TO 32:READ spw$(za):NEXT C3342J 

282 DATA A1D1,D1D2,D1G1,B2D2,D2D3,D2F2,C3D C10003] 

3, D3E3,C5D5,D5D6,D5E5,B6D6,D6D7,D6F6,A7D7, 

D7G7,AlA4,A4B4,A4A7,B2B4,B4C4,B4B6,C3C4, C4 
C5,E3E4,E4F4,E4E5,F2F4,F4G4,F4F6,G1G4,G4G7 

283 FOR za=l TO 48:READ coalw(za):READ com [3879] 
setS(za):NEXT 

284 DATA &D8F7,Al,&D908,Dl,&D91A,Gl,&D9ED, [12963] 
B2, &D9F8, D2, &DA04, F2, &DAE3, C3, &DAE8, D3,8.DA 

EE, E3, &DBC7, A4, &DBCD, B4,8.DBD2, C4, &DBDF, E4, 

&DBE4, F4, &DBEA, G4, &DCC3, C5, 8.DCC8, D5, &DCCE, 

E5,&DDAD,B6,&DDB8,D6,&DDC4, F6, &DE97,A7, &DE 
A8,D7,&DEBA,G7 

285 DATA &D8F7,Al,&DBC7,A4,&DE97,A7,&D9ED, [13712] 
B2,SDBCD,B4,&DDAD,B6,&DAE3,C3, &DBD2, C4, &DC 

C3, C5, &D908, Dl, &D9F8, D2,8.DAE8, D3, &DCC8. D5, 

&DDB8,D6,&DEA8,D7,&DAEE,E3,&DBDF,E4,&DCCE, 

E5, &DA04, F2,&DBE4,F4,&DDC4,F6,&D91A,Gl,&DB 
EA,G4,&DEBA,G7 

286 FOR za=l TO 16:READ comne$(za):NEXT [2530] 

287 DATA A1D1G1,B2D2F2,C3D3E3,A4B4C4,E4F4G [7626] 

4, C5D5E5,B6D6F6,A7D7G7,AlA4A7,B2B4B6,C3C4C 

5, D1D2D3,D5D6D7,E3E4E5,F2F4F6,G1G4G7 

288 FOR za=l TO 52:READ tpl(za):READ tp2(z [6078] 
a):READ tp3(za):READ tp4(za):READ tp5(za): 

NEXT 

289 DATA 10,2,15,1,3,11,5,14,4,6,12,8,13,7 [12415] 
,9,10,23,15,22,24,11,20,14,19,21,12,17, 13, 

16,18,23,10,2,22,1,20,11,5,19,4,17,12,8,16 
,7,2,15,23,3,24,5,14,20,6,21,8,13,17,9, 18, 

8,1,3,5,2,2,7,9,5,8,12,1,22,11,10,10,7,16, 

11,12,17,22,24,20,23,23,16,18,20,17,13, 24, 

3 

290 DATA 14,15,15,18,9,14,13,4,2,7,5,8,4,8 [9006] 
,1,5,2,6,2,9,5,8,6,8,3,5,2,6,15,9,14,13,6, 

13,3,14,15,21,15,18,14,13,21,13,24,14,15,2 

1.23.18.20.17.21.17.24.20.23.19.23.16.20.1 
7, 19, 17, 22,20, 23,4, 10,7, 11, 12,4, 12, 1, 11, 10 
,19,10,16,11,12,19,12,22,11,10 

291 DATA 10,19,5,11,4,12,19,5,11,4,10,4,20 [9924] 

.11,19,12,4,20,11,19,2,4,14,5,6,8,4,14,5,6 

,2,6,11,5,4,8,6,11,5,4,15,6,20,14,21,13,6, 

20.14.21.15.21.5.14.6.13.21.5.14.6.23.21.1 

1.20.19.17.21.11.20.19.23.19.14.20.21.17.1 
9,14,20,21 

292 FOR za=l TO 16:READ tp6(za):READ tp7(z [3679] 
a):NEXT 

293 DATA 6,9,6,3,4,7,4,1,21,18,21,24,6,9,6 [3549] 
,3,19,16,19,22,21,18,21,24,19,16,19,22,4,7 

.4, 1 

294 FOR za=l TO 104:READ tp8(za):READ tp9( [6238] 
za):READ tplO(za):READ tpll(za):READ tpl2( 

za):NEXT 

295 DATA 1,5,2,3,8,3,5,2,1,8,1,11,10,22,12 [11399] 
,22,11,10,1,12,3,14,15,24,13,24,14,15,3, 13 
,22,20,23,24,17,24,20,23,22,17,4,8,5,2,6,4 

,2,5,8,6,6,8,5,2,4,6,2,5,8,4,4, 12,11, 10, 19 
,4,10,11,12,19,19,12,11,10,4,19,10,11,12,4 
,6,13,14,15,21,6,15,14,13,21,21,13,14,15,6 

296 DATA 21,15,14,13,6,19,23,20,17,21,19,1 C9423] 

7.20.23.21.21.23.20.17.19.21.17.20.23.19.1 
0,2,1,3,22,10,23,22,1,24,15,2,3,1,24, 15, 23 
,24,3,22,11,5,4,6,19,11,20,19,4,21,14,5,6, 

4,21,14,20,21,6,19,12,8,7,9,16,12,17, 16, 7, 

18,13,8, 9, 7, 18, 13, 17, 18,9, 16, 1, 12, 10, 11,22 

297 DATA 22,12,10,11,1,1,8,2,5,3,3,8,2,5,1 [11828] 
,3,13,15,14,24,24,13,15,14,3,24,17,23,20,2 

2,22,17,23,20,24,1,4,11,10,19,1,19,11, 10,4 
,22,4,11,10,19,22,19,11,10,4,3,6,14,15, 21, 

3,21,14,15,6,24,6,14,15,21,24,21,14,15,6, 1 
,4,5,2,6, 1,6,5,2,4,3,4,5,2,6,3,6,5.2,4 

298 DATA 22,19,20,21,23,22,21,20,19,23,24, [9734] 

19, 20,21,23,24,21,20,19,23,1,7,11,10,16,1, 

16.11.10.7.1.7.5.2.9.1.9.5.2.7.3.9.14.15.1 
8,3,18,14, 15,9,3,9,5,2,7,3,7,5,2,9,24,9, 14 
,15,18,24,18,14,15,9,24,16,20,23,18,24,18, 

20, 23, 16 

299 DATA 22,16,11,10,7,22,7,11,10,16,22,16 [10560] 
,20,23, 18,22,18,20,23,16,1,24,3,2,15,1,24, 

22,10,23,4,21,6,5,14,4,21,19,11,20,7,18,9, 

8.13.7. 18.16.12.17,22,3,1.2,10,22,3,24,15. 


23, 19,6,4,5, 11, 19,6,21, 14,20, 16, 9,7, 8, 12, 1 
6,9,18,13,17 

300 DATA 10,16,11,12,7,10,7,11,12,16,2,7,5 [10225] 
, 8,9,2,9,5,8,7, 15,9, 14, 13,18,15,18,14, 13,9 

,23,18,20,17,16,23,16,20,17,18,12,22,11,10 
,1,12,1,11,20,22,8,1,5,2,3,8,3,5,2,1,13,3, 

14,15,24,13,24,14,15,23,17,24,20,23,22,17. 
22,20,23,24 

301 FOR za=l TO 48:READ tpl3(za):READ tpl4 [4627] 
(za):READ tpl7(za>:NEXT 

302 DATA 10,1,0,5,2,0,15,3,0,11,4,0,8,5,2, [7734] 
14,6,0,12,7,0,5,8,0,13,9,0,1,10,22,4,11,19 

, 7, 12, 16, 9, 13, 18,6, 14,21,3,15,24, 12, 16, 0, 2 
0,17,0, 13, 18,0, 11, 19,0, 17,20,23,14,21,0,10 
,22,0,20,23,0,15,24,0 

303 DATA 2,1,0,11,10,0,23,22,0,5,4,0,12,11 [8286] 

, 10,20, 19, 0,8,7,0, 11, 12, 0, 17, 16,0, 1,2,3,4, 

5,6,7,8,9,16,17,18,19,20,21,22,23,24,8,9,0 
.14,13,0,20,18,0,5,6,0,13,14,15,20,21,0,2, 

3,0,14,15,0,23,24,0 

304 FOR za=l TO 12:READ tpl5(za>:READ tpl6 [3414] 
(za):NEXT 

305 DATA 22,24,19,21,16,18,1,3,4,6,7,9,24, [3033] 
3,21,6,18,9,1,22,4,19,7,16 

306 FOR za=1 TO 3:READ tpsc(za):READ tpwe( [6160] 
za):NEXT 

307 DATA 735,735,735,495,270,735 [1449) 

308 DATA 9,12,16,10,12,15,11,12,14,9,10,11 [5223] 

, 14, 15, 16, 11, 13, 14, 10, 13, 15, 9, 13, 16, 1,4,8, 

2, 4,7,3,4,6. 1,2,3, 6,7,8,3,5, 6,2,5, 7, 1,5,8 

309 REM-UNTERPROGRAMM 'f [5351) 

uktionen definieren - 

310 DEF FNmul=PEEK(coalw(1))+PEEK(coalw(2) [120971 
)+PEEK(coalw(3)):DEF FNmu2=PEEK(coalw(4))+ 
PEEK(ccalw(5)>+PEEK(coalw(6)):DEF FNmu3=PE 
EK(coalw(7))+PEEK(coalw(8))+FEEK(coalw(9)) 

: DEF FNmu4=PEEK(coalw(10))+PEEK(coalw(11> > 
+PEEK(coalw(12 >) 

311 DEF FNmu5=PEEK(coalw(13))+PEEK(coalw(1 [3468] 

4))+PEEK(coalw(15)> 

312 DEF FNmu6=PEEK(coalw(16))+PEEK(coalw(1 [12702] 
7)>+PEEK(caalw(18)):DEF FNmu7=PEEK(coalw(1 

9))+FEEK(coalw(20))+PEEK(coalw(21)): DEF FN 
mu8=PEEK(coalw(22))+PEEK(coalw(23))+PEEK(c 
oalw(24)):DEF FNmu9=PEEK(coalwt1))+PEEK(co 
alw(10))+PEEK(coalw(22)) 

313 DEF FNnmlO=PEEK(coalw(4))+PEEK(coalw(1 [11951] 
1))+PEEK(coalw(19)):DEF FNmull=PEEK(caalw( 

7))+PEEK(coalw(12))+PEEK(coalw(16)):DEF FN 
nml2=PEEK(coalw(2))+PEEK(coalw(5))+PEEK(co 
alw(8>):DEF FNmul3=PEEK(coalw(17))+PEEK(co 
alw(20>)+PEEK(coalw(23>) 

314 DEF FNnml4=PEEK(coalw(9))+PEEK(coalw(1 [13171) 
3))+PEEK(coalw(18)):DEF FNmul5=PBEK(coalw( 

6>)+PEEK(coalw(14))+PEEK(coalw(21)):DEF FN 
mul6=PEEK(coalw(3))+PEEK(coalw(15))+PEEK(c 
oalw(24) ) : POKE 8.B939, &F3: RETURN 

315 frsp=FRE(""):RETURN [1202) 

316 mu(l)=FNmul:mu(2)=FNmu2: nm(3)=FNmu3:mu [14380] 
(4)=FNmu4:mu(5)=FNmu5:mu(6>=FNmu6:mu(7)=FN 

mu7: mu(8)=FNmu8: mu(9)=FNmu9: mu(10)=FNmul0: 
mu(ll>=FNnrall: mu(12)=FNmul2: mu(13)=FNraul3: 
mu(14)=FNmul4:mu(15)=FNmul5:mu(16)=FNmul6: 

RETURN 

317 CLOSEIN:PRINT#0,” REVIND TAPE PLE [3017] 
ASE":FOR zei=l TO 1000:NEXT:CLS#0:RESUME 1 

12 

318 POKE 8.B4E8,255: RETURN C1523) 

319 muhl=0:FOR za=l TO 16: IF mu(za>=735 TH [3074) 
EN muhl=muhl+l 

320 NEXT:RETURN [940) 

321 L0CATE#2,2,8:PRINT#2,"GEN. STE,:":LOCA [3728] 
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Programminhalt: 

Bei diesem Programm handelt es sich um eine Simulation 
des Schiffshandels im 19. Jahrhundert. Dem Privatleben 
des Schiffsuntemehmers und dem geschichtlichen Hin¬ 
tergrund wurde keine Berücksichtigung geschenkt. Den¬ 
noch bereitet es viele fröhliche Stunden, wenn man neue 
Handelspartner findet, regen Warenhandel betreibt oder 
sich als Schiffsbauer versucht. Ziel des Spieles ist es, alle 
möglichen Handelspartner zu entdecken und danach den 
gesamten Welthandel von einem bestimmten Punkt zu 
steuern. 

Programmbeschreibung: 

Das Teilprogramm ”MC-TEIL” erzeugt drei Maschi¬ 
nenprogramme und die Weltkarte, wie auch das 
Helpmenue-Fenster. Es empfiehlt sich, das Binärfile 
direkt hinter dem Hauptprogramm WIPO abzuspeichern. 
Es gilt folgendes: 

CALL &8EFF - Tastatur auf Hauptmenueeingabe ab- 
fragen 

CALL &8F25 - Weltkarte ein-/’ausblenden 
CALL &8F2A - Helpmenue ein-/ausblenden 
Da das übrige Programm in BASIC geschrieben ist, ver¬ 
weise ich auf die REM-Statements. 

Aus programmiertechnischen Gründen ist es nicht mög¬ 
lich, über mehr als 20 Schiffe zu verfügen. 

Schiffe senden: 

Nach der Schiffswahl erscheint rechts unten die Liste der 
möglichen Anweisungen, welche nur mit Ziffern ausge¬ 
wählt werden, links unten kann der Fahrplan, sofern er 
teilweise oder vielleicht schon ganz erstellt wurde, abgele¬ 
sen werden. Der Fahrplan wird allerdings nach dessen 
Ausführung jedesmal gelöscht. 


Der Computer erkennt nur das Land an, welches mit ”Han- 
delspartner” entdeckt wurde. Um die Eingabe zu erleich¬ 
tern. wurden folgende Tasten in Verbindung mit CTRL 
belegt: 

D - Deutschland E - Elfenbeinküste 

P - Portugal I - Indien 

U - USA C - China 

M - Mexiko A - Australien 

B - Brasilien SPACE - Madagaskar 


Die Punkte 2-8 bedürfen, so hoffe ich, keiner Erklärung, 
da die Ware mit Cursortasten rechts oben und die Menge 
eingegeben werden muß. Bei jeder Reparatur des Schiffes 
muß man eine Zeiteinbuße von einem Monat in Kauf neh¬ 
men. Sollten Sie irrsinnige Angaben machen und der 
Computer hat es in seinem Fahrplan aufgenommen, so 
wird später bei Bearbeitung auf einen gültigen Wert umge¬ 
rechnet. Insgesamt sind zwölf Befehle möglich. Beachten 
Sie bei der Aufstellung, daß das Schiff zum Schluß nicht 
am Ende der Welt stehen bleibt. Beenden Sie die Eingabe 
mit ”9”, so wird nach dem Geld gefragt, das Sie dem 
Schiff mitgeben. Die Summe spielt dabei keine Rolle, da 
die Aufträge immer erledigt werden. Es ist also möglich, 
daß das Schiff mit negativem Kapital zurückkehrt. Mit 
dieser letzten Eingabe endet die Hauptfunktion. 

Hinweis: Wenn Sie zu lange Strecken ohne Pausen und 
Reparatur befehlen, sinkt Ihr Schiff auf den Meeres¬ 
grund. 

F = Handelspartner: 

Mit dieser Option haben Sie die Möglichkeit, Ihren Aufent¬ 
haltsort und den Ort eines Schiffes zu verändern. Am An- 

Fortsetzung auf Seite 81. 


10 REM- [3706] 


20 REM geschrieben von Richard Krampf1 am [4283] 
1.5.86 

30 REM Hauptprogramm 'WIPO' muss nachgelad [4043] 
en werden 

40 REM- [3706] 



50 REM-MC Programm la 

den--- 

60 MEMORY &8EFE:FOR a=&8EFF TO &8F4F:READ 
i$;POKE a,VAL("&"+iS);NEXT 

70 REM-Weltkarte e 

rstellen- 


80 MODE 2;PLOT 319,399,1:DRAW 638,399:DRAV 
638,232; DRAW 319,232; DRAW 319,399:PLOT 31 
8,399:DRAW 318,232:PLOT 639,232:DRAW 639,3 
99:RESTORE 220:x=320:y=397:fa=0:FOR durch= 
1 TO 81 

90 READ a:IF a>-l THEN FOR b=l TO a:PLOT x 
,y,fa:PLOTR 1,0:x=x+2:NEXT:fa=ABS<l-fa>:GO 
TO 90 

100 x=320:y=y-2:fa=0:LOCATE 1,15:NEXT:PLOT 
473, 366,1:DRAWR 0,-4:DRAWR -3,0:DRAWR 0,4 
:DRAWR 1,0:DRAWR 0,-4:DRAWR 1,0:DRAWR 0,4: 
CALL &8F25 

110 REM-Hilfsme 

nue- 

120 MODE 2:PEN l:PLOT 319,399,1:DRAW 638,3 
99: DRAW 638,232:DRAW 319,232:DRAW 319,399: 
PLOT 318,399:DRAW 318,232:PLOT 639,232:DRA 
V 639,399:LOCATE 1,25:PRINT"Hilfsmenue" : FO 
R a=0 TO 80:FOR b=0 TO 14 STEP 2:PLOT 402+ 
a*2,b+374,TEST<a,b) ; PLOTR 1,0:NEXT b,a 
130 FOR a=0 TO 4:READ iS;LOCATE 1,25:PRINT 
i$:FOR b=0 TO 6:FOR c=l TO 15 STEP 2:PLOT 
b#2+323,352~a*18+c,TEST < b,c):PLOTR 1,0 
140 NEXT c,b:READ 1$:TAG:PLOT 700,0,1:MOVE 
337,366-a*18:PRINT ” = ”;i$;:TAGOFF:READ 
i$:LOCATE 1,25:PRINT iS:FOR b=0 TO 6:FOR c 
=1 TO 15 STEP 2:PLOT b*2+484,352-a*18+c,TE 
ST<b,c):PLOTR 1,0:NEXT c,b:READ i$:TAG:PLO 
T 700,0,l:MOVE 498,366-a*18 
150 IF a<4 THEN PRINT " = iS;:TAGOFF:NEX 

T 

160 TAG;MOVE 323,274:PRINT”(Diese Tasten s 
tehen nur in Verbindung";:TAGOFF:LOCATE 42 
,10:PRINT”mit Shift zur Verfuegung.)":CALL 
&8F2A:MODE 2;SPEED WRITE 1 
170 PRINT"Der MC-Teil wird binaer abgespei 
chert.":SAVE "fenster",b,&8EFF,&1C81:PRINT 
"Bei weiterem Abspeichern nur 'goto 170' e 
ingeben.":END 

180 REM-MC Progra 

mm- 

190 DATA 06,09,11,1B,8f,1A,CD,IE,BB,20,04, 
13, 10, F7, C9,3E, 15, CD, IE, BB, 28, F5,78,32,24, 
6f,18,EF,2c,47,35,lb,3c,24,33,37,3a,00 
200 DATA 11,68,9d,18,03,11,50,8f,21,27,cO, 
Oe,Ob,c5,06,29,e5,7e,eb,4e,eb,71,12,23,13, 
10,f6,el,01,00,08,09,30,ec,01,50,cO,09,cl, 
Od,20,e3,c9 

210 REM-DATA's-- 


220 DATA 11,1,4,4,3,1,11,2,5,1,1,1,9,1,12, 
1,29,2,2,2,6,32,2,1,15,-1 

230 DATA 8, 1,2, 1,4, 1,7,7, 12, 1, 1,2,?, 1, 11, 1 
, 30, 1,1,2, 40, 1,2,2, 13, -1 

240 DATA 0,1,1,1,2,3,1,2,3,2,15,1,8,1,2,2, 

2,1,6,1,9,2,31,1,42,1,5,1,5,7,-1 

250 DATA 0,2,1,2.7,2,18,2,1,2,2,1,1,1,3,1, 

2.1.5.1.8.3.16.2.10.1.2.1.43.1.5.2.4.1.5, - 
1 

260 DATA 9,3,22,1,2,2,2,1,3,1,2,1,5,1,5,3, 
17,7,7,4,38, 1,3, 1,8,5,5,-1 

270 DATA 9,2,28,3,2,1,4,1,3,2,3,3,3,5,9,2, 
6,2, 1,6,40,1,1, 1, 1,1, 13, 2,4,-1 
280 DATA 10,1,2,5,22,1,3,2,1,3,3,1,3,1,6,2 
,2,1,8, 1,3, 1,4, 4,41,5,1,1,1,1, 14, 1,4,-1 

290 DATA 7,3,1,2,5,1,17,4,6,1,6,2,1,1,9,2, 
8,1,3,1,1, 1,4,3,41, 1,3,1,1, 1,2,1,13,1,4,-1 

300 DATA 6,5,7,1,16,1,7,3,8,2,19,2,2,1,1,1 
, 49,1,5, 1,2,1,1, 1, 16, -1 

310 DATA 5,1,12,1,16,1,5,2,2,3,26,1,4,1,1, 

2.47.1.7.2.5.1.5.1.1.1.5, -1 

320 DATA 18,1,16,2,3,1,6,1,22,2,2,1,1,1,2, 
1,3,2,46,3,1,1,3,2,7,1,10,-1 
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330 DATA 18,1,18,1,2,1,6,1,22,2,3,2,2,1,2, C20571 

1.51.1.1.1.3.1.18, -1 

340 DATA 17,1,19,1,2,1,6,1,20,1,2,2,4,2,2, [1776] 
1,52,1,1,2,21,-1 

350 DATA 17,1,19,1,1,1,7,2,18,2,1,3,2,1,3, C3210] 

3.53.1.1.2.20, -1 

360 DATA 17,1,20,1,9,1,18,2,1,3,1,5,56,1,2 [3989] 
,2,19,-1 

370 DATA 16,2,15,1,9,5,25,1,'62,1,22,-1 [1362] 

380 DATA 16,1,14,4,7,2,27,2,63,1,2,2,18,-1 [1767] 

390 DATA 15,1,16,3,7,1,1,2,26,1,14,1,2,1,5 [1839] 
,2,36,3,2,2,18,-1 

400 DATA 14,1,17,1,1,2,4,5,27,1,5,3,5,1,1, C3458] 

3.4, 1, 1, 1,36,1,4,1,19,-1 

410 DATA 14,1,17,1,2,2,2,1,28,5,1,6,1,1,5, [3728] 

1.3.1.3.1.1.1.33.1.2.1.4.2.18, -1 

420 DATA 13,1,24,1,29,1,4,1,4,3,1,1,1,2,2, [3220] 

4.4, 1, 1, 1,31,5, 4,2, 18, -1 

430 DATA 13,1,23, 1,30-, 1,3, 1,6,3, 1,2,1, 1,9, [3208] 

1, 1,1,31,1,3,2,2,1,1,1, 18,-1 

440 DATA 12,1,23,1,20,1,1,1,8,1,2,1,8,1,2, [2527] 

1.1.1.10.1.1.1.32.1.2.2.2.1.1.1.18, -1 

450 DATA 12,1,22,1,33,3,1,4,2,1,3,1,2,4,7, [2055] 
2,32,2,2,1,1,1,2,1, 18, -1 

460 DATA 12,1,20,2,34,4,4,1,12,1,42,1,3,1, [2224] 

1.2.18, -1 

470 DATA 13,1,18,1,30,1,4,1,8,2,11,1,42,1, [1893] 

4.1.20, -1 

480 DATA 14,2,9,2,1,4,35,1,11,1,3,2,5,1,42 [2631] 
. 1,25,-1 

490 DATA 14,2,8,1,2,2,1,2,2,1,27,1,4,1,12, [2601] 

3.2.5.7.1.36.1.24, -1 

500 DATA 14,3,7,1,5,2,31,1,2,1,29,1,1,1,35 [1692] 
, 1,24,-1 

510 DATA 14,2, 1, 1,5, 1,6', 2,29, 1,3, 1,23, 2,6, [2916] 

1.1.3.32.1.24, -1 

520 DATA 15,1,1,1,5,1,11,1,28,1,24,1,1,1,6 C2686] 
,1,3,5,26,1,2,1,22, -1 

530 DATA 15,1,1,1,5,1,5,1,33,1,26,1,1,1,5, [2718] 

4.5.2.8.1.2.1.11.1.3.1.22, -1 

540 DATA 17,1,5,1,2,2,2,3,30,1,26,1,1,1,9, [3096] 
2,4,3,6,3,1,1,6,4,27,-1 

550 DATA 17,1,5,3,1,1,4,2,29,1,27,1,1,1,9, [31811 

1.6, 1,5, 1,4, 1,6, 1,30,-1 

560 DATA 17,2,8,1,6,2,2,1,24,1,27,1,2,1,7, [2222] 

1.7, 1,5, 1,4, 1,6, 1,30,-1 

570 DATA 19,1,8,1,28,1,5,1,27,1,2,1,6,1,9, [3237] 

1.3.1.6.2.5.1.6.1.22, -1 

580 DATA 20,2,7,1,11,1,21,1,28,1,2,1,4,1,1 [3821] 
0,1,2,1,9,1,5,1,4,2,22,-1 

590 DATA 21,3,5,1,29,1,2,1,30,1,1,5,11,1,2 [3111] 
1933152 21 —1 

600 DATa’24,3,2,1!33,1,30,1,17,1,2,1,8,3,3 [2151] 

, 1,5, 1, 1, 1,20, -1 

610 DATA 26,1,2,1,3,3,6,1,20,1,31,5,12.1,1 [2400] 
,1,9,2,1,1,1,1,7,1,1,1, 19,-1 

620 DATA 26,1,3,1,1,1,2,5,24,1,35,1,9,1,1, [3015] 
1,1,1,9,2,2,1,5,1,2,1,1,1,19,-1 

630 DATA 27,3,1,1,8,1,24,1,34,1,12,1,1,1,8 [2718] 
.2,12,1,1,1,15,1.2.-1 

640 DATA 29,2,10,1,23,2,5,3,25,1,14,1,10,1 [1586] 
, 11,3,7,1,10,-1 

650 DATA 30,1,11,2,23,5,3,1,24,1,11,1,14,1 [2465] 
, 16,1, 14,-1 

660 DATA 30,1,13,2,30,1,22,1,27,2,4,3,16,1 [2009] 

, 6 , -1 

670 DATA 30,1,14,1,28,1,1,1,22,1,12,1,10,2 [2218] 
, 8, 1, 1, 1,23,-1 

680 DATA 30,1,14,1,30,1,12,1,9,1,24,2,6,1, [2245] 

2,1,6, 1, 16, -1 

690 DATA 24,1,4,1,15,1,13,1,14,1,1,1,11,2, [3469] 

8-,1,26,2,4, 1,3, 1,2, 1,20,-1 

700 DATA 29,1,16,1,30,1,19,1,28,2,3,1,3,1, [1852] 
23,-1 

710 DATA 29,1,17,5,26,1,17,1,30,2,2,1,3,1, [2109] 

7,2,8,1,5,-1 

720 DATA 29,1,22,3,23,1,17,1,30,2,3,3,4,1, [2014] 

3,5,11,-1 

730 DATA 29,1,25,1,22,1,16,1,31,2,16,1,2,1 [1881] 

, 10,-1 

740 DATA 29,1,25,1,22,1,16,1,16,1,17,1,15, [1352] 

1.2.2.3.1.4, -1 

750 DATA 30,1,24,1,23,1,14,1,8,1,27,6,4,1, [2341] 

4, 1,3, 1,8,-1 

760 DATA 31,1,22,1,25,1,13,1,38,4,9,6,7,-1 [1857] 
770 DATA 31,1,21,1,26,1,13,1,7,1,35,1,11,2 [2300] 


, 7, -1 

780 DATA 32,1,20,1,27,1,13,1,45,1,1,1,2,2, [30143 

6,1,4,-1 

790 DATA 33,1,19,1,27,1,13,1,6,1,37,1,1,2, [21323 
2 , 2 , 11 , — 1 

800* DATA 34,1,18,1,26,.1,14,1,2,1,38,4,2,1, [2091] 

2,2,11,-1 

810 DATA 35,1,17,1,26,1,14,1,5,1,34,1,7,2, [2578] 
2,1,3,1.6.-1 

820 DATA 35,1,16,1,27,1,14,1,3,2,1,1,33,1, £2335] 

7.2.2.1.10, -1 

830 DATA 35,1,16,1,27,1,13,1,4,1,1,1,32,2, [2298] 

12.1.10, -1 

840 DATA 36,1,13,3,27,1,12,1,4,1,1,1,4,1,2 £28413 
5,3,15,1,6,1,2,-1 

850 DATA 36,1,12,1,31,1,10,1,5,1,1,1,29,1, C2511] 
19,1,8,-1 

860 DATA 36,1,12,1,31,1,10,1,5,2,6,1,23,1, £23183 

19,1,8,-1 

870 DATA 36,1,11,1,32,.1,10,1,5,2,30, 1,19,1 £1744 3 
. 6 , -1 

880 DATA 36,1,11,1,32,1,10,1,5,2,30,1,19,1 [17443 

, 8,-1 

890 DATA 36,1,11,1,33,1,8,1,38,1,19,1,8,-1 [18023 
900 DATA 36,1,10,1,34,1,8,1,38,1,19,1,8,-1 £2207] 
910 DATA 36,1,10,1,35,1,5,2,39,1,19,1,8,-1 [ 16563 
920 DATA 36,1,8,2,36,1,4,1,41,1,5,4,9,1,9, £1826] 

-1 

930 DATA 36,1,8,1,38,4,43,5,4,1,7,1,10,-1 £16063 

940 DATA 36,1,7,2,94,1,6,1,11,-1 £16643 

950 DATA 36,1,7,1,95,1,4,2,9,2,1,-1 £1117] 

960 DATA 37,2,3,2,97,4,11,2,1,-1 [10963 

970 DATA 38,1,4,1,111,1,2,1,-1 £1366] 

980 DATA 38,1,3,2,98,2,10,1,1,2,1,-1 [1080] 

990 DATA 38,1,4,1,98,2,9,1,1,1,3,-1 [1226] 

1000 DATA 39,2,2,1,3,1,103,4,4,-1 [12043 

1010 DATA 40,3,4,2,101,1,1,1,6,-1 [6813 

1020 DATA 41,3,105,3,7,-1 [1150] 

1030 REM- [37323 

Datas- 


1040 DATA E, Vareneinkauf,P,Schiffe planen, [8611] 
V,Warenverkauf,S,Schiffe senden,T,Varentra 
nsfer,F,Handelspartner,L,Lager bauen,Z,Zuk 
unft,H,Hilfsraenue," ", 


10 REM - 

20 REM WIPO 

30 REM 

40 REM written by Richard Krampf 1 
50 REM at May / June 1986 

60 REM--- 

70 ' 

80 ' Dimensionierungen 

90 ' 

100 IF HI MEMO 36606 THEN MEMORY &8EFE: PRIN 
T:PRlNT”Es wird 'Fenster' nachgeladen !":P 
RINT:LOAD "Fenster”:CLEAR 

110 DEFSTR m-t:DEFINT b;DIM q<12),m<10> , j< 
20,10),jb<10,10),fi<20>,1<10),b<10,10>, n<l 
0,7),s(20),k(20),i(20),e( 10 , 10 ),a(20),d(20 
,13),t2 <10),f(10) 

120 GOSUB 1290:g=0:EVERY 5,3 GOSUB 160:EVE 
RY 149,2 GOSUB 200:VHILE g=0: WEND:CLS#2:CL 
S#3:GOTO 180 
130 ' 

140 ' Hauptmenue-Abfrage 
150 - 

160 IF g=0 THEN POKE &8F24,0:CALL &8EFF:g= 
PEEK(&6F24) 

170 RETURN 

180 ON g GOTO 2240,2390,2030,2490,990,2590 

,1750,1420,240:GOTO 180 

190 REM Carbage Collection 

200 RETURN:cc=FRE(" ”):RETURN 

210 ' 

220 REM Hauptmenue einblenden 
230 ' 

240 IF f=l THEN CALL &8F25:CALL &8F2A ELSE 
IF f=0 THEN CALL &8F2A 
250 f=2:g=0:VHILE g=0:VEND:IF g=10 THEN 25 
0 ELSE CALL Si8F2A: f = 0: GOTO 180 
260 REM Weltkarte ausblenden 
270 IF f=l THEN CALL &8F25:f=0 
280 RETURN 

290 REM Datumsanzeige 

300 IF (s-INT(z)>*100>12,1 THEN z=z+0.88;G 
OTO 300 

310 LOCATE 10,1:PRINT q((z-INT(z))*100);IN 
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T<z>" RETURN 

320 REM Ortsanzeige 

330 E0CATE 10.2: PRINT SPACES (16 ) : LOCATE 10 
,2:PRINT l$d>;RETURN 
340 REM Geldanzeige 

URN L0CATE 10 * 3:PRI NT USING”#######»; e: RET 

360 REM freier Schiffsraum 

370 ab=0.-FOR a=l TO h: IF l = fi<a> THEN ab=a 

D-i k i.a) : e-e+j <a, 0) : j (a, 0> = 0: GOSUB 350 

360 NEXT a:LOCATE 20,4:PRINT USING"#### T" 

;ab:RETURN 

390 REM freier Lagerraum 

400 LOCATE 19,5: IF 1(1X0 THEN PRINT" _ 

—RETURN ELSE PRINT USING ”##### T”•1(1) 
RETURN ‘ 

410 REM Schiffe im Hafen 

E0CATE 40,l:PRINT"Schiffe im Haf«n-"-L 
-CATE 40,2:FOR a=l TO h:IF l=fi(a> THEN IF 
POo(#0)+2+LEN(s(a)>>80 THEN LOCATE 40 VPO 
S<#0)+1;PRINT s(a>", ELSE PRINT s (a>”, 

430 NEXT a:PRINT CHRS< 8 )CHR$( 8 >" ” i; RETURN 

440 REM Eingabe von Ware und Menge 

450 GOSUB 270:CLS#1:FOR a3 = l TO 10:LOCATE 

50,a3:FRINT m(n3):NEXT:a3 = l 

460 LOCATE 50, a3: PRINT CHR$ (24)+m(a3> +CHRS 

(24) 

IF t=CHR$(240> AND a3> 1 THEN 
JB 3 J,'0^o=«3-1:G° to 460 ELSE IF t=CKR$< 
241) AhD a3<10 THEN GOSUB 510:a3=a3+l:GOTO 
4O0 ELSE IF t=CHR$(224) THEN al=a3:G0T0 4 
80 ELSE 470 

450 INPUT#3,"Menge";a 2 :f=l:CALL &8F25:RETU 

RN 

490 REM Taetigkeiten von Land a(0> verschi 
eben 

5 00 FOR a5=l TO 6 : n (a (.0) , a.5> =n (a ( 0> , a5+ 1 ) ; 

7 : r *< a (0) , 7) =DEC$ ( (z, "####, ##’’) +” ; >• ; RET 

510 LOCATE 50,a3:PRINT m(a3):RETURN 

520 REM Waren eines Schiffes printen 

5o0 LOCATE 1,12:FRINT"Die Waren des Schiff 

”^ Ca) " : ’ ,:F0F al = 1 T ° 10: IF j (a, a 1) >0 AN 
- rOot#0)+LEN(ra(al>>+LEN(STR$(j<a,al)))+ 4 > 
80 THEN LOCATE l.VFOS(#Q)+l 

540 IF j(a,al> >0 THEN PRINT j(a,al)"T "ra(a 
1>" CHR$(149); 

^50 NEXT al: PRINT CHR$( 8 )” ": RETURN 
560 REM Monatsablauf in Prozent 
570 DI:IF a(0)>=100 THEN z=z + 0. 01 :GOSUB 30 
® ‘ °^-a<0)-100: a (0) = INT (a(0)/4) *4: GOSUB 1 
440:LOCATE 41,17:PRINT SPACES(30):PLOT 320 

in?n’i™ RAWR °‘ 18: DRAVP - 002, 0: PRAWR 0,-18; 

GUiU 570 

580 PLOT 320+aC0,)*2, 126, 1 : DRAWR 0,18:BRAWR 
2,0;DRAWR 0,-18:DRAWR 2,0 : DRAWR 0,18:DRAW 
R 2,0:DRAWR 0,-18:i(a(1))=i( a (1>)+0.5 
590 REM Abnuetzung des Schiffes in % 

600 DI:IF i(a(l ))>66 THEN t="Sie ertranken 
, da das Schiff nicht mehr seetuechtig ist 
’ "’GOTO 2180 ELSE PLOT 320+i(a(1))*o 94 1 . 
DRAWR 0,18:RETURN ’ ’ 

610 REM JA/Nein Abfrage 
620 WH ILE INKEYSO"” WEND 

630 t=LOWER$ ( INKEY$) : IF tO"j" AND +<>"n" 
THEN 630 ELSE RETURN 
640 REM Eingabetext printen 

660 "~ Varte auf Eingabe-":RETURN 

660 REM Blinken simulieren 

TURN PL0T X,y ’ ABS< 1 - TEST<x -y>>=PLOTR 1,0:RE 

2 RE ” Taetigkeiten von Land verschieben 
ECE a4-l TO 6 :n<l,a4)=n(l,a4+l):NEXT:n 

' 1 1 ' ) -DEC$ ( (z, "####, ##" ) +■" ; >•. RETURN 
700 REM Schiff auswaehlen 

710CLS# 4 :F°R a=l TO 10 STEP 2;LOCATE a*7+ 

mfa))/2 - 12:FRINT “(a);LOC.ATE a*7+15- 
LEN(m(a+1))/2, 13:PRINT m(a + l) : NEXT:LOCATE 
72, 13: PRINT mUO.);: PRINT STRING$ <80, 154) ■ a 
(0>=0:a=0;LOCATE 1,15 

'20 WHILE VP0S(#0)<25 AND a<h;a=a + l:IF fi( 
a)=l THEN PRINT s(a);:LOCATE 11,VPOS(#0)•F 
OR al=l TO 10:PRINT USING" ####";j(a,al) 
i:NEXT:a( 0 )=a( 0 )+l:a(a( 0 ))=a 

730 WEND:a=l: g=0 

! 4 ° L °J ATE 1.14+a:PRINT CHRS(24)+s(a(a)>+C 
nh.3> (24 ) 

750 IF g>0 THEN RETURN ELSE t-INKEYS: IF t< 


CHR$(224) THEN 750 ELSE IF ASCCt)=240 AND 
[14323 a>1 THEN GOSUB 760:a=a-1:GOTO 740 ELSE IF 

[27813 ASC(t>=241 AND a<a<0) THEN GOSUB 760:a=a+l 
:GOTO 740 ELSE IF ASC(t)=224 THEN a=a(a):C 
C1849] LS#4:RETURN ELSE 750 

C2719] 760 LOCATE 1,14+a:PRINT s(a(a>):RETURN 

770 REM Ware auswaehlen 

11147] 780 FOR al=l TO 10:LOCATE 1,15+al:PRINT US 

(29463 ING"\ \ ##### #####";m(al 

);j(a,al);jb(l,al):NEXT: al=l;LOCATE 1,13:P 
[23313 RINT"ausgewaehltes Schiff: s(a):LOCATE 1 

5,15:PRINT”Schiff Lager" 

(6893 790 LOCATE 1,al + 15:PR INT USING CHR$(24>+"\ 

[39411 N > #####' #####" +CHR$ <24) ; 

ra<al);j<a,al);jbd,al) 

800 IF g>0 THEN RETURN ELSE t=INKEY$:IF t< 
[14853 CHR$(224) THEN 800 ELSE IF ASC(t>=240 AND 

[9303] al>l THEN GOSUB 810:al=al-1:GOTO 790 ELSE 
IF ASC(t)=241 AND al<10 THEN GOSUB 810:al= 
al+1;GOTO 790 ELSE IF ASC(t>=224 THEN RETU 
RN ELSE 800 

810 LOCATE 1,al+15:PRINT USING"\ \ 

[12933 ##### #####";m(al);j(a,al); 1b(1, 

[1384] al):RETURN 

[3587] 820 REM Taetigkeiten printen 

830 GOSUB 270:CLS#1:LOCATE 40, 1;PRI NT"Taet 
[2412] igkeiten von Land:": FOR a3=l TO 7: IF nd,a 
3)0"" THEN LOCATE 40, VPOS(#0)+1: a2=VAL(LE 
[9761] FT$(n(l,a3>,7));PRINT USING"##.####";( a 2-I 
NT(a2> >*100+a2/10000;:PRINT RIGHTS(n(1,a3> 

,LEN(n(l,a3)>-7)j 
840 NEXT:RETURN 

850 REM Freier Schiffsraum von jedem Schif 
[3119] f printen 

860 GOSUB 270:CLS#1:LOCATE 40,1:PRINT”Frei 
[2497] er Schiffsraum: ";: a3=0: WHILE VPOS(#OX12 A 
ND a3<h:a3=a3+l:IF fi(a3)=l THEN LOCATE 40 
[4724] .VPOS(#0)+1:PRINT USING"\ \ # 

#####";s(a3);k(a3)j 
870 WEND: RETURN 

[2124] 680 REM auf Hauptmenueeingabe warten 

[9033 890 g=0:GOSUB 830:GOSUB 930:GOSUB 650:WHIL 

[8727] E g=0:WEND:GOTO 180 

900 REM Preistabelle eines Landes 
910 GOSUB 270;CLS#1:LOCATE 40,1:PRINT"Folg 
ende Preise gelten in diesem Land:”:FOR al 
[3226] =1 T0 10:LOCATE 42, al + 1: PR INT m<al>STRING$ 

(15-LEN(m(al)>,46);:PRINT USING"###";b(l,a 
D;NEXT:RETURN 

920 REM Preistabelle aller Laender 
930 CLS#4:FOR n=l TO 10 STEP 2:LOCATE a*6 + 
18-LEN(m(a))/2,13:PRINT m(a>:LOCATE a*6+25 
-LEN(m(a+l))/2,14:PRINT m(a+l):NEXT:LOCATE 
72,14:PRINT m(10);: PRINT STRING$(80,154): 
FOR a-1 TO 10: LOCATE l,a + 15:IF KaXO THFN 
PRINT STRING$d5, 45): GOTO 950 
940 PRINT 1$(a);:FOR al=l TO 10:LOCATE 17+ 
al*6,VPOS(#0):PRINT USING"###";b(a,al);;NE 
XT 

950 IF g>0 THEN RETURN ELSE NEXT:RETURN 

960 ' 

970 Schiffe senden 
980 ' 

990 IF 1(1X0 THEN PRINT#3,"Von hier aus n 
icht moeglich. ”:GOTO 890 ELSE GOSUB 270'CA 
LL &8F25:f=l 

T°?R a rn : S5, a=1 T ° h;ab =«b-(fi<a) = l):NEX 
T:IF ab=0 THEN PRINT#3,"Kein Schiff im Haf 

en ;GOTO 890 ELSE PRINT#3,”Waehlen Sie das 
SchiffGOSUB 710:ga=g:g=0 

1010 CLS#4:CLS#7:PRINT#7,"Moegliehe Anweis 
un ^pp , ;; T Si N .T #7!PRINT#7 ' ,,<1> Fahre 

.. :PRINT#7, (2) Kaufe .,,":PRINT#7,"(3) 
Verkaufe . . .":PRINT#7,"(4) Bringe , , . vo 
m uager aufs Schiff" 

1020 PRINT#7,”(5) Bringe ... vom Schiff i 

PRTWTÄv r M : ( -VN IN J' #7 '” f6) Repariere Schiff"; 
PRINT#7, (7) Warte auf Schiff ...":PRINT# 

7,”(8) Letzteres loeschen" 

PRINT#7 >’’ <9) Eingaben beenden” : PRINT 
:PRINT#7,"Geben Sie dabei nur die Zahl e 
ln !":LOCATE 1,12;PRINT CHR$(24>+" Der Fah 
rplan des Schiffes ”+s(a)+”: "+CHR$(24);a( 

1>-a;a=l:WHILE d(a<l),a)>0: a=a+l: WEND: a=a- 

1040^ FO R a3=l TO a:LOCATE 1,13+a3:PRINT ST 

." i 1 a2=d(ad),a3)-INT<d<ad> , 

a3)/100) #100: ON INT(dCad) , a3)/100)-l GOTO 
[10570] 1050, 1060,1070,1080,1090, 11 QQ:PR INT"Fahre 
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nach ”+l$(a2) : GOTO 1110 
1050 PR INT"Kaufe"+STR$CROUND< <a2-INT(a2))* 
10000))+" T "+m(INT(a2)):GOTO 1110 
1060 PR INT”Verkaufe"+STR3X ROUND<Ca2-INT(a2 
))*10000)>+” T ”+m(INT(a2)) ; GOTO 1110 
1070 PRINT"Bringe"+STR$ < ROUND((a2-INT(a2)) 
*10000))+” T ”+m<INT<a2>)" aufs Schiff":GO 
TO 1110 

1080 PRINT" Bringe" +STRS ( ROUND( (a2-INT(a2 > ) 
*10000))+" T "+ra(INT(a2))" ins Lager" ; GOTO 
1110 

1090 PRI NT"Repariere Schiff";GOTO 1110 
1100 PRINT”Warte auf Schiff ”+s(a2) 

1110 NEXT 
1120 GOSUB 650 

1130 IF g>0 THEN 180 ELSE t=INKEY$: IF t="" 
THEN 1130 ELSE IF ASC(t><49 OR ASC(t)>57 
THEN 1130 ELSE IF a>ll AND ASC(t)<56 THEN 
1130 ELSE a2=ASC(t)-48:ON a2 GOTO 1140,116 
0,1170,1180,1190,1200,1210,1230,1250 
1140 INFUT#3,"Land”;t:al=0;FOR a3=l TO 10: 
IF LOVERS (t) =LOWER$ (1 $ <a3> ) AND Ka3)>-1 T 
HEN al=a3:a3=10 

1150 NEXT: IF al = 0 THEN PRINT#3,"Kenne ich 
nicht !":GOTO 1120 ELSE a=a+l:d(a(1),a) = 10 
0+al:GOTO 1040 

1160 GOSUB 450:IF a2=0 THEN 1120 ELSE a=a+ 

1:dCaCl),a)=200+al+a2/10000:GOTO 1040 

1170 GOSUB 450:IF a2=0 THEN 1120 ELSE a=a+ 

1:d<a(l),a)=300+al+a2/10000:GOTO 1040 

1180 PRINT#3,"Geben Sie den Artikel ein.”: 

GOSUB 450:IF a2=0 THEN 1120 ELSE a=a+l:d(a 

(1),a)-400+a3+a2/10000:GOTO 1040 

1190 PRINT#3,"Geben Sie den Artikel ein.": 

GOSUB 450:IF a2=0 THEN 1120 ELSE a=a+l:d(a 

(1),a)=500+a3+a2/10000:GOTO 1040 

1200 a=a+l:d<aCl),a)=600:GOTO 1040 

1210 INFUT#3,"Schiff";t;al=0:FOR a3=l TO h 

:IF LOVERS(t)=LOWER$<s(a3)) THEN al=a3:a3= 

h 

1220 NEXT:IF al=0 THEN PRINT#3,"Dieses Sch 

iff existiert nicht !":GOTO 1120 ELSE a=a+ 

1:d(a(l),a)=700+al:GOTO 1040 

1230 IF a>0 THEN LOCATE 1,13+a:PRINT SPACE 

$(39);;d(a(l),a)=0:a=a-l 

1240 GOTO 1040 

1250 PRINT#3,"Wieviel Geld geben Sie dem S 
chiff mit”;:1NPUT#3, "Summe";al;J<a(l),0)=j 
Ca<1>,0)+al:e=e-al:GOSUB 350: GOTO 890 
1260 - 

1270 ' Titelbild 
1280 ' 

1290 MODE 2:INK 0,1:INK l,24:BORDER 1:VIND 
OW#l,40,80,1,11:VINDOV#2,1,80,12,23:WINDOW 
#3,2,38,7,10:VINDOW#4,1,80,12,25:VINDOV#5 
,41,80,14,19:VINDOW#6, 1,80,21,25:WINDOV#7. 
42,80,12,25 

1300 RESTORE 2890:FOR a=l TO 12;READ qCa): 
NEXT:FOR a=l TO 10:READ m(a>, IS(a> : NEXT; RE 
AD 1$ <0):FOR a=l TO 10:FOR al = l TO 10:READ 
b(a,al):NEXT al,a:FOR a=l TO 9:FOR al=a T 
O 9:READ e(a,al):NEXT al.a 

1310 FOR a=0 TO 10:1(a)=-1:NEXT:FOR a=l TO 
10:KEY 127+a,l$(a):READ al,a2:KEY DEF al, 
1,ASC CLOWERS < LEFTS(l$<a), 1))),ASC < UPPERS ( L 
EFTS(1$(a),1))),a+127:KEY DEF a2,l,47+a:NE 
XT:KEY DEF 47,0,32,32,131;' CTRL + Leertas 
te = Madagaskar 

1320 x=472:y=370:1=1:e=4500:s<1)="Ostkutte 
r";k <1> =7:i(1)=70:fi(1)=1:1<1)=2;jb<1,3)=4 
:jb(l,4>=1:jbCl,5)=6:s=1837.06;h=l;i(l)=27 
:1<0)=-l;jl=ROUNDC1870 + RND*40,2) 

1330 PR INT"Datum:":GOSUB 300:PRINT"Ort:":G 
OSUB 330:PRINT"Bargeld:" : GOSUB 350:PRINT"f 
reier Schiffsraum:" : GOSUB 370:PRINT"freier 


Lagerraum;":GOSUB 400:GOSUB 420 
1340 LOCATE 1,6: PRINT STRING$<39, 154) : LOCA 
llimi TE 1,11: PRINT STRINGS (39, 154) : FOR a=l TO 4 
llillill : LOCATE 1,6+a: PRINT CHRS (138) : LOCATE 39,6 + 
||»"ii a: PRINT CHRS (133) : NEXT: LOCATE 1,6: PRINT CH 
,|!i||ii ES (136): LOCATE 39,6: PRINT CHRS(132) 
l|];jj| 1350 LOCATE 1,11: PRINT CHRS (130) : LOCATE 39 

11.. 11" ,11: PRINT CHRS (129) 

7., 'jj 1360 LOCATE 10, 8: PRINT"Beginnen Sie bitte 

1 M": LOCATE 10, 10: PRINT"SHIFT-H = Hilfsrae 

jj l IJ l M nue” : LOCATE 1, 13: PRINT”Sie wurden am 17.04 
!!:!!!!! .1809 in Norddeutschland geborenPRINT" I 

i||!|| n hr Vater betreibt ein Fischunternehmen mit 
11,11'jl maessigem Erfolg." _ 


[54131 


[49371 


[69491 


[64741 
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[3501 
[8831 
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[59271 
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[43501 

[63411 
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[ 1171 
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[31871 

[176743 


1370 PRINT”Leider ist Ihr Vater vor einem 
Monat- im Alter von 59 Jahren verstorben.": 
FRINT”Sie uebernehmen nun das Geschaeft vo 
n Ihrem Vater und bilden sich in Ihrer":PR 
INT"Kindheit ein, dass Sie als Schiffsbaue 
r mehr Chancen haben." 

1380 PRINT'Leider fehlt Ihnen das Anfangsk 
apital !":RETURN 
1390 ' 

1400 ' Zukunft 
1410 ' 

1420 PRINT#3," Beachten Sie die Entwicklun 
g !”:IF e<-100 THEN a3=INT(e/-100):PRINT#3 
, "Sie rauessen”+STR$(a3>+" Monate aussetzen 
,":PRINT#3,"da Sie Schulden haben.”;PRINT# 
3, "Bitte warten’!: FOR ac=l TO a3: GOSUB 1440 
:z=z+Q,01;GOSUB 300:NEXT 

1430 g=0:Z=z+0.01:GOSUB 300:GOSUB 1440:IF 
g>0 THEN 180 ELSE 890 

1440 FOR al=l TO 10: IF l(al)<-l THEN Kal) 
= 1 (al) + l 

1450 IF 11 (al) > 1 THEN 11 (al) =11 (alKlf IF 1 
1(al)<1 THEN 1(al)=1(al)+ROUND <ll(al)*1000 
0):11(al)=0:GOSUB 400 

1460 IF f(a1> >1 THEN f(al)=f(al)-1: IF f(al 
XI THEN h=h+l: f i (h) =al: k (h)=ROUND( f (al)*1 
0000);s Ch)=t2 (al):f(al)=-l:FOR a2=0 TO 10: 
j(h,a2)=0:NEXT'GOSUB 370 
1470 NEXT al:FOR al=l TO h 

1480 IF fi(al)<0 THEN fi(al)=fi(al)+1:i(al 
)=i<al)+10: IF fKal)>-l THEN f i (al) =ROUND ( 
fi(al)*-100) 

1490 IF Kal) >66 THEN PRINT#3,”Das Schiff 
"+s(al)+" ist gesunken,”:PRINT#3,"da es ni 
cht mehr seetuechtig war." 

1500 IF i(al)>66 THEN FOR a3=al TO h-l:fi< 
a3)=fi(a3+l):FOR a2=l TO 10:j(a3,a2)=j(a3+ 
1, a2) : NEXT: i (a3) = Ka3 + l) : k(a3)=k(a3 + l) : s(a 
3)=s(a3+l):NEXT:h=h-l:GOSUB 350 
1510 a2=0: IF fi(alX0 THEN 1690 
1520 IF d(al,1)=—1 THEN 1690 
1530 WH ILE d(al,a2)<l AND a2<12:a2=a2+1:VE 
ND: a3=d(al, a2)-INTCdCal, a2)/100) *100: a.4 = RO 
UND((a3-INT(a3))*10000):a3=INT(a3) : a(0)=fi 
(ai):ON INT(d(al,a2)/100) GOTO 1540,1550,1 
580,1630,1660,1610,1620:d(al,1)=-1:GOTO 16 
90 

1540 fl(al)=-e(MIN(fi(al),a3),MAX(fi(al),a 

3)-1)-a3/100:d(al,a2)=0:GOTO 1690 

1550 IF k(al)+l<a(0> Xa4 THEN a4=k<al>+Ka 

< 0 ) ) 

1560 j(al,0)=j Cal,0)-a4*b(aC0),a3>: j (al,a3 
)=j(al,a3)+a4:k(al)=k(al)-a4:IF k(al)<0 TH 
EN K.a(0) ) = Ka(0) )+k(al) : j Cal, a3)=J (al, a3) 
+k<al) : jb(a(0),a3)=jb(a(0),a3)-k(al):k(al) 
=0 

1570 d(al,a2)=0:GOSUB 500:n(a(0),7)=n(a(0> 
,7)+"Kauf von”+STRS(a4)+” T "+m(a3):G0T0 1 
530 

1580 IF j(al,a3)+jb(a(0),a3Xa4 THEN a4=j ( 
al,a3)+jb(a(0) ,a3) 

1590 j(al,0)=j(al,Ö)+a4*b(a(0),a3):j(al,a3 
>=j(al,a3)-a4;k(a1)=kCal)+a4:a5=j(al,a3): I 
F a5<0 THEN jb(a(0) , a3)=jb(a(0) , a3)+a5: Ka 
C0)) = 1<aC0))+a5:k(al)=k(al)-a5: j(al, a3)=0 
1600 d(al,a2>=0:GOSUB 500:n(a(0),7)=n<a(0) 

, 7) +" Verkauf von”+STRS(a4)+” T ”+m(a.3);GOT 
O 1530 

1610 i(al)=0:d(al,a2)=0:GOSUB 500:n(a(0),7 
)=n(a(0),7)+"Schiff "+s(al)+" reparieren." 

:GOTO 1530 

1620 IF a(0)=fi(a3) THEN dCal,a2)=0:GOTO 1 
530 ELSE 1690 

1630 IF a4>jb(a(0),a3) THEN a4=jb<a(0),a3) 
1640 IF a4>k(al> THEN a4=k(al> 

1650 JbCa(O),a3)=jb(a(0),a3)-a4: j(al, a3)=j 
(al,a3)+a4: 1 Ca(0)) = l(a(0))+a4:k(al>=k(al)- 
a.4; GOSUB 500: n(a(0) , 7)=n(a(0) , 7)+STR$(a4) + 
" T ”+m(a3)+" aufs Schiff";d(al,a2)=0:GOTO 
1530 

1660 IF a4>j(a1,a3) THEN a4=j(al,a3) 

1670 IF a4>1<a<0)) THEN a4=l(a(0)> 

1680 jb(a(0>,a3)=jb(a(0),a3)+a4:j(al,a3)=j 
(al,a3)~a4;l(a(0))=1(a(0))-a4:k(al)=k(al)+ 
a4:GOSUB 500:n(a(0),7)=n(a(0),7)+STR4(a4)+ 
" T "+m(a3)+” ins Lager”:d(al,a2)=0:GOTO 1 
530 

1690 NEXT al:IF INT<z/5)<>z/5 THEN 1710 
1700 FOR al=l TO 10:a3=ROUND(1.5+RND,1):FO 
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R a2~ 1 TO 10: Mal, a2) = INT(b(al, a2)*a3> : NEX 
T a2,al 

1710 GOSUB 370:GOSUB 400: IF z>jl THEN t = " I 
hre Lebenszeit ist abgelaufen.":GOTO 2180 
ELSE RETURN 

1720 ' 

1730 ' Handelspartner 
1740 ' 

1750 CLS#4:GOSUB 270:CLS#1:GOSUB 420: IF FO 
S< #0)<40 THEN PR INT#3,"Es ist kein Schiff 
im Hafen,":FRINT#3,"mit dem Sie reisen koe 
nnten !":FRINT#3,"- Warte auf Eingabe-";GOT 
0 890 

1760 PRINT#3,"Bitte waehlen Sie das Schiff 
■";PRINT#3,"mit dem Sie mitfahren wollen," 

:GOSUB 710;IF g>0 THEN 180 

1770 IF d < a,1) > 0 THEN PRINT#3,"Fuer dieses 
Schiff ist ein":FRINT#3,"Fahrplan aufgest 
eilt.":GOTO 890 

1 80 PRINT#3,"Sie fahren mit dem Schiff:”: 
PRINT#3,s<a):a<l)=a:GOSUB 530:PRINT#3,"Beh 
alten Sie folgendes im Auge:":PRINT#3,"Sei 
t, Abnuetzung des Schiffes, Ort”:o<0>=0:f= 
1:CALL &8F25 

1790 DI:LOCATE 41,17:PRINT SFACES(30):LOCA 
TE 41, 19:PRINT SPACES(30):LOCATE 1,17:PRIN 
."Monatsablauf in Prozent":PLOT 320,126,3: 
DRAVR 202,0:DRAWR 0,18:DRAVR -202,0:DRAVR 
0,-18: PRINT: PRINT”Abnuetzung des Schiffes 
in Prozent”:PLOT 320,94:DRAWR 202,0 
i800 DRAWR 0,18:DRAWR -202,0: DRAWR 0,-18:F 
OR ai=0 TO i(a(1)) STEP 0.5:PLOT 320+al*2, 
94:DRAWR 0, 18: NEXT: FOR al = 0 TO a(0):PLOT 3 
20+a1*2, 126: DRAWR 0, 18:NEXT:WHILE INKEYS<> 
WEND:GOSUB 650: al=REMAIN<0) : EVERY 10,0 
GOSUB 670:GOSUB 570 

1810 IF g >0 THEN a1=KEMAIN<0):PLOT x,y,0;P 
LOTE 1,0: f = 0: fi(ad)) = l: CALL &8F25:G0T0 18 
0 ELSE EI:t=INKEY$:IF t<CHR$C240> THEN 181 
0 ELSE IF 1>0 THEN 1=0:GOSUB 330:GOSUB 400 
:GOSUB 370 

1820 DI a(0)=a(0)+4:GOSUB 570:PLOT x,y,l:P 
LOTR 1,0:ON ASC(t)-239 GOTO 1830.1840,1850 

, 1860 

1830 y=y+2:IF TEST(x,y)=l THEN 1870 ELSE P 

LOT x,y-2,0:PLOTR 1,0:GOTO 1810 

1840 y=y-2:IF TEST(x,y)=l THEN 1870 ELSE F 

LOT x,y+2,0:PLOTR 1,0:GOTO 1810 

1850 x=x-2:IF TEST(x,y)=l THEN 1870 ELSE P 

LOT x+2,y,0:PLOTR 1,0:GOTO 1810 

i960 x=x+2:IF TEST<x,y)=l THEN 1870 ELSE P 

LOT x-2,y,0:PLOTR 1,0:GOTO 1810 

lö?0 IF *=318 THEN x=636:PLOT 320,y,0;PLOT 

E 1,0:GOTO 1510 ELSE IF x=638 THEN x=320:P 

LOT 636,y,0:PLOTR 1,0:GOTO 1810 

1880 RESTORE 3070:1=0:FOR al=l TO 10:READ 

a2,a3,a4,a5:IF x>a2 AND x<a3 THEN IF y>a4 

AND y<ac THEN 1-al:al=10:GOSUB 330 

1890 NEXT:PRINT#3,"Sie sind in ”l$<l):x=x- 

2.¥(t=CHR$C242>)+2*(t=CHR$(243) ) : y=y+ 2 *(t=C 

HR$(240))~2* <t=CHR$(241)) : EI: IF 1 = 0 THEN 1 

930 ELSE fi(a(l))=1:GOSUB 400:GOSUB 330:GO 

SUB 370: IF 1(1X0 THEN 1950 

1900 WHILE INKEY$<>”":WEND:PRINT#3,"Sie ko 

ennen Geschaefte abwickelnLOCATE 1,20:P 

RINT”Die letzten Taetigkeiten:":CLS# 6 :FOR 

a=l TO 7: IF n(l,a)<>"" THEN PRINT# 6 ,LRFTS( 

n(l,a>,4>;RIGHT$<nd,a>,LEN(n(l, a))-7) 

1910 NEXT: WHILE INKEYSKCHRS (240) AND g=0; W 
END:LOCATE 1,20:PR INT SPACES(27):CLS#6:GOS 
UB 650:GOTO 1810 

1920 DI:RESTORE 3080:WHILE t<>LEFT$(1$(1>, 
2):READ t:WEND;READ al,a2:FL0T al,a2,l:REA 
D al,a2:WHILE al <>0 OR a2<>0:DRAWR al,a2:R 
EAD al,a2; WEND: 1(1)=0:RETURN 
1930 PRINT#3,"Wollen Sie das Schiff repari 
eren ?":GOSUB 620:IF t=”n” THEN GOSUB 650: 
(jQTO 1810 ELSE PRI NT#3,” Abnuetzung: ” i (a (1 > 

1940 INPUT#3,"Reparatur in % ”;a3:IF a3>i( 
a(D) THEN 1940 ELSE a ( 0) =a (0) +1 NT (a.3/4 > *4 
: i<a(l)) = i(a(l> >-a3:PRINT*3,"Die Reparatur 
dauerte”INT<a3*0.3)"Tage":GOSUB 570:GOTO 
1790 

1950 IF K 1 X -1 THEN FRINT#3,"Es braucht n 
och Zeit, bis Gras ueber":PRINT#3,"die alt 
e Geschichte gewachsen ist.":GOTO 1810 ELS 
E al = REMAIN<0) : PRINT#3,"Waehlen Sie die Ge 
schenke aus.”:a( 2>=0 


1960 GOSUB 450;IF a2>j(a<1),a3) THEN PRINT 
#3,"So viel ist nicht vorhanden.":PRINT#3, 
C5388I "Waehlen Sie neu!":GOTO 1960 ELSE IF a2=0 
THEN PRINT#3,"Kein Geschenk registriert." 
ELSE j(a(l),a3)=j<a(l),a3)-a2:LOCATE 1,13: 
[ 117 ] PRINT SPACE$C160>:kCa(l))=k(a(l)>+a2 
[12211 1970 a(2)=a(2)+a2*b(1,a3>:a=a(l) : GOSUB 530 

[117] :GOSUB 370:PRINT#3,”Weitere Geschenke ausw 

[118761 aehlen ?":GOSUB 620:IF t="j" THEN GOSUB 65 
0:GOTO 1960 ELSE EVERY 10,0 GOSUB 670 
1980 IF a(2)<81 THEN PRINT#3,"Das Land hat 
mehr Geschenke er-":PRINT#3,"wartet. -Bes 
uchsverbot fuer 3 Jahre-":1(1)=1d>-36:GOS 
[6348] UB 690:n$(1,7)=n(1,7>+"Besuchsverbot fuer 
3 Jahre":GOTO 1810 

1990 PRINT#3,"Sie haben einen neuen Handel 
[5532] spartner" : PRINT#3, "gefunden. " : ld)= 0 ; GOSUB 
1920: GOSUB 690: GOSUB 400: n< 1, 7> =n(1,7)+*'L 
and wird Handelspartner.":GOTO 1930 
[12728] 2000 ' 

2010 ' Warentransfer 
2020 ' 

2030 IF 1=0 THEN PRINT#3,"An diesem Ort ni 
cht moegl ich!": GOTO 890 ELSE IF 1(1X0 THE 
[19178] N FR INT#3,"Hier ist kein Handelsstuetzpunk 
t.":GOTO 890 

2040 GOSUB 270:CLS#1:GOSUB 420:PRINT#3,”Wa 
ehlen Sie das betreffende Schiff”:GOSUB 86 
0:GOSUB 710:IF g>0 THEN 180 
2050 PRINT#3,"Geben Sie den Artikel ein":G 
[15726] OSUB 780:PRINT#3,"1: Transfer von Schiff n 
ach Lager":PRINT#3,"2: Transfer von Lager 
nach Schiff”:IF g>0 THEN 180 
2060 t.= INKEY$: IF t<>"l" THEN 2100 ELSE IF 
1(1)=0 THEN PRINT#3,"Kein Lagerplatz vorha 
nden.”;GOTO 2140 ELSE IF j(a,al>=0 THEN PR 
[9549] INT#3,”Kein ”+m(al>+” auf Schiff vorhanden 
.”:GOTO 2140 

2070 INPUT#3,"Menge”;a2:IF a2>j<a,al> OR a 
2>1(1) THEN 2070 ELSE IF a2=0 THEN FRINT#3 
."Kein Transfer !!!":GOTO 890 
[4505] 2080 GOSUB 69Q: nd , 7) =n< 1,7)+STR$ <a2)+" T 

”+XD<al)+” ins Lager" : j (a, al >=j (a, al)-a2: j b 
d, al>=jb(l, al>+a 2 

[3791] 2090 k(a)=k(a) +a2: ld)=ld) -a2: GOSUB 400:G 

OSUB 370:GOSUB 830;GOTO 2140 
[4866] 2100 IF t<>"2" THEN 2060 ELSE IF jbd,al) = 

0 THEN PRINT#3,"Kein "+m(al)+" im Lager vo 
[3606] rhanden.":GOTO 2140 ELSE IF k(a>=0 THEN PF 
INT#3,"Kein freier Schiffsraum!":GOTO 2140 
[3979] 2110 INPUT#3, "Menge" ; a2: IF a2>Jbd,al> OR 

a2>k(a) THEN 2110 ELSE IF a2=0 THEN PRINT# 
[4720] 3,"Kein Transfer !!!":GOTO 890 

2120 GOSUB 690: nd, 7>=n(l, 7‘)+STRS <a2 >+" T 
"4m<al)+" aufs Schiff":jbd,a1)=jbd,al>-a 
[6933J 2:j<a,al)=j<a,al)+a 2 

2130 k(a)=k(a)-a 2 : 1 ( 11 = 1 ( 1 )+a2:GOSUB 400:G 
OSUB 370:GOSUB 830:GOTO 2140 
tlc421] 2140 PRINT#3,"Transfer beendetGOTO 890 

2150 ' 

2160 ' Spielende 
2170 ' 

2180 LOCATE 40-1NT<LEN(t)/2>,14:PR INT CHR$ 
[16183] <24)+" "+t+" ” 

2190 LOCATE 35,3:PRINT CHR$C24>+" SPIELEND 
E ”+CHR$ <24) 

2200 LOCATE 33,3:PRINT" SPIELENDE "+CHR$<2 
4)+CHR$<7):WHILE INKEYS<>””:WEND:LOCATE 1, 
[4817] 1: MEMORY &AB7F;END 

2210 ' 

2220 ' Wareneinkauf 
[7187] 2230 ' 

2240 IF 1 = 0 THEN PRINT#3,"Kein Handel auf 
dem Ozean moeglich!": GOTO 890 
2250 IF 1(1X0 THEN 890 

[8251] 2260 IF ab+l(l)=0 THEN PRINT#3,"Kein Lager 

platz vorhanden.GOTO 890 ELSE GOSUB 910: 
PRINT#3,"Waehlen Sie den Artikelg=0:CLS 
#4:GOSUB 780:a5=al:IF g >0 THEN 160 ELSE IN 
[8957] PUT#3, "Menge" ; a2: e-e-a2*bd, al) : GOSUB 350: 
GOSUB 860:CLS#4 

2270 IF a2=0 THEN PRINT#3,”Kein Einkauf !! 

!":GOTO 890 

2280 GOSUB 690:nd,7)=n(1,7)+"Kauf von”+ST 
[15914] E$(a2>+" T , '+m<a5) 

2290 PRINT#3,"Sie muessen";STR$(a2)"T unte 
rbringenIF1(1)>0 THEN PRINT#3,"Moechte 
n Sie das Lager benutzen":GOSUB 620:a=0:IF 
t="j" THEN 2310 
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2300 PRINT#3,"Verteilen Sie den Einkauf.”: 
PRINT#3,"Waehlen Sie die Schiffe aus.”:GQS 
UB 710:IF g>0 THEN 180 

2310 INPUT#3,"Teilmenge”;a3: IF a3>a2 THEN 
PRINT#3, "So viel ist nicht vorhanden. GOT 
0 2310 

2320 IF a=0 THEN IF l<lXa3 THEN PRINT#3," 
Achten Sie auf den Lagerraum. ”:GOTO 2310 E 
LSE l<l>=lCl)-a3:jb<l,a5)=jb<1,a5>+a3:GOTO 
2340 

2330 IF k<a> <a3 THEN PRINT#3,"Achten Sie a 
uf die Ladefaehigkeit.":GOTO 2310 ELSE k<a 
)=kCa)-a3:j Ca,a5)=j<a,a5)+a3:GOTO 2340 
2340 a2=a2-a3;GOSUB 860;GOSUB 400:G0SUB 37 
0: IF ab+1<1> >=1 AND a2>0 THEN 2290 
2350 IF a2=0 THEN 890 ELSE PRINT#3,"Kein L 
agerplatz mehr vorhanden.":PRINT#3,"Sie' mu 
ssten”+STR$<a2)+”T "+m<a5)+" verschenken.” 
:PRINT#3,"Verlust:"a2*b(l,a5) : GOTO 890 
2360 ' 

2370 ' Warenverkauf 
2380 ' 

2390 IF 1(1X0 THEN 890 

2400 GOSUB 910:FRINT#3, "Wollen Sie Schiffs 
ladung verkaufen”;GOSUB 620:a=0:g=0:IF t=" 
j" THEN FRINT#3,"Waehlen Sie das entsprech 
ende Schiff":CLS#4:GOSUB 710 
2410 IF g>0 THEN 180 ELSE CLS#4:GOSUB 780: 
IF g>0 THEN 180 

2420 INPUT#3,"Verkauf”;a5:IF a5=0 THEN PRI 
NT#3,"Kein Verkauf !!!":GOTO 890 
2430 IF a>0 THEN 2440 ELSE IF a5>jb(l,al) 
THEN PRINT#3,"Diese Menge ist nicht im Lag 
er”:GOTO 2420 ELSE 1<1)=1C 1 )+ a 5:jb(1,al)=j 
b(1,a1)-a5:GOTO 2450 

2440 IF j(a,al)<a5 THEN PRINT#3,"Diese Men 
ge ist nicht auf dem Schiff":GOTO 2420 ELS 
E k(a)=k(a)+a5:j(a,al)=j Ca, al)-a5 
2450 e=e+b(1,al)*a5:GOSUB 690:n<1,7)=nC1,7 
>+"Verkauf von”+STRSCa5)+" T ”+m<al>: GOSUB 
350:GOSUB 370:GOSUB 400:CLS#4;GOTO 890 
2460 ' 

2470 ' Lager bauen 
2480 ' 

2490 IF 1(1X0 THEN 890 

2500 WHILE INKEYSO”” : WEND: INPUT#3, "Aufnah 
mefaehigkeit";al:INPUT#3,"Bauzeit in Monat 
en";a2 

2510 PRINT#3,"Wollen Sie neue Eingaben mac 
hen":GOSUB 620:IF t="j" THEN 2490 ELSE FRI 
NT#3,"Moechten Sie einen Kostenvoranschlag 
":GOSUB 620:IF t="n" THEN 2530 
2520 a3=INTC(al*18+al'2/a2)*C0.9+RND/5)):P 
RINT#3,”Ein unabhaengiger Schaetzer:"+STR$ 
Ca3>:GOTO 2510 

2530 FRINT#3,"Aufnahmefaehigkeit:"+STR$(al 
>:PRINT#3,"Bauzeit:”+STR$(a2>+" Monate" : PR 
INT#3,"Kann die Errichtung beginnen.": GOSTJ 
B 620:IF t="n” THEN 890 

2540 GOSUB 270:CLS#1:a3=al/4*b<l,4) : PRINT# 
1,"Sie benoetigen”+STR$ Cal/4)+" T Stahl:" + 
STR$Ca3>:e=e-a3:a3=al/4*b(1,3):PRINT#1,"Si 
e benoetigen"+STR$Cal/4)+" T Holz:"+STR$(a 
3);e=e-a3:a3=al*ll:PRINT#1,"Sie benoetigen 
"+STRS(al*7)+" qum Flaeche:"+STR$Ca3>:e=e- 
a3 

2550 GOSUB 350:a3=al*10;PRINT#1,"Arbeiterl 
oehne:”+STRS(a3 ) :e=e-a3:GOSUB 350; 11C1)=a2 
+al/10000:a3=z:z=z+a2/100:GOSUB 300:PRINT# 
1,"Bauende: ”+qC Cz-INTCz))*100)+STRS<INTCz 
)):z=a3:GOSUB 300:GOSUB 650:g=0:WHILE g=0: 
WEND:GOTO 180 
2560 ' 

2570 Schiffe planen 
2580 ' 

2590 IF 1(1X0 THEN PRINT#3, "Hier ist kein 
sicherer Ort.”: GOTO 890 ELSE IF fCDOO T 
HEN 2620 

2600 PRINT#3,"In diesem Hafen besitzen Sie 
keine":PRINT#3,"Reederei. Sie koennten ei 
ne fuer”;PRINT#3,"25000 kaufen.":PRINT#3," 
Kaufen Sie Cj/n>":GOSUB 620:IF t="j” THEN 
PRINT#3,"Sind Sie sicher":GOSUB 620 
2610 IF t="j" THEN e=e-25000:GOSUB 350:fCI 
)=-l:GOSUB 690:nCl,7)=n<1,7> +"Reederei fue 
r 25000 kaufen" ELSE 2640 

2620 IF fClXO THEN 2640 ELSE GOSUB 270: CL 
S#1:LQCATE 40,1:PRINT"Es wird gerade gearb 
eitet;”:a3=z;z=z+INT(f(l))/100;GOSUB 300: L 
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OCATE 40,3:PRINT"Bauende: ”q(Cz-INTCz)>#10 
0)+STR$CINTCz)):z=a3.GOSUB 300:LOCATE 40,4 
2630 PRINT"Ladefaehigkeit:”+STR$CROUNDC CfC 
l>-INT(fU))>*10000)):LOCATE 40,5:PRINT"Sc 
hiffsname: ”;t2(l> 

2640 CLS#4:LOCATE 1,13:PRINT’Es wird auf d 
em schwarzen Schiffsmarkt angeboten:”:PR IN 
T: 

2650 ac=l*INTCz) : FOR a=l TO 5: PRINT STRMa 
)+”. Ladefaehigkeit"+STRSCac MOD (100+a) 
)+” Tonen, Abnuetzung"+STR$(ac/a MOD (30+a 
)+!)+" %, Preis:"+STRSCINTCCac MOD (100+a) 
)/Cac/a MOD (30+a)+l)'0.1*130)):NEXT 
2660 LOCATE 1,25:PRINT CHRS. (24)+" 1 > Schiff 
kaufen . 2) Schiff verkaufen . 3) Schiff 
reparieren . 4) Schiff bauen"+CHR$(24)g= 
0 

2670 PRIHT#3,"Bitte waehlen Sie” 

2680 IF g>0 THEN 180 ELSE t=INKEYS: IF t<"l 
” OR t>"4" THEN 2680 ELSE ON ASCCt)-48 GOT 
O 2690,2720,2770,2800 

2690 INPUT#3,"Welches"; a2: IF a2<l OR a2>5 
THEN 2670 

2700 e=e-INTC Cac MOD C100+a2)>/Cac/a2 MOD 
(30+a2> +1)"0.1*130):GOSUB 350:h=h+l:fi<h> = 
1:k(h>=ac MOD <100+a2):i(h)=ac/a2 MOD (30+ 
a2> + 1;INFUT#3,"Schiffsname";t: s(h)=LEFT$Ct 
,10):FOR a=l TO 10:j(h,a)=0:NEXT 
2710 GOSUB 270;CLS#1: GOSUB 420:GOSUB 370:G 
OTO 2670 

2720 PRINT#3,"Welches Schiff wollen Sie ve 
rkaufen?":INFUT#3,t:al=0:FOR a=l TO h:IF L 
OWER$(s(a))=LOWER$(t) THEN al=a:a=h 
2730 NEXT:IF al=0 THEN PRINT#3,"Dieses Sch 
iff kenne ich nicht!":GOTO 2670 ELSE IF fi 
(al)Ol THEN PRINT#3, "Das Schiff ist nicht 
im Hafen.”:GOTO 2670 

2740 a2=kCal)*90:FOR a=l TO 10:a2=a2+j(al, 
a> *(90+b(1,a)):NEXT:a2=INTCa2*C1-iCal)/200 
) ) : PRINT#3, "Es wird Ihnen"+STR$ Ca2)" gebot, 
en.":PRINT#3,”Verkaufen Sie jetzt auch noc 
h ?":GOSUB 620:IF t=”n" THEN 2670 
2750 e=e+a2:GOSUB 690:nC1,7>=nC1,7)+s(al)+ 
" verkaufen fuer"+STR$Ca2):FOR a=al TO h: f 
i(a)=fi<a+l):FOR a4=l TO 10:jCa,a4)=jCa+1, 
a4):NEXT:i(a)=iCa+1):kCa)=k(a+l):s(a)=s(a+ 
1):NEXT 

2760 h=h-l:GOSUB 350;GOSUB 370:GOSUB 270; C 
LS#1:GOSUB 420:GOTO 2670 

2770 IF h=0 THEN PRINT"Sie besitzen keine 
Schiffe.”:GOTO 2670 

2780 GOSUB 710:IF g>0 THEN 180 ELSE PRINT# 
3, " Abnuetzung: " +STRS < i Ca) > : I NPUT#3, " Pepara. 
tur: ",al: IF al>i<a> THEN PRINT#3,"Keine R 
eparatur”:GOTO 2640 

2790 i<a)=i(a)-al:e=e-al*9:PRINT#3,"Die Re 
paratur kostete"+STK$Ca1*9):GOSUB 350:GOTO 
2640 

2800 IF f(l)=0 THEN PRINT#3,”Sie besitzen 
keine Reederei.":GOTO 2670 ELSE IF f(l)>0 
THEN PRINT#3,"Es wird gerade ein Schiff ge 
baut.":GOTO 2670 

2810 INPUT#3,"Ladefaehigkeit";al:INPUT#3," 
Bauzeit";a2 

2820 a3=l+ABSCal-10*a2)/100:IF al-10*a2>0 
THEN a3=a3*2 

2830 a3=a3*50*al:PRINT#3,”Kostenvoranschlo 
g:"+STR$(a3);PRINT#3,"Neue Eingaben":GOSUB 
620:IF t="j” THEN 2810 
2840 PRINT#3,"Sol1 der Bau beginnen ?”:GOS 
UB 620:IF t=”n” THEN 2670 ELSE INPUT#3,”Sc 
hiffsname” i t:t2(1)=LEFT$ C t, 10) 

2850 e=e-a3:f C1)=a2+a1/10000:GOSUB 350:GOT 
O 2620 
2860 ' 

2870 " Data's 
2880 ' 

2890 DATA Januar,Februar,Maerz,Apri1,Mai,J 
uni,Juli,August,September,Oktober,November 
, Dezember,Gewuerze,Deutschland,Seide,Portu 
gal,Getreide,Elfenbeinkueste,Holz,Madagask 
ar,Stahl,Indien,Salz,China,Kaffee,Australi 
en,Tabak,Brasi1ien,Reis,Mexiko,Porzellan,U 
SA 

2900 DATA unbekannt 

2910 REM ,., fuer Anfangspreise 

2920 DATA 27,28,27,18,19,24,25,37,45,21 

2930 DATA 25,33,32,26,23,24,20,29,44,30 

2940 DATA 26,38,37,23,28,26,16,17,32,26 


[6763] 

[ 6866 ] 

[11565] 

[6920] 

[1760] 

[4700] 

[2723] 

[11491] 

[3278] 

[69581 

[7554] 

[11966] 

(11741] 


[32071 

[3724] 

[9313] 

[5323] 

(9071] 

[3197] 

[2552] 

[6732] 

[7353] 

(3216] 

[117] 

[368] 

[117] 

[17844] 


[1129] 

[887] 

[1353] 
[2149] 
[18771 


1 


80 CRC 


3 '86 Sonderheft 





■ 111111111111111 > 


MiiHimmit 


■ 1111 ■ .......imiiimiimm 


.. 


■ ■miiimiiiiiiMimiMiiiiiimmiMuinim 


• I11) I • 111 Milli III« 11111111 Mf |, 


C1807] 

C1151] 
C1679] 
t1619] 
[1703] 
C1773] 
C1365I 
C687] 
[3775] 


[1753] 
C 2897] 

C1640] 
[7937] 


[10717] 


2950 DATA 23,30,35,26,31,33,19,19,29,30 
2960 DATA 21,26,29,29,30,26,22,21,23,32 
2970 DATA 25,21,34,25,31,24,26,30,19,22 
2980 DATA 26,27,27,31,28,19,23,26,38,41 
2990 DATA 29,33,30,16,36,28,23,18,44,37 
5000 DATA 16,39,32,29,33,23,20,24,39 3? 

3010 DATA 27,27,22,26,20,22,27,26,30,29 
3020 REM .,, fuer Entfernungen 
3030 DATA 1,2,4,6,8,8,3,3,3,1,3,5 7 7 2 2 
2,2, 4,6, 6,2, 1,2,2, 3, 3,4,3,’ 5 J 2,' 2,’ 65732! 

8,2,3,5, 4,2, 1,3 

3040 REM ...fuer Tastenbelegung 
3050 DATA 61,15,27,13,56,14,38,5,35,20,62, 
12,69,4,54,10,38,11,42,3 
3060 REM .., fuer neuen Handelspartner 
3070 DATA 470,474,366,370,454,458,34R,356. 

452,464,308,312,514,526,262,280,532,556,31 
0^334,576,592,330,362,578,622,246,286,408, 

432,260,310,346,376,326,346,342,410,344,36 

3080 DATA De,473,366,0,-4,-3,0,0,4, 1,0, 0, - 
4, 1,0,0,4,0, 0, Po, 457,354,0,-4, 1 , 0 , 0 , 4,0,0, 

El, 454,310,8,0,0,2,-8,0,0,2,8,0,0,2,-6,0,0 
,2,8,0,0,0,Ma,518,266,0,6,8,8,0,0, In,542,3 
42,0,-2,2,0,-2,-2,12,0,0,-2,-14,0,-2,-2,16 

lang wählen Sie das Schiff aus, mit dem Sie mitfahren wol - 
len. Es ist zu beachten, daß dieses Schiff noch keinen 
Fahrplan hat. Alles O.K. - so finden Sie rechts oben eine 
Weltkarte, unten die Anzeigen: Monatsablauf und die Ab¬ 
nützung. Beim Monatsablauf ist zu erwähnen, daß manch¬ 
mal bei einem Monatswechsel eine kurze Zeitverzögerung 
(max. 1 Sekunde) auftritt. Die Abnützung darf niemals 
65 % erreichen, da sonst das Schiff sinkt. In der Weltkarte 
blinkt ein kleiner Punkt, der mit den Cursortasten gesteuert 
wird (COPY besitzt keine Funktion). Sollten Sie an einem 
Land anstoßen (meistens unbekannt), so haben Sie Gele¬ 
genheit, das Schiff zu reparieren (Eingabewindow be¬ 
obachten). Stoßen Sie auf eines der zehn bestimmten Län¬ 
der (siehe Schiffsenden) und Sie haben es bereits entdeckt, 


"""11 

iiiiim 

inni 

iiiiiiii 


mini 

■'Hü 1 


.0,0,-2,-12,0,0,-2,10 Müll, 

TV™ 0. °.-2.-!0. 0,2,-2, 6, 0,-2,-2,-4,0 [10850] » 

, 0, -c,, 2, 0, 0, -6, 1, 0. 0,6, 2, -2, 0,0, Ch, 568,372 

. 2,4,0,4,-2,-10,0,-2,-2,18,0,2,-2,-22, 

0, 2,-2,32,0,0,-2,-34,-0,-4,-2,36,0,0,-2,- 

46,0,2,2,2,0,-6,2,2,-6,38,0,0,-2,-36,0,0,- 

2, 40, 0, 0, -2, -38,0,0,-2,40,0,0,-2,-38, 0, 0 
?n°°^? A I A ~ 2, 42,0,0,-2,-34,0,4,-2,32,0,-2, [11155] 

‘ z4 > 22 > -2, 0, 0, Au, 600,250, 12, 0,2,2 -14 

'i' 0 ' 2 ' 16 ' 0 ' 2 ' 2 ’- 36 ' 0 ^' 2 '^, 0,0, 2,-40, 0,0 
’ 2 ' 40, 0, 0,2, -40, 0,0,2,40,0, 0,2, -40, 0, 0,2,4 

°’ n' o’ ö 32, °’ 2 ' 2 * 28 .0,0,2,-24,0, 0, 2, 24, 0 
.-10, 0, 0, 2, -4, 0, 2,2, 2, 0, 0, 0 

o*10 DATA Br,414,262,2,0,0,2,-4,0,-2,2,6,0 [11075] 

»*,2,-12,0,-2,2, 14,0, 2,2, -14, 0,-2,2,20,0,0 

, 2,-22, 0,0,2,24,0,0,2,-24,0,-2,2,26,0,0,2, 

-2Q, 0,0,2,28,0,2,2,-32,0,-2,2,36,0,0,2,-36 
, 0, 0, 2,36, 0, -6,2,-30, 0,0,2,20, 0,-2, 2,-18 0 
,2,2,14,0,0,2,-10,0,4,2,6,0,0,0 
3120 DATA Me,356,328,18,0,0,2,-20,0,0,2,12 [7729] 

.0,0, 2,-12, 0,0,2, 12, 0,0,2,-12,0,-2, 2, 16,0, 

0,2, 18, 0,0, 2,26,0,0,0, US, 346,346, 38, 0, 2, 2 
. 42,0,0,2,46,0,4,2.-48,0,0,2,48, 0,2,2, -50 
,0,2,2,50,0,2,2, -52, 0,0,0 

so erscheint im unteren Teil des Bildschirms eine Aufli¬ 
stung der Tätigkeiten des Landes. Anderenfalls werden Sie 
autgefordert, Geschenke auszuwählen (Mittelwert 4-6 
Tonnen). 

Haben Sie zu wenig Geschenke ausgewählt, erhalten Sie 
ein Besuchsverbot für drei Jahre. Hatten Sie Erfolg, so wird 
die Fläche des betreffenden Landes ausgefüllt und Ihnen 
die Möglichkeit gegeben, das Schiff zu reparieren. Nun 
können Sie wieder nach Herzenslust durch die Weltmeere 
fahren... 

Wenn Sie bei der Anzeige Ort nicht "unbekannt” lesen, so 
können Sie jederzeit das Hilfsmenue voll ausschöpfen. 

(Richard Krampfel) 


Sie «ollen uns ein Programm zusenden? Folgende Regeln sollten Sie beachten: 


1) Schicken Sie Ihre Programme auf 
Kassette oder Diskette. Dabei mehr¬ 
mals hintereinander abspeichern. 

-) Legen Sie eine ausführliche Pro¬ 
gram mbesch reibu ng hei. aus der ein¬ 
deutig der Sinn und Zweck des Pro¬ 
grammes hervorgeht. Eine Varia¬ 
blenliste ist sehr wichtig, in ihr 
sollten alle im Programm definierten 
Variablen mit ihrer Verwendung auf¬ 
geführt sein. 

Beispiel: nS = Nachname 
g — glücklicher usw. 

-') Wenn Sie gleichzeitig Besitzereines 
Druckers sind, schicken Sie auf je¬ 
den Fall ein Programmlisting mit. 

4) Vergessen Sie Ihren Absender nicht! 
Vollständige Anschrift, wenn möglich 
auch die Telefonnummer, ersparen 
unnötige Verzögerungen bei even¬ 
tuellen Nachfragen unsererseits. 

5) Behalten Sie auf jeden Fall eine Ko¬ 
pie Ihres Programmes, unvorherseh- 
barc Umstände, wie z.B. Bandriß der 


Kassette, werden somit nicht zur 
Katastrophe. 

6) Wenn Sie sogar mehrere Programme 
geschrieben haben und diese veröf¬ 
fentlichen wollen, nehmen Sie bitte 
für jedes Programm eine separate 
Kassette (mehrmals abspeichern!). 

Damit erleichtern Sie unsere Arbeit 
wesentlich und eine schnellere Bear¬ 
beitung wird möglich. 

7) Versehen Sie das Programm mit den 
sehr wichtigen REM-Statements. 
Das fördert nicht nur die Übersicht 
für uns und unsere Leser, sondern 
unterstützt zusätzlich das struktu¬ 
rierte Programmieren. Merke: Auch 
erfahrene Programmierer verwenden 
RFM-Zeilen, das Programm sollte 
schließlich jeder verstehen und an¬ 
wenden können. 

8) Vermeiden Sie möglichst Variablen¬ 
namen. wo leicht 1 und i oderO und o 
verwechselt werden können. Varia¬ 
blen sollten grundsätzlich in Klein¬ 


buchstaben geschrieben werden und 
möglichst verständlich sein. Die 
Variable butter sagt mehr aus. als nur 
bu. 

9) Bieten Sie das Programm niemals 
verschiedenen Verlagen gleichzeitig 
an! Mit der Veröffentlichung und dem 
daraus resultierenden Honorar, ge¬ 
hen die Urheberrechte an den Verlag 
über! Sollte Ihr Programm dann noch 
in einer anderen Zeitschrift ab¬ 
gedruckt werden, liegt ein Verstoß 
gegen das Wettbewerbsrecht vor. 

10) Jedes bei uns ordnungsgemäß einge¬ 
gangene Programm wird ausführlich 
begutachtet und getestet. Sie er¬ 
halten von uns dann umgehend Be¬ 
scheid, ob Ihr Programm veröffent¬ 
licht wird oder nicht. Wenn Sie das 
Programm nach unserer Begutach¬ 
tung zurückhaben wollen, legen Sie 
bitte der Einsendung einen frankier¬ 
ten und adressierten Rückumschlag 
bei. Die Kosten einer eventuellen 
Rücksendung sind in jedem Fall vom 
Einsender zu tragen. 


Pr0grammes hah - Ir - unverzüglich mtt .hnen in Verbindung und be- 

dtalff'zu demProgramm,"**» <*•»• Alter. Tä.igkei., wie und wenn kan, 
Spannung und Neugier «artet Ihre „Schneider CPC Internat!™“^ ^ Theon ^ ***' unerträ ß llcher 

Jarnsen düngen bitte an: DMV - Daten & Medien Verlagsges.mbH, Fuldaer Straße 6, 3440 Eschwege 
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||£ Monstergarten 



Sj! Schon wieder stellt sich ein mutiger Mann der Herausfor- 
!jjj!Ü! derung: Die mächtige Burg "Koth” im Reiche Lythos. be- 
| üjji kannt als Monstergarten, ist ein Ort, mit unermeßlichen 
1,111 Reichtümern und Schätzen. 


I | l ii'j l ^ählt man allerdings die Tage der Vergangenheit, so 
iImIih zählt man auch die tapferen Krieger und mächtigen 
Zauberer, die an diesem Ort des Schreckens ihr Leben ge- 
.II lassen haben. 

11.11.11 „ _ 

'jüj!" Dungeons & Dragons ist ein Spielsystem aus den USA. 
Das Abenteuerspiel "Monstergarten" ist den D & D 
Fantasy-Spielen, die jetzt auch in Europa immer mehr An¬ 
hänger finden, nachempfunden. 

IIjjjjj c 

lljl'l'i Si e sind in den Monstergarten eingedrungen und erfor- 
II""" sehen nun dieses Labyrinth des Schreckens. 

Üigjj Auf dem Weg treffen Sie allerlei eigenartige Geschöpfe. 

Ulli::: Ihre Gegner sind alle von unterschiedlicher Stärke. Die 

1.11.11 Erfahrung wird Sie lehren, wann Sie Ihnen entgegentreten 
lj||] || können. Je mehr magische Gegenstände und Waffen Sie 

an rieh bringen können, um so stärker werden Sie. 

'jliji Diese Stärke benötigen Sie auch dringend, da der Mon¬ 


stergarten Sie erst wieder freiläßt, wenn Sie den "Goldenen 
Schlüssel der Freiheit" erbeutet haben. Selbstverständlich 
wird ein so wertvolles Objekt von einem besonders bösen 
und mächtigen Wesen bewacht. 

Ein weiteres Problem ist die Versorgung mit Lebensmit¬ 
teln und Proviant. Mit ein wenig kaufmännischem Ge¬ 
schick können Sie dieses Problem jedoch leicht bewälti¬ 
gen. Seien Sie jedoch nicht so raffgierig - auch im Monster¬ 
garten kennt man die Inflation. 

Viel Spaß beim Durchstreifen der dunklen modrigen Ge¬ 
wölbe, in denen Monster, Goblins und Hexen auf Sie 
lauern. 

(B. Morell) 


1 '^******^*****************:t:^**^****** )t: ** [27983 


2 '** 


[1043 



** 

3 '** 

M O N 

STER G C11683 

ARTEN 


** 

4 '** 


[1043 

5 '%% 


** 

f uer 

Scneider [6163 

CPC 464 


** 

6 '#* 

von 

Bernard [13913 

Morell 


** 

7 '** 


[1043 



** 


8 't************************************** [27983 
**********xxx*xx***********xxx%x*x*tx 

9 Initialisi C60733 


10 MODE 1: INK 0,0; INK 1,3: INK 2,24: INK 3,2 C32373 
6: BORDES 0 

20 DIM s<40,23),t$<233, mo<283 [8993 

30 mo<13=3:mo<23=3:mo<33=3:mo<43=4:mo<53=5 [136273 
: no<63=6: mo(7)=6: mo(8>=7; mo< 9 3=8: no<103=9; 
mo <113 = 10: mo <123 = 11: mo<133 = 11: mo<14 3=12: mo 

<153 = 12: mo<163=12: mo<173=13: mo<183=13:mo<l 

9 3=14:mo < 20 3=14:mo<213=14:mo<22 3 = 14:mo<233 
=14:mo<243=14 

40 mo<25 3 =15: mo<26 3 = 15: mo<273=16: mo<283 =17 [45043 
:zae=9:staerke=10:prov=50:taler=100 
50 GOSUB 310:GOSUB 70:GOSUB 1530 [22543 

60 GOSUB 790:GOSUB 470:GOSUB 1540:GOSUB 12 [60123 
00:GOSUB 650:x=2: xn=2:y=2:yn=2:GOSUB 2680: 

GOTO 1610 

70 tS<13="Boing,das war die Mauer !" [29023 

80 t$ <23 ="Du bist in deiner Burg" [17833 

90 t$ <3 3="Keine Angst;es ist nur ein Haend [27573 
ler" 


100 t$<43="miau, ich bin Gundels Katze" [25863 

110 t$<53 ="Ich bin die Hexe Gundel" C28903 

120 t$<63="Ein knochenklapperndes Skelett" C35773 
130 t$ <73="Ein schleimiger Goblin" C31973 

140 t$<83="Ich bin Bilbo der Gnom" [28913 

150 t$ <93="Ich bin Frodo der Zwerg" [23773 

160 t$<103 ="Ein feuerspeiender Drache" 136453 

170 tS<113="Ein grausig-grusliger Geist" [42573 
180 t$ <123 ="Ein schwarzer Moench des Teufe [47343 
ls" 

190 t$ <13 3 ="Ich bin die gute Fee" [19153 

200 t$<143 ="Eine tollwuetige Spitzmaus" [30013 
210 t$<153="Ein zerflederter Zombie" [18193 

220 t$<163=”Ein wandelnder Guhl" [2447] 

230 t$<173="Ich,ja ich bin der Teufel pers [69383 
oenlich" 

240 t$ <18 3 ="Du bist am Ziel" [22553 

250 t$<193="Hast du den Schluessel ? [j/n3 [38683 

260 t4<203="Villst Du handeln ? Cj/n3" [40363 

270 t$<213="Kaufen oder verkaufen ? Ck/v3 [32953 
Kurs: " 

280 t$ <22 3 ="Du hast gewonnen" [32223 

290 t$<233 ="Du hast verloren" [21533 

299^'========================== Symbole [36223 

300 RETURN [ 555 ] 

310 SYMBOL AFTER 180 [14363 

320 SYMBOL 180,0,0,6,1,205,222,126,44:'kat [25523 
ze 


330 SYMBOL 181,0,2,4,2,1,93,254,62:'maus [19753 
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340 SYMBOL 182,56,8,104,72,56,104,76,254:' 
hexe 


350 SYMBOL 183,0,62,42,62,28,0,28,0:'skele 
tt 

360 SYMBOL 187,0,24,60,92,126,110,78,28:'g 
nom/zwerg 

370 SYMBOL 188,56,84,254,186,186,56,40,40: 
'guhl/zombie 

380 SYMBOL 189,20,62,106,106,126,66,86,255 
:'teufel 

390 SYMBOL 184,56,124,84,84,124,70,231,255 
: ' geist 

400 SYMBOL 185,96,88,28,62,42,62,99,237:' 
noench 


410 SYMBOL 
6:' drache 
420 SYMBOL 
430 SYMBOL 
440 SYMBOL 
450 SYMBOL 
24 

460 RETURN 
469 ' = = =;= = = 


186,98,239,147,24,28,142,158,12 

194,255,0,0,255,16,16,16,239 
195,187,68,68,199,4,4,4,251 
196,247,8,8,255,225,33,33,222 
200, 108,146,146,69,161,138,100, 


Labyrinth 


aufbauen ========================== 

470 anzahl=0 

480 FOR y=2 TO 22 STEP 2 
490 x=INT<RND*4+2> 

500 laenge=INT<RND*5+5) 

510 FOR xx=x TO x+laenge 

520 s<xx,y> = 0: IF xx+l>=40 THEN 560 

530 IF y<2 OR y>22 THEN 570 

540 NEXT xx 

550 x=x+2 + laenge: GOTO 500 
560 NEXT y 

570 FOR y=3 TO 21 STEP 2 

580 FOR xx=2 TO 39 STEP INT<RND*5+2> 

590 IF s<xx,y-1>=0 AND s<xx,y+l>=0 AND s<x 
x+1,y)=1 AND s(xx-l, y> = l THEN s(xx,y)=0:an 
zahl=anzahl+l 
600 NEXT xx 

610 IF anzahl<7 THEN 580 

620 anzahl = 0: NEXT y 

630 FOR y=2 TO 22:s<40,y>=1;NEXT y 

640 RETURN 

649 '======================== Garten aus 


650 MODE 1 

660 FOR x=l TO 40:FOR y=l TO 23 
670 sprung=l+s<x,y>:LOCATE x,y:IF sprung>3 
THEN sprung=4 

680 ON sprung GOSUB 700,710,720,730 

690 NEXT y:NEXT x:FOR x=l TO 40:s<x,1>=19: 

sCx,23)=19:NEXT x:FOR y=2 TO 22:s<1,y)=19: 

s<40,y)=19:NEXT y;RETURN 

700 PAPER 0:PEN 3:PRINT ” ":RETURN 

710 PAPER 0:PEN 1:PRINT CHR®(194+INT(RND*3 

)):RETURN 


720 PAPER 2:PEN 1:PRINT CHR$<194+INT<RND*3 
)):RETURN 

730 PAPER 0:PEN 2:PRINT CHR®<63>:RETURN 
739 '* ======================== Joyabfrage 


[2463] 

[27683 

[30601 

[3289] 

[2485] 

[2380] 

[2850] 

[3899] 

[1794] 

[2407] 

[1639] 

(2437] 

[555] 

C4220] 

[176] 

[1274] 
[1511] 
[17531 
[ 2001 ] 
(1344] 
[689] 
[464] 

[1997] 

[359] 

[733] 

(2197] 

[3917] 


[464] 

(756] 

[153] 

[1781] 

[555] 

(4734] 


[506] 

[1344] 

[2968] 

[1330] 
[5996] 


[2542] 

[4933] 

[23981 

[2391] 

[4130] 


740 xn=x+ <INKEY<74)>-l)-<INKEY<75> >-l) [2130] 

750 yn=y+ <INKEY(72>>-l>-<INKEY(73>>~1) 11989] 

760 boing=0:IF JQY<0)>=16 THEN boing=l [1404] 

770 RETURN [555] 

779 -======================== Startbild [4377] 


780 MODE 1 [506] 

790 PEN 3:PAPER 0:LOCATE 5,1:PRINT "M O N [6011] 

S T E R";LOCATE 22,1:PRINT "G A R T E N":P 
EN 1 

800 FOR y=14 TO 23:FOR x=7 TO 35 [1877] 

810 LOCATE x,y:PRINT CHR®<194+INT<RND*3)>: (24011 
NEXT x:NEXT y 

820 FOR y=7 TO 13;FOR x=7 TO 13:LOCATE x,y [4946] 

:PRINT CHR$ <194+INT<RND*35):NEXT x:NEXT y 

830 FOR y=6 TO 13:FOR x=17 TO 22:LOCATE x, [5573] 

y:PRINT CHR$<194+INT(KND*3>):NEXT x;NEXT y 

840 FOR y=9 TO 13:FOR x=29 TO 35:LOCATE x, [4581] 

y;PRINT CHR®<194+INT<RND*3>>: NEXT x:NEXT y 

850 PEN 1:PAPER 0:LOCATE 8,7:PRINT” ":LOCA (124321 

TE 10,7:PRINT” ":LOCATE 12.7:PRINT" ”:LOCA 

TE 14,14:PRINT" ":LOCATE 16,14:PRINT" ":LO 

CATE 24,14:PRINT" ":LOCATE 26,14:PRINT" ": 

LOCATE 28,14:PRINT” ”:LOCATE 30,9:PRINT" " 

:LOCATE 32,9:PRINT" ":LOCATE 34,9:PRINT" " 

860 FOR y=20 TO 23:LOCATE 23,y:PRINT " [2885] 

”:NEXT y 

870 LOCATE 8, 10: PRINT" ”: LOCATE 8, 11:PRINT [13147] 


" ":LOCATE 10,11:PRINT" ": LOCATE 10,12:PRI 
NT” ”:LOCATE 12,12:PRINT" ":LOCATE 12,13;F 
RI NT" ”:LOCATE 30,11:PRINT" ":LOCATE 30,12 
:PRINT" ":LOCATE 32,12:PRINT" ":LOCATE 32, 

13:PRINT" ”:LOCATE 34,13:PRINT" ":LOCATE 3 
4, 1 

880 LOCATE 18,7;PRINT" ":LOCATE 18,8:PRINT [5856] 
" ":LOCATE 21,7:PRINT” LOCATE 21,8:PRINT 

890 FOR x=l TO 4:LOCATE 7+2*x,17:PRINT” ": [5677] 
LOCATE 7+2*x, 18: PRINT" ".-NEXT x 

900 MOVE 48*2+1,152*2:FOR x=l TO 3;GOSUB 1 (2331] 
180:NEXT x:DRAWR 15,0 

910 MOVE 104*2+1,88*2:DRAWR 16,0:DRAWR 0,1 (3748] 
5:FOR x=l TO 7:GOSUB 1180:NEXT x 

920 MOVE 224*2+1,136*2:FOR x=l TO 3:G0SUB [30911 
1180:NEXT x:DRAWR 15,0 

930 MOVE 144*2+1,72*2:GOSUB 1180:GOSUB 118 [2447] 
0:DRAWR 15,0 

940 MOVE 200*2+1,72*2:GOSUB 1180:GOSUB 118 [3490] 
0:DRAWR 15,0 

950 MOVE 152*2+1,16*2:DRAWR 0,80:DRAWR -16 (19981 
,0:DRAWR 0,29 

960 MOVE 208*2+1,32:DRAWR 0,80:DRAWR -16,0 [2077] 
:DRAWR 0,29 

970 MOVE 176*2,32:DRAWR 0,80:DRAWR 16,0:DR [2668] 
AWR 0,29 

980 MOVE 232*2,32:DRAWR 0,80;DRAWR 16,0:DR [2173] 


AWR 0,29 

990 MOVE 56*2,128*2:GOSUB 1190 [590] 

1000 MOVE 72*2,120*2:GOSUB 1190 [1209] 

1010 MOVE 88*2,112*2:GOSUB 1190 [1434] 

1020 MOVE 232*2,120*2:GOSUB 1190 [797] 

1030 MOVE 248*2,112*2:GOSUB 1190 [797] 


1040 MOVE 264*2,104*2:GOSUB 1190:MOVE 17*1 [3352] 

6,19*16:GOSUB 1190:MOVE 20*16,19*16:GOSUB 

1190 

1050 FOR x=128 TO 112*2 STEP 32: MOVE x,14 [3180] 


4:GOSUB 1190:NEXT x 

1060 MOVE 48*2+1,32:DRAWR 128*2,0 [2041] 
1070 MOVE 48*2+1,32:DRAWR 0,136*2 [2075] 
1080 MOVE 26*16+1,32:DRAWR 70*2+1,0:DRAWR [2205] 
0,240 

1090 MOVE 16*16+1,88*2:DRAWR 0,72*2 [1514] 
1100 MOVE 22*16-1,88*2:DRAWR 0,72*2 [1324] 
1110 MOVE 13*16,88*2: DRAWR 0,64*2 [1704] 
1120 MOVE 28*16+1,88*2:DRAWR 0,48*2 [1094] 
1130 MOVE 80*2,146*2:DRAWR 0,90 [1300] 


1140 MOVE 30*16,16*16+2:DRAWR 0,90:FOR x=l [6752] 
5*16 TO 23*16 STEP 4:MOVE x,20*16+1:DRAW 1 
9*16,399:NEXT x 

1150 LOCATE 11,3:PAPER 3:PRINT " ”;CHR$<18 [1595] 
5);" ” 

1160 LOCATE 31,5:PAPER 3:PR INT " ";CHR$<18 (1886] 
4);" ” 

1169 '========================= Lauf in [36391 

die Burg ========================== 

1170 PEN 1:PAPER 0:RETURN [1786] 

1180 DRAWR 15,0,3:DRAWR 0,-15:DRAWR 17,0:D [2839] 
RAWR 0,15:RETURN 

1190 DRAWR 17,0:DRAWR 0,-29:DRAWR -17,0:DR [2734] 
AWR 0,29:RETURN 

1200 PEN 3:x=10:y=24 [1434] 

1210 LOCATE 10,24:PRINT CHR®<248+INT<RND*4 (24131 
)> 

1220 GOSUB 740: IF SQC1X64 THEN GOSUB 1360 [2396] 
1230 IF xn=x AND yn=y AND RNDC0.8 THEN 122 [47101 
0 ELSE IF xn>=23 AND xn<=26 AND yn<=24 THE 
N 1250 

1240 IF xn>=5 AND xn<=38 THEN yn=24:G0T0 1 [32291 
250 ELSE 1220 

1250 LOCATE x,y;PRINT ” ":LOCATE xn,yn:PRI [2931] 

NT CHR® <248+1 NT<RND*4)):x=xn:y=yn 

1260 IF y<=21 THEN CLS: RETURN ELSE 1220 [22951 

1269 '========================= Tod == (42461 

1270 SPEED KEY 10,3:' TOD [20581 

1280 CLS:PEN 0:PAPER l;FOR i = l TO 24;LOCAT [5187] 

E 1,i:PRINT STRING®<40,CHR®<194+INT<RND*3> 

));NEXT i:PEN 3: PAPER 0 

1290 FOR i=14 TO 25:FOR ii=8 TO 11:LOCATE (53711 
i.ii:PRINT CHR®<184>:NEXT ii,i 

1300 FOR 1=18 TO 21:FOR ii=2 TO 23:LOCATE [73781 
i.ii:PRINT CHR®<184>:NEXT ii,i:GOSUB 1310: 

GOTO 1330 

1309 '========================= Tadesmel [4259] 

1310 SOUND 1,284,80,15:SOUND 2,568,80,15:S [13598] 
OUND 3,287,80,15:SOUND 1,190,15,15:SOUND 2 

,379,15,15:SOUND 3,193,15,15:SOUND 1,179,1 
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5,15:SOUND 2,358,15,15:SOUND 3,182,15,15:S 
! , !; 0UND 1. 159, 15, 15: SOUND 2,319, 15, 15: SOUND 3 
•iillir ,162,15,15 

E! 1320 SOUND 1,225,60, 15: SOUND 2, 451,60, 15: S [11829] 
ii,in OUND 3,228,60, 15: SOUND 1. 179, 50, 15: SOUND 2 
! j|; !| , 358,50, 15: SOUND 3, 182,50, 15: SOUND 1,253,8 
'"II' 0,15: SOUND 2, 506,80, 15: SOUND 3,256,80, 15: S 
OUND 1,213,100,15:SOUND 2,426,150,15:SOUND 
3,216,100,15:RETURN 

1329 ========= = === ============ Neues Sp [5050] 


1330 LOCATE 1,24:PRINT "Neues Spiel ? [ j [2135] 

/n ] " 

1340 IF INKEY$="j” OR INKEY$=”J" THEN CLEA [5220] 
R: GOTO 10 ELSE IF SQUX64 THEN GOSUB 1360 
1350 IF INKEY$=”n" OR INKEY$="N" THEN END [1773] 
ELSE 1340 

1359 '========================== Begleit [4153] 

!!'*!,j] 13 60 ON sp GOSUB 1390,1400,1410,1420,1430, [4230] 
ii'llij! 1440, 1450, 1460, 1470, 1480, 1490, 1500, 1510 
mÜ:!.i 1370 IF sp= 13 THEN sp=0 [347] 

llüHlj 1380 sp=sp+l: RETURN [1269] 

||„„„ l 3 ^ 0 SOUND 1,60, 40: SOUND 1,63,20: SOUND 1,6 [2883] 
11 0,60: RETURN 

1400 SOUND 1,80, 30: SOUND 1,67, 20; SOUND 1,7 [5558] 
■lil 1 1 5,30: SOUND 1,89, 100: RETURN 

llülli 1410 SOUND 1, 119, 30: SOUND 1,89,20: SOUND 1, (2132] 

ü;;;;;; so,eo: return 

l,M "" 1420 SOUND 1, 119,30: SOUND 1,80,20: SOUND 1. (2401] 
75,60:RETURN 

. 1430 SOUND 1,60,40:SOUND 1,63,20:SOUND 1,6 (2883] 

l |! jü 0,60: RETURN 

Hj;! J 1440 SOUND 1,80,30: SOUND 1,67,20: SOUND 1,7 [ 5558 ] 
'Ul 5,30:SOUND 1,89,100;RETURN 

1450 sound 1 , 119 , 30 : sound 1 , 89 , 20 : sound 1 , [ 2132 ] 

'hijiI' 80,60: RETURN 

ll!|,!|i 1460 SOUND 1,75, 20: SOUND 1,80, 30 : SOUND 1,8 [2521] 
l||!||!; 9,60: RETURN 

'ijj' l 1 1470 SOUND 1,80, 40: SOUND 1,75,30: SOUND 1,6 [5361] 
mm«! 7,30: SOUND 1,60, 40: SOUND 1,60, 40 : RETURN 

1480 SOUND 1,56,20: SOUND 1,60, 30: SOUND 1,6 [4732] 
7,20:SOUND 1,134,20:SOUND 1,67,40:RETURN 
1490 SOUND 1,60,20:SOUND 1,67,30:SOUND 1,7 [4840] 
Uli 5, 20: SOUND 1, 150,20: SOUND 1,75,40: RETURN 
:::ü|! 1500 SOUND 1.67,20: SOUND 1,75,30: SOUND 1,8 (3434] 
!"" 0,100: RETURN 

ü;!!]ü 1510 SOUND 1,60, 40: SOUND 1,63, 20: SOUND 1,6 [3394] 
"ii, 0,30: RETURN 

ifJli 1520 RETURN [555] 

i'imi 1529 '===================== Spielfeldspe [4441] 

ilnllii icher fuellen ===================== 


1530 FOR x=l TO 40:FOR y=l TO 23:s<x,y) = l: 
NEXT y,x:RETURN 
l|,iil 1540 FOR x=2 TO 8 

:\\z 1550 for y =2 to e 

1559 -===================== Burg + ziel 

!m!m 1560 s<x,y>=0:NEXT y, x 

1570 s<3,3) =2: sC3,4) =2: s(4,4) =2: s<4,5)=2: s 

11111.11 <4,6>=2:s(4,7>=2 

a 15Ö0 s(5,3)=2: s(5,4)=2:s<5,5)=2:s(5,6)=2:s 
hi ii i U ( r 7)=? 

Mn ui 1590 g( 6, 4 > =2: s<6,5 ) =2: s<6,6) =2: s < 6, 7 ) =2: s 
llüll! <7,3>=2: s<7,4 > =2 

1600 x=INT<RND*10>+27;y=INT<RND*10)+13:IF 
s(x,y>=0 THEN s<x,y>=18:RETURN ELSE 1600 
i|,|l'|| 1609 '===================== Hauptprogram 

"""" 1610 GOSUB 740: CLS#1: GOSUB 2670: IF prov< = 0 
ll""|j OR staerke< 1 THEN GOTO 1270 

1620 Sprung-l+s<xn, yn) : IF SQC1X64 THEN GO 
jjijljjj SUB 1360 

jüj!" 1630 ON sprung GOTO 1640,1670,1690,1730,17 
40, 1770, 1810, 1840, 1870, 1900, 1930, 1960,2000 
1,1 11 , 2030,2040,2080, 2110, 2140,2170, 1680 

1640 LOCATE x,y:PRINT ” ":LOCATE xn,yn:PRI 
„ NT CHR$(248+INT(RND*4>) 
lliim 1650 IF xOxn OR yOyn THEN zae=zae-l: prov 

11.11.11 =prov-l: GOSUB 2430: IF zae<0 THEN GOSUB 224 
jiiim 0: IF zae<-500 AND INTCRNDX20)=10 THEN GOSU 

ilüllü B 2450 

lj]|j|; 1660 x=xn: y=yn: GOTO 1610 

um!" 1670 IF boing=l THEN GOSUB 2480: SOUND 3,10 
'I' 'ü 00, 20, 15, ,, 2: LOCATE 1,25: PRINT tS(l):GOTO 
lill. 2220 

1680 xn=x: yr.=y: GOTO 1610 
ÜIÜjI! 1690 GOSUB 2480: LOCATE 1,25: PRINT t$<2> 

I" , 1700 GOSUB 2500: LOCATE 1,24: PRINT t$<20> 
, || |!|! 1710 IF INKEY$="J” THEN GOSUB 2520 ELSE IF 


[4013] 

[683] 

[712] 

[5539] 

[418] 

[2310] 

[2187] 

[2582] 

C4461] 

[4378] 

[4826] 

[2368] 

[5742] 

[1865] 
[7141] 


[2015] 

(4380] 


[2278] 

[1926] 

[2375] 

[2209] 


INKEY$="n” THEN 1720 ELSE 1710 
1720 xn=x;yn=y:s<x,y)=0: GOTO 1610 
1730 GOSUB 2480:LOCATE 1,25:PRINT tS(3):G0 
TO 1700 

1740 GOSUB 2480:LOCATE 1,25:PRINT t$(4):st 
=7:ii=180:GOSUB 2620:IF g=l THEN GOTO 1760 
1750 LOCATE 1,25:PRINT "Sie bewachte ein M 
edallion":staerke=staerke+l;kt=l; GOSUB 273 
0:GOTO 1610 

1760 LOCATE 1,25:PRINT "Sie nimmt Dir 20 P 
roviant":prov=prov-20:GOSUB 2740:GOTO 1610 
1770 GOSUB 2480:LOCATE 1,25:PRINT t*C5):st 
=10:ii=182:IF kt=l THEN st=15:GOSUB 2710:G 
OSUB 2480:LOCATE 1,25:PRINT "Sie ist boese 
,weil ihre Katze tot ist" 

1780 GOSUB 2620:IF g=l THEN GOTO 1800 
1790 LOCATE 1,25:PRINT "Sie bewachte eine 
Allraune":staerke=staerke+2:GOSUB 2730:GOT 
O 1610 

1800 LOCATE 1,25:PRINT "Sie nimmt Dir 40 P 
roviant”:prov=prov-40:GOSUB 2740;GOTO 1610 
1810 GOSUB 2480:LOCATE 1,25:PRINT t$(6):st 
=15:ii=183:GOSUB 2620:IF g=l THEN GOTO 183 
0 

1820 LOCATE 1,25:PRINT "Es bewachte 400 Ta 
ler";taler=taler+400:GOSUE 2730:GOTO 1610 
1830 LOCATE 1,25:PRINT "Es nimmt Dir 100 P 
roviant":prov=prov-100:GOSUB 2740:GOTO 161 
0 

1840 GOSUB 2480:LOCATE 1,25:PRINT t$C7>:st 
=11:ii=185:GOSUB 2620:IF g=l THEN GOTO 186 
0 

1850 LOCATE 1,25:PRINT "Er bewachte einen 
Zauberschild”;staerke=staerke+2:GOSUB 2730 
:GOTO 1610 

1860 LOCATE 1,25:PRINT "Er schwaecht Dich" 

:staerke=staerke-l:GOSUB 2740:GOTO 1610 
1870 GOSUB 2480:LOCATE 1,25:PRINT t$(8>:st 
=13:ii=187:GOSUB 2620:IF g=l THEN GOTO 189 
0 

1880 LOCATE 1,25:PRINT "Er bewachte einen 
Sauberhelm" : staerke=staerke+2:GOSUB 2730:G 
OTO 1610 

1890 LOCATE 1,25:PRINT "Er schwaecht Dich" 

:staerke=staerke-l:GOSUB 2740:GOTO 1610 
1900 GOSUB 2480:LOCATE 1,25:PRINT t$C9);st 
=10:ii=187:GOSUB 2620:IF g=l THEN GOTO 192 
0 

1910 LOCATE 1,25:PRINT "Er bewachte einen 
Haufen Edelsteine":taler=taler+300:GOSUB 2 
730:GOTO 1610 

1920 LOCATE 1,25:PRINT "Er nimmt dein ganz 
es Geld":taler=0:GOSUB 2740;GOTO 1610 
1930 GOSUB 2460:LOCATE 1,25:PRINT t$<10>:s 
t=17:ii=186:GOSUB 2620:IF g=l THEN GOTO 19 
50 

1940 LOCATE 1,25:PRINT "Er bewachte eine g 
oldene Ruestung":staerke=staerke+3:GOSUB 2 
730:GOTO 1610 

1950 LOCATE 1,25:PRINT "Er nimmt Dir , . . ” : 
taler=taler-200:prov=prov-100:staerke=stae 
rke-I NT<RNDX2>:GOSUB 2740:GOTO 1610 
1960 GOSUB 2480:LOCATE 1,25:PRINT t$<ll):s 
t=10:ii=184:GOSUB 2620:IF g=l THEN GOTO 19 
90 

1970 LOCATE 1,25:PRINT "Er bewachte 
IF RNDC0.3 THEN PRINT "Ring":staerke=staer 

ke + 1 

1980 prov=prov+50:GOSUB 2730:GOTO 1610 
1990 LOCATE 1,25:PRINT "Er nimmt Dir 60 Pr 
oviant":prov=prov-60:GOSUB 2740:GOTO 1610 
2000 GOSUB 2480:LOCATE 1,25:PRINT t*<12):s 
t=9:ii=185:GOSUB 2620:IF g=l THEN GOTO 202 
0 

2010 LOCATE 1,25:PRINT "Er bewachte 30 Pro 
viant": prov=prov+30:GOSUB 2730:GOTO 1610 
2020 LOCATE 1,25:PRINT "Er nimmt Dir 40 Pr 
oviant”:prov=prov-40:GOSUB 2740:GOTO 1610 
2030 GOSUB 2480:LOCATE 1,25:PRINT t$(13>:G 
OSUB 2500:LOCATE 1,24:PRINT"Sie spendet Mu 
t und Kraft !!•”:staerke=staerke+INT<RND*3 
tl):prov=prov+50:s(xn,yn)=0: LOCATE xn,yn:P 
RINT " ":xn=x:yn=y:GOSUB 2710:GOTO 1610 
2040 GOSUB 2480:LOCATE 1,25:PRINT t$<14):s 
t=6:ii=181:GOSUB 2620:IF g=l THEN GOTO 207 
0 

2050 LOCATE 1,25:PRINT "Sie bewachte 10 Pr 
oviant";:IF RND<0.1 THEN PRINT" und einen 
Ring":staerke=staerke+l 
2060 prov=prov+10:GOSUB 2730:GOTO 1610 
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2070 LOCATE 1,25:PRINT "Sie nimmt Dir 15 P 
rovinnt":prov=prov-15:GOSUB 2740:GOTO 1610 
2080 GOSUB 2480:LOCATE 1,25:PRINT t$(15);s 
t=14:ii=188:GOSUB 2620:IF g=l THEN GOTO 21 
00 

2090 LOCATE 1,25:PRINT "Er bewachte ein Za 
uberschwert”:staerke=staerke+2:GOSUB 2730: 
GOTO 1610 

2100 LOCATE 1,25:PRINT "Er nimmt Dir 80 Pr 
oviant":prov=prov-80:GOSUB 2740:GOTO 1610 
2110 GOSUB 2480:LOCATE 1,25:PRINT t$(16):s 
t= 16:ii=188:GOSUB 2620:IF g=l THEN GOTO 21 
30 

2120 LOCATE 1,25:PRINT "Er bewachte eine Z 
auberaxt”:staerke=staerke+2:GOSUB 2730:GOT 
0 1610 

2130 LOCATE 1,25:PRINT "Er schwaecht Dich” 

:staerke=staerke-2:GOSUB 2740:GOTO 1610 
2140 GOSUB 2480:LOCATE 1,25:PRINT t$(17);s 
t=22:i1=189:GOSUB 2620:IF g=l THEN GOTO 21 
60 

2150 LOCATE 1,25:PRINT "Er bewachte den Sc 
blue-ssel" : schluessel = l: GOSUB 2730: GOTO 161 

0 

2160 LOCATE 1,25:PRINT "Er schwaecht Dich" 

:staerke=staerke-INT(RND*3+1):prov=prov-IN 
T<RND*3 + 1>*50:taler=0: GOTO 1610 


2170 GOSUB 2480:LOCATE 1,25:PRINT t$<18):G 
OSUB 2500:LOCATE 1,24:PRINT t$(19) 

2180 IF INKEY$=”j" THEN 2190 ELSE IF INKEY 
$="n" THEN 2210 ELSE 2180 
2190 IF sohluesse1=1 THEN GOTO 2750 
2200 GOSUB 2500:LOCATE 1,24:PRINT "Du bist 
ein altes Luegenmaul”:xn=x: yn=y: GOSUB 271 
0:GOTO 1610 

2210 GOSUB 2500:LOCATE 1,24;PRINT "Dann rau 
sst Du ihn erst suchen !!!":xn=x:yn=y:GOSU 
B 2710:GOTO 1610 

2219 '===================== Mauer durchb 

2220 staerke=staerke-l:LOCATE xn,yn:PRINT 
CHR$(200):FOR i=l TO 1000 STEP 50:SOUND 3, 
1000+i,1,15,,,30:NEXT i 

2230 s(xn,yn)=0:GOTO 1640 

2239 ''===================== Monster ersc 


2240 ma=ma+l:IF ma>28 THEN ma=29:RETURN 
2250 PEN 2:u=INT(RND*28+1):IF mo<u>=0 THEN 
2250 

2260 LOCATE x,y:ON u GOSUB 2280,2280,2280, 
2290,2300,2310,2310,2320, 2330,2340,2350,23 
60,2360,2370,2370,2370,2380,2380,2390,2390 
,2390,2390,2390,2390,2400,2400,2410,2420 
2270 PEN 3:sCx,y>=mo<u> : mo(u>=0: zae=INT<RN 
D*15)+10:RETURN 

2280 LOCATE x,y:PRINT CHRS(248):RETURN 
2290 LOCATE x,y:PRINT CHRS(180):RETURN 
2300 LOCATE x,y:PRINT CHRS<182):RETURN 
2310 LOCATE x,y:PRINT CHRS<183):RETURN 
2320 LOCATE x,y:PRINT CHRS<185):RETURN 
2330 LOCATE x,y:PRINT CHRS(187):RETURN 
2340 LOCATE x,y:PRINT CHRS<187):RETURN 
2350 LOCATE x,y:PRINT CHRS(186):RETURN 
2360 LOCATE x,y:PRINT CHRS(184):RETURN 
2370 LOCATE x,y:PRINT CHRS(185):RETURN 
2380 LOCATE x,y:PRINT CHRS(42):RETURN 
2390 LOCATE x,y:PRINT CHRS<181):RETURN 
2400 LOCATE x,y:PRINT CHRS(188):RETURN 
2410 LOCATE x,y:PRINT CHRS(188):RETURN 
2420 LOCATE x,y:PRINT CHRS(189):RETURN 

2429 '======================= Schwierigke 

itskontrolle ====================== 

2430 IF taler>5000 THEN CLS#1:LOCATE 1,24: 
PRINT"Monsterinflation" : LOCATE 1,25:PRINT" 
Du erhaeltst 50 Taler Startkapital":GOSUB 
1310:taler=50:RETURN 

2440 IF staerke>20 AND INT(RND*100)=50 THE 
N 2450 ELSE 2460 

2450 INK 3,0,26: INK 0,26,0:SPEED INK 5,2:G 
OSUB 2710: INK 3,26: INK 0,0:CLS#1:LOCATE 1, 
25:PRINT"Ein gewaltiges Monstergewitter !? 
"rGQSUB 2710:staerke=staerke-INT(RND*3+2) 


2460 IF staerke>20 AND INT(RND*30)=1 THEN 
LOCATE xn.yn:GOSUB 710:PEN 3:CLS#1:LOCATE 
1,24:PRINT"Das war der schlaue,graue Mauer 
bauer !?":s<xn,yn)=1:xn=x:yn=y:GOSUB 2710: 
RETURN 
2470 RETURN 

2479 '■======================= Textfenster 

loeschen ========================= 


152431 

137351 
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[25611 
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[120621 


(5551 

[47841 


2480 LOCATE 1,25:PRINT " 

2490 RETURN 

2500 LOCATE 1,24:PRINT ” 

2510 RETURN 

2519 '======================= Handel trsi 

2520 k=INT(RND*7+3):GOSUB 2500:LOCATE 1,24 
:PRINT tS(21);k 

2530 IF INKEY$="k" THEN 2540 ELSE IF INKEY 
S="v" THEN 2580 ELSE 2530 

2540 r=l:GOSUB 2460:LOCATE 1,25:INPUT"Wiev 
iel Proviant";m$: GOTO 2690 

2550 m=VAL(mS):IF taler<m*k THEN GOSUB 266 
0:GOTO 2570 

2560 taler=taler-m*k: prov=prov+m: GOSUB 267 
0:IF s(xn,yn)=3 THEN 2720 
2570 RETURN 

2580 r=2:GOSUB 2480:LOCATE 1,25:INPUT"Wiev 
iel Proviant";mS: GOTO 2690 

2590 m-VAL(m$):IF m>prov THEN GOSUB 2660:G 
OTO 2610 

2600 prov=prov-m: taler=taler+ra*k: GOSUB 267 
0:IF s (xn,yn)=3 THEN 2720 
2610 RETURN 

2619 '======================= Kampf mit d 

2620 FOR i=l TO 10:LOCATE x.y:PRINT CHRS(2 
00).-SOUND 3, 1000,20,15,,,1:LOCATE x,y:PRIN 
T CHRS(248):LOCATE xn,yn:PRINT CHR$(200):S 
OUND 1,2000,20,15,,,1:LOCATE xn.yn:PRINT C 
HRS(ii):NEXT 1 

2630 CLS#1: IF st+INT(RND*5)>staerke+1NT<RN 
D*5> THEN g=l:GOSUB 2500:LOCATE 1,24:PRINT 
tS(23) ELSE g=0:GOSUB 2500:LOCATE 1,24:PR 
INT tS(22) 

2640 RETURN 

2649 '======================- Falsche Ein 

Ie50 GOSUB 2480:LOCATE 1,25:PR INT"Na,Na ni 
cht schummeln !":GOSUB 2710:RETURN 
2660 GOSUB 2480:LOCATE 1,25:PRINT"Kannst D 
u nicht rechnen ???":GOSUB 2710:RETURN 

2669 '======================= Werte ausge 

2670 PEN 2:PAPER 1:LOCATE 9,1:PRINT USING 
"######";prov:LOCATE 23,1:PRINT USING "### 
###";taler:LOCATE 10,23:PRINT USING "###"; 
staerke:PEN 3:PAPER 0:RETURN 

2679 '======================= Beschriftun 

g ================================= 

2680 PEN 2:PAPER 1:LOCATE 1,1:PRINT "Fravi 
ant:”:LOCATE 16,1:PRINT "Taler:":LOCATE 1, 
23:PRINT "Staerke:":PEN 3:PAPER 0:WINDOW # 
1,1,40,24,25:RETURN 

2689 '======================= Eingabe pru 

2690 FOR i = l TG LEN(m$):a$ = MID$(ra$, i , 1): IF 
ASC(aS)<48 OR ASC(aS)>57 THEN GOSUB 2650: 

NEXT i:IF r=l THEN 2540 ELSE 2580 
2700 IF r=l THEN 2550 ELSE 2590 

2709 '======================= Warteschlei 

fe ================================ 

2710 FOR warten=l TO 2000:NEXT warten:RETU 
RN 

2719 '======================= Monster bes 

eitigen ? ========================== 

2720 LOCATE xn.yn:PRINT” ”:s(xn,yn)=0;RETU 
RN 

2730 FOR i=l TO 1000 STEP 10:SOUND 1,1020- 
i,1,10:NEXT i:LOCATE xn.yn:PRINT ” ":s(xn, 
yn) = 0 

2740 xn=x:yn=y:GOSUB 2710:RETURN 

2749 '======================= Ende des Ab 

enteuers ========================== 

2750 GOSUB 780 

2760 PEN 3:LOCATE 1,24:PRINT”Bravo.Du bist 
ein ein guter Abenteurer":GOSUB 1310 
2770 GOSUB 2500:GOTO 1330 

2780 '************************************ 

***X*******X************************* 

2781 '** HIMEM-FREC*") =23012 / [im S 

tartzustand] =17700 ** 

2782 REM-Zeilen haben keinen Einlu 

ss auf das Programm ** 

2783 '** Dateiname r MONSTERG.BAS 

Start mit RUN ** 

2784 '************************************ 
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Schnittstelle 

RS-232 

im Selbstbau 

Diese Bauanleitung ist ein wahrer 
Leckerbissen für alle DFÜ-Fans und 
andere Freunde der seriellen Daten¬ 
übertragung. Der niedrige Preis und 
die universelle Einsetzbarkeit sollten 
Grund genug für die fortgeschrittenen 
Bastelfreaks sein, unverzüglich zum 
Lötkolben zu greifen. 

Wie Sie aus der Schaltungsbeschrei¬ 
bung entnehmen können, ist dieser Bei¬ 
trag für Hardware-Einsteiger wohl we¬ 
niger geeignet; für diese wird jedoch in 
unserer Serie ”SCHNEIDERWARE” 
eine ähnliche serielle Schnittstelle mit 
Grundlagenwissen von der Pike auf vor- 
gesteilt werden. 


Der Selbstkostenpreis dieser seriellen 
Schnittstelle beläuft sich je nach An¬ 
gebot auf ca. 50 - bis 70 - DM. Es 
wurde ein integrierter V-24-Treiber 
mit internen Spannungswandlern 
eingesetzt, wodurch kein zusätzliches 
Netzteil benötigt wird. Baudrate und 
Übertragungsformat werden mit INP- 
und OUT- Befehlen per Software fest¬ 
gelegt. Eine Anpassung an verschie¬ 
dene DFÜ-Programme ist somit un¬ 
problematisch. 

Die Schnittstelle kann im Bereich 
&F0DC - &FFDC adressiert werden, 
wobei für den CPC die Adressen 
&F8DC, &F9DC, &FADC und &FBDC 
vorgesehen sind (siehe auch CPC- 
Handbuch). 

Kern teil der Schaltung ist der 'ACIA” 
MC6850, ein ASYNCHRONER COM¬ 
MUNICATIONS INTERFACE 
ADAPTER aus der 6800-uP-Familie, 
der wegen seines relativ niedrigen 
Preises von ca. 5,- DM auch für Z-80- 
Systeme von Interesse ist. Der Schalt¬ 
kreis besteht aus einem seriellen Sen¬ 
der und Empfänger, je einem Daten- 
registcr, einem Statusregister und 
einem Steuerregister mit einer ent¬ 
sprechenden Steuerlogik. 


Schaltungsbeschreibung 


STEUERREGISTER 

Mit dem im Steuerregister abgelegten 


8-Bit-Wort ''wxxyyyzz” werden alle 
notwendigen Betriebsparameter ein¬ 
gestellt. 

RESET und BAUDRATE ”zz”: 

Bit 0 und Bit 1 legen die Baudrate fest 
bzw. führen einen Reset durch. Die 
Baudrate wird gebildet, indem die 
Taktfrequenz intern durch 64,16 oder 
1 geteilt wird. Bei 19.2 kHz (38.4 kHz), 
wie in der vorliegenden Schaltung, 
sind folgende Baudraten möglich: 

wxxyyylO ->Clk /64 
int.Syn. 

wxxyyyOl ->Clk /16 
int.Syn. 
wxxyyyOO- >Clk/l 
ext.Syn. 

wxxyyyll- >RESET 
ÜBERTRAGUNGSFORMAT ”yyy”: 

Bit 2,3 und 4 bestimmen das Übertra¬ 
gungsformat. Insgesamt können 8 ver¬ 
schiedene Ü-Formate vereinbart wer¬ 
den: 

1. wxx000zz->7-Bit, 2 Stopbits 

gerade Parität 

2. wxx001zz->7-Bit, 2 Stopbits 

ungerade Parität 

3. wxx010zz->7-Bit, 1 Stopbit 

gerade Parität 

4. wxx011zz->7-Bit, 1 Stopbit 

ungerade Parität 

5. wxxl00zz->8-Bit, 2 Stopbits 

6. wxxl01zz->8-Bit, 1 Stopbit 

7. wxxll0zz->8-Bit„l Stopbit 

gerade Parität 

8. wxxllIzz->8-Bit, 1 Stopbit 

ungerade Parität 


300 Bd 
(600 Bd) 
1200 Bd 
(2400 Bd) 
19200 Bd 
(38400 Bd) 
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VERSAIMDSERVICE 


Das ist keine Vortex-Werbung, sondern unser neuer Vortex-Versand-Service. 
Kompetente Hard- und Software sowie Zubehör aus einer Hand! 

Aile Produkte sind von uns g etestet und entsprechen unserem hohen Qualitätsstandard. 


Competition Pro 5000 
Quickshot I 
Quickshot 11 

Qickshot III (mit 3 Griffen) 
Quickshot VII (Joycarii Controller) 


Wie 


■The Boa 


Schneider JY-2 


GRAPHISCHE H ILFSfll T IEL : 


Lightpen 
Graffpsd II 
Graffpad II 
»HX-Mouae 
Graphikmasta 


für 464 u.664: 
für 6128 : 


Disk: 5,25"/3"/3,5": 


54,—OM 
17,90DM 
21,90DM 
27,90DM 
24,90DM. 
49,90DM 
39,50DM 


99, —DM 
278,—DM 
298,— DM 
278,—DM 
79.-/89,-/89,— DM 


VERBINOUNGSKABEL: 

Oruckerkabel: 

für CPC 464,664 (lm Länge) 39,—DH 

für CPC 464,664 (2m Länge) 44,—DM 

für CPC 6128 (lm Länge) 39,—DM 

für CPC 6128 (2m Länge) 44,—DM 

für CPC 6128 (1,5m Länge) 49,—DM 

AkkuatikkopplerkabeKzw.RS 232 u.Modem) 1,5m: 49,50DM 

Anschlußkabel: 2.Floppy an CPC 664: 44,50DM 

Anachlußkabel: 2.Floppy an CPC 6128: 44,50DM 

Floppyverlängerungskabel für alle CPCa (2m): 59,00DM 

Monitorverlangerung für CPC 464: 22,90DM 

Monitorverlingerung für CPC 664 u.6128 28,90DM 

Joystickverlängerung rür 1 Joystick (2m Länge) 14,90DM 

RecorderanschlussfCPC an 5-pol.0IN Buchse) 17,90DM 

Recorderanschluas(CPC an Klinkenbuchse) 17.900M 

CPC-SterBokabel rum Anschluss an HiFl-Anlsge 15,90DM 


5,25" V0RTEX-O1SK DS/0D 96 tpl 
3,5" VORTEX-OISK DS/D0 135 tpl 
3" 0ISK CF-2 5Stk./10Stk: 

3" DISK CF-2DD (für Joyce 8512) 


IDStk. 

lOStk. 


59,—DM 
69,—DM 


52,—DM/99,—0M 
5Stk, 99,—DH 


NÜTZLICHES ZUBEHÖR: 

Pleatikschablone CPC 464:Legen Sie die Schablone auf 
Ihre Tastatur und die ewige 81ätterei im Handbuch ent¬ 
fällt.Folgende Anweisungen befinden eich auf der 
Schablone:Basic AnweiBungen,Ein-/Auogabeanweisungen, 
logische Operationen, mathematische Operationen,Syntax 
Notizen,Baeic Be fehle,Basic Funktionen,Numerische 

Funktionen,Zeichenketten,Farbtabelle und AMSOOS-Befehle 
Preis: 27,90DM 


KabelachellenrSchluss mit dem Kabeisalat unter Ihrem 
Computertisch.Benutzen Sie unsere aelbatklebende Kabel 
schellen. Kein Beschädigen der Tiachoberfläche.In den 
Farben weiea,schwarz und braun lieferbar . 
Verpackungainhalt:16 Stück 8,90DH 


VORTEX-Monitoretändor: Dreh-und schwenkbar in allen 
Richtungen. Für alle 12" Monitor.Solide Ausführung aua 
bruchfestem Kunststoff. Preis: 49,90DM 


DFÜ(Datenfernübertragung) 
VORTEX-VAK-300: 

übertregungageschwindigkait:300 Baud 
Orginate-ZAnswermodus 

Stromversorgung:9V Blockbatterie/externea 

Preis: 


Netzteil 
198,— DM 


VORTEX-RS-232 Schnittstelle: 

Ina RDM eingebundene Software mit RSX-Befehlen unter 
anderem:Einatellung der Parameter,übertragungtsenden 
u. empfangen)von:einzelner Zeichen und Zeichenketten 
(Strings),ASCII-Files mit und ohne Softwaroprotokoll, 
serielle Druckeranateuerung(Plotter)und integriertes 
Terminalprogramm.Unter CP/M:sofortige Einbindung 
mittels der im AMSD0S und VD0S 2.1 enthaltenen Trei¬ 
berroutinen.Ausführlichste deutsche Dokumentation 
(ca.60 Seiten).Zeigen Sie uns eine RS-232 Schnittstel¬ 
le die bei diesem Preis mehr bietet: 298,—DM 

VORTEX-Phono-Set: bestehend aua: 

Akkustikkopler VORTEX-VAK-300,Schnittstelle V0RTEX-RS- 
232,Netzteil zur Stromversorgung,Diekettenaoftware und 
Verbindungakabel.Ihr Vorteil:Alies aus einer Hand,d.h. 
keine Kompatibilitäteprobleme.Nur auapacken anachliaa- 
aen und ''datenfernübertragen 11 . 

SONDERPREIS: 


498,—0M 


MonitorentBpiegelungesprey:Beaeitlgen Sie lästige 
Reflexionen sofort und dauerhaft.Oie Augen werden 
spürbar entlastet.Auch für ander# Anwendungen geeignet 
wie z.8.:Bilderglaa,Autoarmaturon, Fernsehgeräte und 
ähnliche optische Anwendungen.Preis: 29,90DM 


Datenrecorder incl.Anachlusakabel:Sonderpreis 99,—OM 


Suchen Sie spezielle Computerbücher,rufen Sie una an, 
wir haben ein reichhaltiges Angebot ständig auf Lager. 


DISKETTENBOXEN: 


3" Oiekbox für 10 Disketten 
3" Diakbox für 40 Disketten 
dto. 

5,25“ Diskbox für 50 Disketten 
5,25" Diskbox für 85 Disketten 
3,5“ Diskbox für 40 Disketten 
3,5“ Diakbox für 80 Disketten 


abschliessbar 
abschliessbar 
abschlieasbar 


14,80DM 

38,90DM 

53,90DM 

36,90DM 

39,90DM 

38,90DM 

44,9QDM 


PFLEGEMITTEL: 


ORUCKERi 

Typenraddrucker V0RTEX-2000 
Matrix-VORTEX 85(beugleich Eps 
Star NL-10 
Psnaaonic KX-P 1080 
Panasonic KX-P 1090 
Panasonic KX-P 1092 
Citizen LSP-10 
Schneider DMP 2000 


998,--DM 
1199,—DM 
898,—DM 
798,—OM 
698,—0M 
1098,— DM 
948,—DM 
678,—DM 


Farbbänder für: 

NLQ 431,MPS 803,Brother 1009,Centronics GLP: 
Panasonic KX-P 1080,1090,1091,1092,1592: 
Riteman F-t/Ct.DMP 2D00 
Epson SX 80,FX 80,FX 85,MX 70,MX 80, 

MX 82,IBM 5152: 

Joyce-Drucker,Seikosha SP 800, 

SP 1000,Thomson PR90: 

Seikoaha GP 500,GP 550 

Okidata ML 182,ML 183,ML 192,ML 193 


Druckerpapier: 

300 Blatt EDV-Endlo 
1.000 Blatt 240mm x 


r im Tragekarton 
ndlos,holzfrei 60g 


13,90DM 

29,90DM 

28,90DM 


24,80DM 

11,90DM 

19,90DM 


14,90DM 

29,90DM 


Oruckeratänder: 

Papierzuführung wahlweise von 
stabile Ausführung,Nutzflächo: 


8ai Schneider-Produkten aktuelle 
telefonisch erfragen. 


hinten,aehr 
55,—0H 


Tagespreis 


JOYCE—HARDWARE: 


Schneider PCW 8256 Joyce 1 

648,--DM 

Schneider PCW 8512 Joyce plue 2 

298,--DM 

Aufrüatkit für Joyce PCW 8256 euf 512kB 

148,—DM 

FD-2(1 MB-Leufwerk eie 2.Floppy) 


8ildBchirmfilter für Joyce-Monitor 

69,—DM 

Joyce-Drucker Verlängerungakobol 

59(— DM 

JOYCE—SOFTWARE! 


Locoscript(Kurzanleitung mit (Jbungediac) 

29.50DH 

DR-Graph 

199,50DH 

DR-Dtbw 

199,50DM 

ProcpttDeteiverwaltung m. LiBtengenerator) 

69,--DH 

Geschäftslö9ung: 


Adrea3-,Lager-und Fakturierungaprgr. 

199,50DM 

Wordstar,d Basall und MultlplBn ja 

199, —0H 

Quick-Namo(AdreaavarMeltung fürJ.AQO Poroonon)128,--DM 

Weitere Informationen über diese Prograane 

bitte 

anfordern! 



NEU-NEU-NEU-NEU-NEU-NEU-NEU-NEU-NEU-NEU-NEll-NEU-NEU-NEU- 


ORGINAL V0RTEX-A8DECKHAUBEN: 

Schützen Sie nicht nur Ihre Schneider- 

Bonde 

rn auch 

SOFTWARE-SOFTWARE-SOFTWARE 

S0FTWARE- 

SOFTWARE-SOFTWARE- 

Ihre VORTEX-Hardware vor Verschmutzung: 



PAPERBOY 

C/D 

36,—/54,—DM 

Schneider Floppy DDI-1 


16,80DM 

1942 

C/D 

36,— /54,— DM 

VORTEX Floppy Fl-S o.Fl-D 


19,80DM 

LIGHT FORCE 

C/0 

36,--/54,--DM 

Schneider Konsole für 464 u.664 


19,80DM 

BOMB JACK 

C/D 

32, —/4 5, —DM 

Schneider Konsole für 6128 


19,80DM 

OHOST'N GOBLINS 

C/D 

29,90/39,90DM 

VORTEX Floppy Fl-X u. Ml-X 


19,80DM 

LEADER BOARD 

C/D 

39,— /49,— DM 

Schneider Monitor grün 


24,80DM 

GREEN BERET 

C/D 

35,— /45,— DM 

Schneider Monitor color 


26,80DM 

BAT MAN 

C/0 

35,—/45.--DM 

Schneider NLQ 4Q1 


19,80DM 

EQU1N0X 

C/0 

35,— /45,— DM 

Schneider 0MP 2000 


22,BOOM 

KNIGHT GAMES 

C/0 

39, —/59, —DM 

VORTEX Winchesterleufwerk WD-20 


19,BOOM 

HEXENKÜCHE TEIL II 

C/O 

29, —/4 5, —DM 




IMP0SS1BLE MISSION 

C/0 

39,—/59.--DM 

Reinigen Sie Ihr 5 ,25"Laufwerk mit unser 

m spe 

ziellem 

SH0GUN 

C/D 

39,—/59,--DM 

Reinlgungaaet: 



MISSION ELEVATOR 

C/0 

39,—/59,—DM 

5,25''Kopfreinigungadiekette: 


13,90DM 

BEACH HEAD TEIL II 

C/D 

39.--/59.--DM 



GOONIES 

C/D 

39,--/59,—DM 

Kaaeettenreinigungeaet bestehend aus: 



RE8EL PLANET 

C/O 

39, —/59, --DM 

1 Prüfkasaatte,1 Reinigungsmittel für Kepstan- 

u.Gumroi- 

QUESTPR0BE 

C/D 

39.--/S9,—DM 

antrieb.l TonkopfrainigungaflÜsBigkeit 

und 

mehrere 

C0NTERMINAT10N 

C/O 

39,—/56,—0M 

Reinigungsatäbchen,Einführungspraia i 


10,90DM 

INTERNATIONAL KARATE 

C/D 

29,90/39,90DM 




STREET HAWK 

C/0 

39,—/59,—DM 


Seriden Sie mir Ihren Katalog (Schutzgebühr DM 3.-) 

Senden Sie mir umgehend folgende Artikel aus Ihrem Angebot: 

O per Nachnahme O per Euro-Scheck 


Selbstverständlich erhalten Sie über den Vortex-Versand-Service auch alle Vortex-Produkte! 

Händleranfragen erwünscht! 

Achtung Programmierer: Haben Sie 
gute Spiele (keine Adventures) oder 
Utilities, setzen Sie sich mit uns in 
Verbindung. Wir sind ein fairer Partner. 

Telefonische Bestellung von 8-12 Uhr 
und von 13-17 Uhr. 

Außerhalb der Geschäftszeiten nimmt 
unser Anrufbeantworter Ihre Bestel¬ 
lung entgegen. 

vortex Computersysteme GmbH 
Falterstrasse 51-53 
7101 Rein 
Tel. 07131/52065 
Tx 728915 vortxd 


bei Aufträgen bis DM 200.- Versandkostenpauschale DM 5.90 
Absender: 


Gesamtsumme 


DM 


Tel. Nr. 


Unterschrift:_ 

Alle Lieferunaen erfolgen auf Grund unserer Allgemeinen Geschäftsbedingungen 
































































HARDWARE 


11111 114111111111111111 • 11111111111111111111111111 I 


1111II11111<11111II1111111111:11111 


II Mlll III MIM lllllll lllll IIIIMIIM lllll I Mil I I II.. 


ü:;;:Ü Interruptsteuerung ”xx”: 

lllll!' Senderseitig 

lllllllt ° 

II" 1 "' 

iImIIii Mit Bits 5 und 6 wird festgelegt, wie 
sich die Statusregistermeldung "SEN¬ 
DERDATENREGISTER leer” aus- 
wirken soll. Es sind 4 verschiedene 

■l,J Kombinationen möglich: 

liliii'i 

£ 1- w00yyyzz->RTS = L 

l| l il'|l kein Interrupt 

^Olyyyzz >RTS = L 
Inter rupt 
3. wlOyyyzz->RTS = H 

kein Interrupt 

S" 4. wllyyyzz->RTS = L 

kein Interrupt 

Ijiinii Leerzeichenausgabe 

ii,i>'Ii 


Der Ausgang IRQ blieb in der Schal¬ 
tung unberücksichtigt, kann jedoch 
über die Abfrage des Statusregisters 
softwaremäßig behandelt werden. 

INTERRUPTSTEUERUNG: 
Empfängerseitig ”w” 

lxxyyyzz 

Wird dieses Bit gesetzt, erfolgt ein 
Interrupt bei folgenden Statusmel¬ 
dungen: 

1. EMPFÄNGERDATENREGISTER 
voll 

2. EMPFÄNGERDATENREGISTER 
Überl auf 

3. DCD-Eingang L->H 
(Data-Carrier-Detect) 


In de r vorliegenden Schaltung liegt 
DCD fest auf L-Pegel. 


Statusregister 


Das Statusregister kann nur gelesen 
werden. Dieses geschieht im einfach¬ 
sten Fall durch den Basic-Befehl: 

”PRINT INP (Adr.)”. Man erhält eine 
Zahl, die erst nach einer Umwand¬ 
lung in ein 8-Bit-Binärformat eine 
übersichtliche Aussage über die Be¬ 
triebszustände des ACIA zuläßt. 

Bit 0 ->1: 

Datenregister des Empfängers ist voll. 
Das übertragene Wort ist komplett 
und kann im Rechner weiterverarbei¬ 
tet werden. 

Bit 1 ->1: 

Datenregister des Senders ist leer. Es 
kann ein neues Zeichen gesendet 
werden. 

Bit 2 —>1: 

Ein Modem hat signalisiert, daß kein 
Datenträger auf der Ü-Strecke vor¬ 
handen ist. In der vorliegenden 
Schaltung ist jedoch Bit 2 immer 
auf 0. 

Bit 3: Es wird der logische Zustand 
des CTS-Einganges angezeigt. 

Bit 3 ->0: 

Modem signalisiert: "CLEAR TO 
SEND” 

Bit 3 —> 1: 

Sender stoppt die Übertragung von 
Daten 

Bit 4 ->1: 

Synchronisation oder Datenübertra¬ 
gung der Ü-Strecke ist nicht in 
Ordnung. 

Bit 5 ->1: 

Datenüberlauf auf der Empfangs¬ 
strecke. Daten wurden zwar empfan¬ 
gen, aber nicht im Datenregister 
abgespeichert. 

Bit 6 —> 1: 

Es liegt ein Paritätsfehler vor. Die Pa¬ 
rität der empfangenen Bits entspricht 
nicht der vereinbarten Parität. 

Bit 7 ->1: 

Der Interruptausgang ist aktiviert (L- 
Pegel). Dieses Bit wird zurückgesetzt 
entweder durch das Schreiben des 
Senderdatenregisters oder durch das 
Lesen des Empfangsregisters. 


lllll . 

null 


- ir- 


. M II II M II II II M M II II ll II tt II II II H N II II H II II N 
•I II M H II II II II 11 II M M II II II t» II II II II ll U II M II 




Programmierung des ACIA 


Beispiel: 

Adresse F8DCh Steueregister 
Adresse F8DDh Datenregister 



... ist die Schnittstelle sehr kompakt 


il 11111 Auch im Gehäuse . 
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Schaltplan: die komplette Schaltung . Per Adapterkabel ist natürlich auch ein Anschluß an den 6128 möglich. 


Einfachste Befehlssequenz: 

1. OUT &F8DC.3 
Masterreset 

2. Out &F8DC20+1 
Ü-Format vereinbaren: 
kein Interrupt 

8-Bits 
1 Stopbit 
1200 Baud 

3. IF BIN$(INP(&F8DC)) 

AND 2 

THEN OUT &F8DD,’Datum’ 
Abfrage des Statusregisters, ob Sen¬ 
deregister leer, wenn ja, dann Zei¬ 
chen aussenden. 

4. IF BIN$(INP(&F8DC)) 

AND 1 

THEN ’Datum’=INP(&F8DD) 
Abfrage des Statusregisters, ob 
Empfangsregister voll, wenn ja, 
dann Zeichen einiesen. 


Aufbau und Inbetriebnahme 


Die Platine wird bis auf die IC’s nach 
Bestückungsplan bestückt. Die 25- 
polige D-Buchse und der 2-polige 
Schiebeschalter werden von der Löt¬ 
seite aufgelötet (siehe Bestückungs¬ 
plan). Um die mechanische Bela- 
stung des Erweiterungsports mög¬ 


lichst gering zu halten, empfiehlt es 
sich, die D-Buchse mit einem Kabel¬ 
schwanz anzuschließen (Foto). Steht 
keine Federleiste (Slot) in Wire- 
Wrap-Ausführung mit langen An¬ 
schlußstiften zur Verfügung, sollte 
man auf eine minimale Bauteilhöhe 
achten, damit beim Aufstecken der 
Schaltung auf den Erweiterungsbus 
des CPC keine Platzprobleme auftre- 
ten. Zwangsläufig muß dann auch 
auf IC-Sockel verzichtet werden. Die 
IC’s sollten in folgender Reihenfolge 
eingelötet und die einzelnen Schal¬ 
tungsteile separat auf ihre Funktion 
überprüft werden: 

1. IC2 HEF 4060 (Taktgenerator). 

An IC1 Pin 3, 4 muß eine Rechteck¬ 
spannung mit der Frequenz 19.2 kHz 
(Sla) bzw. 38.4 kHz (Slb) anstehen. 

2. IC3 74LS138 (Adressdecoder): 

Pin 9/IC1 muß bei offenen Eingängen 
auf H-Pegel liegen. Legt man Pin 4,5/ 
IC3 auf GND, wechselt Pin 9/IC 1 auf 
L-Pegel. 

3. IC5 74LS85 (Adressdecoder), (4-Bit 
Komparator): 

Pin 14/IC 1 muß auf H-Pegel liegen, 
wenn die 4-Bit-Kombination an Pin 
10,12, 13,15/IC5 der 4-Bit-Kombina¬ 
tion am Schalter S2 entspricht. Bei 
Ungleichheit wechselt Pin 14/IC 1 auf 
L-Pegel. 


4. IC4 MAX 232 oder ICL 232 
(V-24-Treiber): 

An Pin 2/IC4 muß eine Spannung 
von ca. + 10 V und an Pin 6/IC4 eine 
Spannung von ca. -10 V meßbar 
sein. 



II'H' 


i 

| 


hihi 
HIHI 
llllll 
■ l'll 


5. IC1 MC 6850 (ACIA): 

Die Überprüfung dieses ICs kann nur jHj^ 
am Rechner erfolgen. Vorausgehen |||||||| 
sollte jedoch eine sorgfältige optische ii;;;;;; 
Kontrolle der gesamten Platine auf j ]'•]" 






Sonderheft 3 '86 


CPC 91 


HARDWARE 


















































































































































































HARDWARE 


lllllll 


in um 
IIiiiiii 


iiüii:: 




Itllll 


•lill'll 

i""li 

um 

llllll 


II 

II 


'ln' 1 

1 |j I"" 

.lliim 

llllll! 

lllllll 1 

|l"l| 

llllll 


III 

lllllll 


llllll 

llllll 

llllll 




10 - ******************* 

20 ’ * RS-232-TEST * 

30 ’******************* 

40 MODE lsPAPER O: PEN l 
50 PRINT “ RB-232 

60 PRINT M _ 

70 PRINT:PRINTsPRINT 
80 PRINT"Baudrate: 300 Bd C 600 Bd3 a) Sla 

90 PRINT” 1200 Bd C2400 Bdl b> Slb 

100 PRINT:PRINT:INPUT"Welche Baudrate "; B* 

110 IF b*="a" THEN BD=2 : GOTO 130 

120 IF b*="b" THEN BD»1 ELSE GOTO 100 

130 LOCATE 1,18:PRINT" TxD und RxD kurzschliessen 

140 PRINT" RTS und CTS kurzschliessen 

150 PRINT:PR INT 

160 INPUT " <ENTER> ":E* 

170 PAPER 5: PEN 3 
180 OUT fcFBDC.3 
190 OUT StF8DC, 16+BD 
200 CLS 

210 PRINT CHR*<24>;" RS-232Test ";CHR*(24> 

220 IF INP <ScFBDC) AND 8 THEN PRINT"CTS und RTS nicht kurzgeschlossen":END 
230 FOR a=32 TO 255 

240 IF INP (&F8DC) AND 2 THEN OUT &FBDD, a: GOTO 250 ELSE 240 
250 IF INP(&F8DC) AND 1 THEN GOTO 260 ELSE 250 
260 b-INP (&F8DD) 

270 PRINT " "i CHR*(a);CHR* <24> j CHR*(b);CHR*(24);” "; 

280 IF aOb THEN PRINT CHR* (7) ; "Fehler ! "; BIN* (INP <&FBDC) , 8) : END 

290 NEXT 

300 LOCATE 1,1 

310 END 


Listing: ein kleines Testprogramm 


Kurzschlüsse bzw. Unterbrechungen 
der Leiterbahnen und auf Löt¬ 
schlüsse. Zusätzlich kann außerdem 
die Gesamtstromaufnahme gemes¬ 
sen werden, die ca. 100 - 120 mA be¬ 
tragen darf. 


Funktionstest 
der Gesamtschaltung 


Zunächst wird die Schnittstelle 
adressiert. Das kurze Testprogramm 


verwendet die Adresse F8DCh, d.h. 
S2a, b, c werden geschlossen, S2d 
blei bt ge öffnet. Die Leitungen TxD 
und RxD sowie RTS und CTS werden 
an der D-Buchse kurzgeschlossen. 
Der gesamte Zeichensatz wird nun in 
einer Schleife seriel l über TxD gesen¬ 
det und über RxD wieder seriell in 
den Rechner eingelesen. Auf dem 
Bildschirm werden die empfangenen 
Zeichen invers dargestellt und mit 
den ausgesendeten verglichen. Ein 
Aufheben des Kurzschlusses zwi¬ 
schen CTS und RTS bewirkt eine 
Unterbrechung der Übertragung. 


Bauteile-Liste 


IC1 

MC 6850 

IC2 

HEF 4060 B 

IC3 

74LS138 

IC4 

MAX 232 

IC5 

74LS85 

C1.C4.C9 

0,1 uF 

C2 

33pF 

C3 

lOOpF 

C5-C8 

22uF/16V 


(1uF..47uF möglich) 

RI 

l M 

R2 

10k 

R3-R6 

4,7k 

D1-D5 

4148 o.ä. 

Q 

Quarz 4 MHz 

S1 

2xUM Schiebeschalter 

S2 

DIP-Schalter 4pol. 

D-Stecker 

DB-25-S (Buchse) 


25 polig 

Federleiste 

(Slot) 2x25pol. 


RM 2,54 


Bezugsquelle für MAX 232: 

SE-Elektronik, 

3062 Bückeburg 
Postfach 13 

Literaturhinweise 

Datenblatt MC 6850 
Fa. MOTOROLA 
Datenblatt MAX 232 
Fa. SE-Elektronik 
Datenbuch ”LOCMOS-Reihe” 

Fa. Valvo 

TTL-Data-Book 

Fa. Texas Instruments 

(Joachim Schweda/ME) 


Skizze: Bestückung der RS 232 


Das Platinenlayout 
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CPC-Listingservice 
für 464-664-6128 


Wie in jedem Heft, finden Sie auch hier wieder den 
Listingservice, der Ihnen helfen soll, die in unserem Ma¬ 
gazin abgedruckte "Paperware'' in "Software” für Ihren 
Rechner zu verwandeln. Neben den Piktogrammen für 
Kassetten-/Diskettenbetrieb und der Angabe der Lauffä¬ 
higkeit finden Sie die Super-Eintipphilfe "Checksummer” 
Um den Checksummer benutzen zu können, genügt es. 
das Programm einmal aufzurufen; es generiert selb¬ 
ständig den Maschinencode, aktiviert den Checksummer, 
gibt eine Bereitschaftsmeldung aus und löscht sich an¬ 
schließend selbst wieder. Ab jetzt wird jede Eingabe, nach¬ 
dem man ENTER gedrückt hat, mit der Ausgabe einer 
Quersumme quittiert. Beim Eintippen von Programmli- 
stings kann man nun durch den Vergleich der beiden in 
eckigen Klammern stehenden Zahlen feststellen, ob man 


sich vertippt hat und ggf. den Fehler sofort berichtigen. 
Des weiteren hat man die Möglichkeit, mit dem RSX- 
Befehl CHECK.s,z ein Listing mit den dazugehörigen 
Checksummen zu erzeugen. Die Parameter s und z defi¬ 
nieren den Ausgabekanal (s = 0 bis 9) und die Zeilennum¬ 
mer, ab der mit der Ausgabe begonnen werden soll; wird z 
nicht angegeben, so wird an dessen Stelle 1 ange¬ 
nommen. 

Vor dem Druck sollte man mit WIDTH x die maximale 
Breite (x) einer Zeile festlegen. Mit Hilfe der RSX-Befehle 
ON und OFF kann der Cheksummer ein- bzw. ausgeschal¬ 
tet werden. 

Bei der Berechnung der Quersumme werden die Zeilen¬ 
nummer und Leerzeichen überlesen; zwischen Groß- und 
Kleinschreibung wird nur innerhalb zweier Anführungs¬ 
striche unterschieden, da ansonsten die Schreibweise von 
Befehlsworten und Variablennamen keinen Einfluß auf 
die Funktionstüchtigkeit eines Basicprogrammes hat. 

(Thomas Fippl) 
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Version 464 



100 
110 
120 
130 
140 
150 
1 60 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 


REM *** CHECKSUM 464 *** 
MEMORY &A4FF 
FOR a%=&A500 TO &A607 
READ byteS 

POKE a%,VAL(+byte$) 

NEXT 

PRINT 

PRINT"CHECKSUM v2" 

CALL &A500 : ] ON :NEVJ 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


21 , 09 ,a5,01 , 
bc f 00,00,00, 
2a,a5,c3,2f, 
4f,ce,4f,46, 
43,cb,00,00, 
a8,a5,21,27, 
24,a5,28,06, 
06 ,dd,11,3a, 
ed,b0,c9,4f, 
28,08,Od,20, 
18,04,7b,11, 
cl,cd,a3,e7, 
23,5e,23,56 , 
cd,3c,c4,e5, 
ei ,21,a4,ac, 
18,e2,e5,cd, 
98 ,a5,cd,96, 
a5,cd,4e,c3, 
cd,98,a5,cd, 
3a,24,ac,d6, 
c8,cd,45,ei, 
cd,24,a5,f5, 
ba,a5,cd,f6, 
fl,c9,eb,1b, 
2f ,32,23,a5, 
38,04,fe,0a, 
a7,c8,4f,3a, 
20,28,f3,79, 
3a,23,a5,2f, 
23,a5,a7,79, 
ad,07,6f,09, 
cd,5c,c3,3e, 
cd,79,ee,3e, 


0d,a5,c3,d1 
00,18,a5,c3 
a5,c3,43,a5 
c6,43,48,45 
cf ,98 ,aa,c3 
a5,18,03,21 
cd,00,b9,c3 
bd,01,03,00 
cd,00,b9,Od 
ea,dd,7e,02 
01 ,00,cd,a2 
e5,4e,23,46 
ei ,78,bl,c8 
09,e3,cd,63 
cd,7a,a5,ei 
ba,a5,e3,cd 
f2,e3,cd,f6 
ei,7e,a7,c8 
4e,c3,18 , f 5 
08,47,7e,a7 
23,10,f7,c9 
c5,d5,e5,cd 
a5,e1 ,d1,c1 
af,47,67,6f 
13,1a,d6,30 
38,f6,1a, 13 
23,a5,a1,fe 
fe,22,20,07 
32,23,a5,3a 
c4,8a,ff,4f 
18 ,d8,3e,20 
5b,cd,5c,c3 
5d,c3.5c.c3 


Version 664 


100 
110 
1 20 
1 30 
1 40 
150 
1 60 
170 
180 
190 
200 
21 0 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 


REM *** CHECKSUM 664 *** 
MEMORY &A4FF 
FOR a%=&A500 TO &A607 
READ byte$ 

POKE a%,VAL("&"+byte$) 

NEXT 

PRINT 

PRINT"CHECKSUM v2" 

CALL &A500:jON.’NEW 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


21 ,09 
bc, 00 
2a ,a5 
4f ,ce 
43 ,cb 
a8,a5 
24,a5 
4c, cb 
ed, bO 
28,08 
18,04 
cl ,cd 
23,5e 
cd, 75 
e2,21 
18,e2 
98,a5 
a5 ,cd 
cd,98 
3a,09 
c8 ,cd 
cd, 24 
ba,a5 
fl ,c9 
2f ,32 
38,04 
a7 ,c8 
20,28 
3a,23 
23,a5 
ad,07 
cd ,a3 
cd,49 


,a5,01 
, 00,00 
,c3,2f 
,4f,46 
, 00,00 
,21,27 
,28,06 
,11,5b 
,c9,4 f 
,Od,20 
,7b,11 
,69,e8 
,23,56 
,c4,e5 
,8a,ac 
,e5,cd 
,cd,58 
, 9b, c 3 
,a5,cd 
,ac,d6 
, 22,e2 
,a5,f 5 
,cd,f6 
,eb,1b 
, 23,a5 
,fe,0a 
,4 f,3a 
,f 3,79 
,a5,2 f 
,a7,79 
,6f ,09 
,c3,3e 
,ef ,3e 


,0d,a5 
,00,18 
,a5 ,c3 
,c6,43 
,cf ,02 
,a5,18 
,cd,00 
, bd, 01 
,cd,00 
,ea,dd 
,01,00 
,e5,4e 
,e1,78 
,09,e3 
,cd,7a 
,ba,a5 
,f 3,e3 
,e1,7e 
,9b,c3 
,08,47 
,23,10 
,c5,d5 
,a5,e1 
,af ,47 
,13,1a 
,38,f 6 
,23,a5 
,fe,22 
,32,23 
,c4,ab 
, 18,d8 
,5b,cd 
,5d,c3 


,c3,d1 
, a5,c3 
,43,a5 
,48,45 
,ac,c3 
,03,21 
,b9,c3 
,03,00 
,b9,Od 
,7e, 02 
,cd,a9 
,23,46 
,bl,c8 
,cd,59 
,a5,e1 
,e3,cd 
,cd,f6 
,a7,c8 
,18,f5 
,7e,a7 
,f7,c9 
,e5,cd 
,d1,c1 
,67,6f 
,d6,30 
,1a,13 
,a1,fe 
,20,07 
,a5,3a 
,ff ,4f 
,3e,20 
,a3,c3 
,a3,c3 


Version 6128 


1 00 
110 
120 
130 
1 40 
150 
1 60 
1 70 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 


REM *** CHECKSUM 6128 *** 
MEMORY &A4FF 
FOR a%=&A500 TO &A607 
READ byte$ 

POKE a%,VAL("&"+byteS) 

NEXT 

PRINT 

PRINT"CHECKSUM v2" 

CALL &A500:;ON:NEW 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


21 , 09,a5 
bc,00,00 
2a,a5 ,c3 
4f,ce,4f 
43,cb,00 
a8,a5,21 
24 ,a5,28 
49,cb,11 
ed,b0,c9 
28,08,Od 
18,04,7b 
c 1 ,cd,6 4 
23,5e,23 
cd,72,c4 
e2,21 ,8a 
18,e2,e5 
98,a5 ,cd 
a5,cd,98 
cd,98,a5 
3a,09,ac 
c8,cd,1d 
cd,24,a5 
ba,a5,cd 
fl,c9,eb 
2f,32,23 
38,04,fe 
a7,c8,4 f 
20,28,f 3 
3a,23,a5 
23,a5,a7 
ad,07,6f 
cd,a0,c3 
cd,44,ef 


,01,Od,a5 
,00,00,18 
,2 f,a5,c3 
,46,c6,43 
,00,cf ,02 
,27,a5,18 
, 06,cd,00 
, 5e,bd,01 
,4 f,cd,00 
,20,ea,dd 
,11,01 ,00 
,e8,e5,4e 
,56,ei,78 
,e5,09,e3 
,ac,cd,7a 
,cd,ba,a5 
,53,f 3,e3 
,c3,ei,7e 
,cd,98,c3 
,d6,08,47 
,e2,23,10 
, f5,c5,d5 
,f6,a5,e1 
,1b,af,47 
, a5,13,1a 
,0a,38,f 6 
,3a,23,a5 
,79,fe,22 
,2f ,32,23 
,79,c4,ab 
,09,18,d8 
,3e,5b,cd 
,3e,5d,c3 


ii"ii 
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111 ■ 111 
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,c3,d1 
,a5,c3 
, 4 3,a5 
,48,45 
,ac,c3 
,03,21 
,b9,c3 
,03,00 
,b9,Od 
,7e,02 
,cd,a6 
,23,46 
,b1,c8 
,cd,54 
,a5,e1 
,e3,cd 
,cd,f6 
,a7,c8 
, 1 8 , f 5 
,7e,a7 
,f7,c9 
,e5,cd 
, dl ,c 1 
,67,6f 
,d6,30 
,1a,13 
,a1,fe 
,20,07 
,a5,3a 
,ff ,4f 
,3e,20 
,a0,c3 
,a0,c3 
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i 5 !4”-Laufwerkam CRC 464 

ohne Kompromisse 

, u"i r 

Im Sonderheft 2/86 CP/M - Floppys - Hardware wurde 
iijl'li der Anschluß von 5 l/4”-Laufwerke insbcsonders am 
CPC 664 eingehend behandelt. Da nicht jeder Schaltun- 
terlagen des CPC 464 besitzt, wird nachfolgend der 
jj|||||| Umbau genauer beschrieben. Zum Umbau wird aller- 
11 , 11 * 1 , dings das Sonderheft benötigt, da auf die dort veröf- 
III jj fentlichten Änderungen an den Laufwerken bzw. den An¬ 
schlußbelegungen hier nicht eingegangen wird. 

Wer keine Änderung an der Controllerplatine vornehmen 
!!|j|iÜ will, benötigt lediglich ein Kabel nach Skizze A). 

'i|,,lr Ich mache ausdrücklich darauf aufmerksam, daß nach 
||!||j|! Beendigung der Arbeit die Verbindungen auf Durchgang 
||’ mi zu prüfen sind. Wird das Kabel wie auf der Skizze angege- 
ben angefertigt, bringt man die Kabel farblich auf 
11 , 11 * 1 , Deckung, da der selbstgebaute Stiftleistenstecker leider 
il!!li„ verwechselbar ist. 

jjllllll (Als Bezugsquelle für den Stiftleistenstecker wird auf die 
Fa. Conrad Electronic, Hirschau verwiesen.) 

Prinzipiell dürfen alle Verbindungen nur bei ausgeschal¬ 
tetem Gerät, Laufwerk 3" und 5 1/4" vorgenommen wer¬ 
den. Natürlich gilt dies auch bei den anderen CPC's. 

a) Floppylaufwerke einschalten 

b) CPC 464 einschalten 

c) Diskette CP/M 2.2 in das Laufwerk 3" und leere Diskette 


5 1/4” in das 5 l/4”-Laufwerk schieben und nach¬ 
folgende Eingaben vornehmen: 


I CPM 

CP/M 2.2 - Amstrad Consumer Electronics plc 

A>copydisc 

COPYDISC 2.0 

Please insert source disc into drive A and destination disc into 

drive B then press any key:_ 

copying started 

Reading track 1 ((...8) usw. (bis 40)) 

Writing track 1 ((--8) usw. (bis 40)) 

Copying complete 

Do you want to copy another disc(Y/N):_n 

A>b: 

B>era *.* 


Die Diskette im Laufwerk B> wurde bei Übertragung mit 
COPYDISC gleichzeitig formatiert. Wer jetzt den weite¬ 
ren Umbau vornimmt, löscht natürlich die erstellte CP/M- 
Diskette nicht mit >era *.*<. da die Diskette nachher als 
Systemdiskette benutzt wird. 

Sollte sich der CPC gar nicht oder fehlerhaft melden bzw. 
nach dem Lesen von Track 1 bis 8 sich mit - Drive B: write 
fail... melden, dann ist der Stecker verkehrt herum bzw. die 
Kabelverbindung nicht in Ordnung. 


SKIZZE A). 



Stiftleistensfecker 



Floppys feeker3 4 poi E PC 464 

Floppy 3Zoll zum Buchsenstecker B 



Leiterbahn j 4 
u n t e r b rechen 


Schalter 2 X um 

12 3 

y<c 


4 5 6 


Zum weiteren Umbau werden nun die beiden Schrauben 
auf der Rückseite des Controllergehäuses gelöst. Danach 
werden die beiden Leiterbahnen laut Skizze B). unterbro¬ 
chen. An die Punkte 2. 5, 1 und 4 werden ca. 60 mm lange 
isolierte Drähte angelötet, die danach entsprechend mit 
den jeweiligen Punkten am Miniaturschalter verbunden 
werden. Am Schalter werden ebenfalls über Kreuz zwei 
Stück isolierte Drähte angelötet. 
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Auf Skizze C) ist ein Anbauvorschlag zu sehen, wobei 
keine Änderung am Kunststoffgehäuse vorgenommen 
wird. Der Berührungsschutz am Schalter wird aus 
Weißblech (Dosenblech) 0.5 mm angefertigt. Die Größe 
richtet sich je nach Miniaturschalter. Oben läßt man das 
Blech ca. 30 mm länger. Das Blech läßt sich sehr gut 
zusammenlöten. Danach bohrt man ein 3 mm Loch für 
die Befestigung, und je nach Schalter (in der Regel 6 mm) 
ein Loch im oberen Teil. Nun wird das Blech sauber über 
das Kunststoffgehäuse gebogen. Mit einer Flachzange 
etwas nachbiegen, Schalter einbauen und zusammen mit 
dem Kunststoffdeckel des Controllergehäuses verschrau¬ 
ben. 

Mit diesem Umbau ist man in der Lage, je nach >Schalter- 
stellung< das Floppy 5 1/4” als Laufwerk A und das 3” als 
Laufwerk B zu definieren. 

Wählt man das Floppy 5 1/4" als A, wird nun wie beim 3”- 
Floppy die vorher erstellte Systemdiskette 5 1/4” einge¬ 
schoben und mit I cpm gestartet. Anschließend A for- 
mat eingeben und die übrigen 5 l/4”-Disketten forma¬ 
tieren. 

Wer letztgenannten Umbau scheut und sich lediglich das 
Kabel anfertigt, kann sich seine Disketten nur mit >copy- 
disk vom 3"-Laufwerk formatieren. 

(Flans Ziegler) 


SKIZZE CI 



Zweitlaufwerk im Selbstbau 
3”-Floppy für ca. 200,-DM 


„Das darf doch nicht wahr sein!” - das 
war meine Reaktion auf eine Annonce 
in einer Computerzeitschrift, in der von 
einem bekannten Elektronikversand¬ 
haus ein 3”-Diskettenlaufwerk für 
unter 100,- DM angeboten wurde. Ein 
solches fehlte mir gerade noch zur 
Komplettierung des Computerar- 
beitsplatzes. 

Es handelte sich um den Restposten 
eines Hitachi 'HFD 305 S'-3"‘-sing!e- 


sided-Laufwerks. Da das Laufwerk 
mit dem sogenannten "Shugart-Bus” 
ausgestattet ist, ein READY-Signal 
zur Verfügung steht und die 
Kopftransportzeit von Spur zu Spur 
mit 3 mS angegeben wird, sollte der 
Zusammenarbeit mit den CPC's 
nichts mehr im Weg stehen. 

Der Einbau des Laufwerks jedoch ge¬ 
staltet sich recht schwierig, da auf 
dem Markt kaum fertige Gehäuse für 


3”-Laufwerke erhältlich sind. Man 
kann sich behelfen, indem man Ge¬ 
häuse von 3,5”-Floppys verwendet 
und sie an der Frontseite mit einer 
Blende versieht, die die Aussparun- jj|Jjjj 
gen der 3"-Laufwerke aufweist. Eine !||ni!! 
andere Lösung ist der Selbstbau eines ■>■!!!!! 
Gehäuses aus zwei U-förmig geboge- Ijlülü 
nen Gehäusehälften, die mittels Win- 
kelschienen miteinander verbunden , l.i |l l' 
werden. 

Als Netzteil kann ein handelsübli- j“jj|r 
ches dienen, welches mindestens iß"! 
12V/1A und 5V/0,8A liefern können ! Ijjljj 
muß, oder man baut sich nach Skizze ||||||! 
3 ein eigenes Netzteil auf. Ipjl 
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Skizze 3: Schaltbild des Netzteils 


Dabei sollten die angegebenen Daten 
als Mindestwerte aufgefaßt werden, 
da bei einem unter Umständen zu 
knapp dimensionierten Netzteil 
durch Spannungseinbrüche die An¬ 
zahl fehlerhafter Diskettenoperatio¬ 
nen deutlich ansteigen wird. 

Für die Herstellung des Anschlußka¬ 
bels zum Computer wird floppyseitig 
ein 34-poliger ’card-edge’-Stecker be¬ 
nötigt. Den gleichen Stecker braucht 
man zum Anschluß an CPC 464/664; 
für den 6128 wird ein 36-poliger 
'Amphenol'-Stecker benötigt. Diese 
Stecker besorgt man am besten in der 
sogenannten ”Schneidklemm”-Ver- 


sion, da das Löten auf engstem Raum 
nicht jedermanns Sache ist, aber sau¬ 
ber ausgeführt werden muß, da sich 
bei der hohen Datenübertragungs¬ 
rate leicht Fehlfunktionen einschlei¬ 
chen können. Bei der Schneidklemm- 
Ausführung ist die Montage des 
Flachbandkabels recht einfach: Man 
legt das Kabel in die Vertiefungen der 
einen Steckerhälfte und drückt den 
Stecker zunächst mit der Hand 
zusammen, bis die Messer der ande¬ 
ren Steckerhälfte sich in das Kabel 
eingraben. Anschließend wird der 
Stecker in einem Schraubstock voll¬ 
ständig zusammengedrückt. Dabei 


ist darauf zu achten, daß der An¬ 
schluß für den Shugart-Bus am CPC 
spiegelbildlich zu dem des Laufwerks 
ist (siehe Skizze 1 und Computer¬ 
handbuch). Nachdem das Flachband¬ 
kabel montiert ist, muß jetzt das Lauf¬ 
werk noch mit Energie versorgt wer¬ 
den. Die Anschlußpunkte für die 
Spannungsversorgung sind auf der 
Platine des Laufwerkes vor der 
Buchse für die Stromversorgung 
aufgedruckt. 

Nachdem nun das Flachkabel ange¬ 
schlossen wurde (auf seitenrichtigen 
Anschluß achten!), steht einem ersten 
Test des Laufwerks nichts mehr im 
Wege. Das Laufwerk muß sich jedoch 
frei bewegen können (Unterseite be¬ 
achten!). Wenn jetzt das Laufwerk 
angesprochen wird, sollte sich eine 
Reaktion zeigen. Erscheint aber eine 
Fehlermeldung (Drive B: Disc mis- 
sing), so ist wahrscheinlich der Kurz¬ 
schlußstecker. mit dem auf der Platine 
die Laufwerksadresse eingestellt 
wird, nicht richtig gesetzt. Dieser 
Stecker sollte im Anschlußfeld rechts 
oberhalb des Busanschlusses an der 
zweiten Stelle von links sitzen (siehe 
Skizze 2). 

Wenn die ersten Tests positiv verlau¬ 
fen sind, und das Laufwerk B in allen 
Funktionen korrekt arbeitet, kann 
der Einbau in ein passendes Gehäuse 
erfolgen. Hierbei muß wiederum auf 
eine freie Beweglichkeit aller Lauf¬ 
werksteile geachtet werden. 
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Skizze 2: Anschlußseite der Platine 


Nachdem die Stromversorgung und 
das Flachbandkabel angeschlossen 
wurden, steht einem Betrieb als 
Zweitlaufwerk nichts mehr im Weg. 
Wenn ein Metallgehäuse zum Einbau 
des Laufwerks verwendet wird, muß 
dieses mit dem Schutzleiter (grün/ 
gelb) des Netzkabels verbunden wer¬ 
den. 

Das genannte Laufwerk ist u.a. auch 
zu beziehen von der Firma Völkner 
elektronic 3300 Braunschweig 


Bauteileliste Laufwerk: 

Laufwerk Hitachi HFD 305 S 
40 cm Flachbandkabel 34-polig 
Card-edge-Stecker 34-polig für 
Laufwerk 

Card-edge-Stecker 34-polig oder 
Centronics-Stecker 36-polig für Com¬ 
puter 

Stecker 4-pol.für Spannungsversorgung 
Gehäuse für Laufwerk 
Netzteil 12V/1A und 5V/0,8A 


Bauteileliste Netzteil: 

Transformator 2 x 9V/1A 
2 Gleichrichter B40 CI500 
2 Eikos 2200uF/25V 
4 Kondensatoren 100 nF 
Spannungsregler 78S05 
Spannungsregler 78S12 
Sicherungshalter 
Feinsicherung 0,125 A 

Hinweise zum Aufbau des Netzgerätes: 

Die verwendeten Spannungsregler 
sollten zur Wärmeableitung isoliert 
au feiner größeren Metallfläche mon¬ 
tiert werden - die thermische Verbin¬ 
dung sollte mit Wärmeleitpaste 
unterstützt werden. 

Die Ausgangsspannung des Trafos 
sollte 2 x 10 V nicht überschreiten, da 
der 12V-Regler nur eine Eingangs¬ 
spannung von max. 30V verträgt, die 
bei mehr als 2 x 10V im Leerlauf 
schnell überschritten werden kann. 

Ein letzter Hinweis: 

Die Anschlußbelegung der Zweitlauf¬ 
werksbuchse am 6128 ist im Hand¬ 
buch falsch beschriftet; in Skizze 1 ist 
die korrekte Belegung angegeben. 

(W. Wantia/ME) 


664/6128-Emulator 
für den CPC 464 

Nicht nur für CPC 464-Besitzer ist das eine frohe 
Botschaft - auch 664/6128-Programmierer können jetzt 
hemmungslos ihr erweitertes Basic nutzen, ohne die 
Inkompatibilität zum "kleinen Bruder” fürchten zu 
müssen. 


wendet wurde. Deshalb können auf diesen Rechnern ent¬ 
wickelte Programme ohne Probleme von Kassette/ 
Diskette auf den CPC 464 übernommen werden - bei 
Programmen im ASCII-Format funktioniert das auf jeden 
Fall; ansonsten kann in wenigen Fällen eine kleine An¬ 
passung notwendig werden, die gleich noch zur Sprache 
kommt. 

Hier nun die neuen bzw. veränderten Befehle mit ihrer 
Syntax: 





IlMlM 
l llll Hl 




IIIIII 


CLEAR IN PUT: 


Das folgende Programm installiert auf dem CPC 464 weit¬ 
gehend die zusätzlichen Fähigkeiten des Basic 1.1. 
Schreiben Sie zunächst ein kleines Ladeprogramm. 

10 SYMBOL AFTER 256 
20 MEMORY &A1FF 
30 SYMBOL AFTER 240 
40 LOAD ”EMU.BIN” 

50 CALL &A200 

60 PRINT”BASIC 1.1 installiert” 

und speichern Sie es auf Diskette/Kassette ab. Danach 
wird der Basiclader abgetippt und insbesondere bei Be¬ 
nutzung des Checksummers vor dem Start zur Sicherheit 
abgespeichert! Er erzeugt das Maschinenprogramm 
‘EMÜ.BIN", das bei Kassettenbetrieb natürlich direkt 
hinter das Ladeprogramm geschrieben werden muß. Wie 
Sie sehen werden, ist das Programm erstaunlich kurz - es 
beansprucht noch nicht einmal einen Block auf Kassette 
und ist deshalb bei Bedarf sehr schnell geladen. 

Die neuen Befehle wurden nicht per RSX, sondern als 
"echte" Kommandos und Funktionen eingebunden, 
wobei bis auf eine unvermeidliche Ausnahme auch die 
gleiche interne Codierung wie beim CPC 664/6128 ver- 


Dieses Kommando löscht den Tastaturpuffer und verhin¬ 
dert, daß während eines Programmablaufs eingegebene 
Zeichen ungewollt durch INPUT oder INKEYS übernom¬ 
men werden. 

Dieser Befehl löst auf dem CPC 464 einen Syntax-Error 
aus, wenn er in einem 664/6128-Programm vorkommt, 
welches nicht im ASCII-Format (SAVE ”Name”,A) aufge¬ 
zeichnet wurde. Wie gewohnt wird dabei nach der Fehler¬ 
meldung die entsprechende Zeile auf dem Bildschirm edi¬ 
tiert. Drücken Sie in diesem Fall einfach ENTER, um die 
Zeile unverändert wieder einzugeben, und starten Sie das 
Programm neu - der Emulator sorgt automatisch für eine 
Korrektur. Soll ein mit dem CPC 464 plus Emulator ge¬ 
schriebenes Programm, das diesen Befehl enthält, auch 
auf einem CPC 664/6128 laufen, so muß es auf jeden Fall 
im ASCII-Format aufgezeichnet werden. 

COPYCHR$(# Window): 

Diese Funktion liest das Zeichen an der aktuellen Cursor¬ 
position im angegebenen Textfenster: 

10 LOCATE 10,10: PRINT ”X” 

20 LOCATE 10,10:a$=COPYCHR$(#0) 

30 PRINT aS 


IHIII 

null 


1111 h 11 
iiinill 


||iiiin 

PI! 

llll 1 "! 

:ii::ii. 
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11.11.11 CURSOR Schaherl,Schalter2: 

lülln. Damit kann der Cursor während eines Programmablaufs 
||m!Ü! ein- oder ausgeschaltet werden. Die genaue Wirkung der 
ilÜIIÜ beiden Schalter können Sie der folgenden Tabelle ent- 
'Hüll! nehmen: 

„ ,|i| CURSOR 0,0 aus/aus bei IN PUT 
>;|i CURSOR 0,1 aus/ein bei INPUT 
CURSOR 1,0 aus/aus bei INPUT 
j'""" CURSOR 1,1 ein/ein bei INPUT 

DEC$ (numerischer Ausdruck,Formatstring): 

Diese Funktion ist eigentlich auf dem CPC 464 schon vor¬ 
handen, wurde aber im Anleitungsbuch schamhaft ver¬ 
schwiegen, da aufgrund eines Fehlers im Interpreter zu 
Beginn immer zwei offene Klammern gesetzt werden müs¬ 
sen, um einen Syntax-Error zu vermeiden. Mit dem Emu¬ 
lator funktioniert es aber nun richtig: Der Formatstring 
wird wie bei PRINT USTNG angegeben, und der numeri¬ 
sche Ausdruck damit in eine entsprechend formatierte 
Zeichenkette umgewandelt. 

a$=DEC$(PI,”#.###”):PRINT aS 

FILL Farbstift: 

HjJjjJ! Ein schnelles Fill für den CPC 464 wurde bereits in CPC 
International vorgestellt, doch die 664/6128-Version hat 
j.»j! [ ihre besonderen Tücken: Als Umrandung oder Begren- 
zung (Sperrfarbe) gelten nur Linien, die mit dem aktuellen 
'Ijji'll GRAPHICS PEN oder der Füllfarbe gezeichnet wurden, 
'ji Auf diese Weise können sogar mehrfarbige Flächen aus- 
iiij|!i! gemalt werden, aber man muß schon sehr aufpassen, ob 
die Begrenzung wirklich in der gewünschten Weise als 
Sperrfarbe akzeptiert wird. Der Füllvorgang beginnt 
!j/li immer an der aktuellen Position des Grafikcursors, er 
muß also vorher mit MOVE x,y in die Fläche gesetzt 
llillill werden. 

SS! FRAME: 

yjj Synchronisiert die Bildschirmausgabe mit dem Strahl- 
iIÜIIm rücklauf des Monitors und unterstützt die wirklichkeits¬ 
getreue Bewegung von Zeichen. 

M|, GRAPHICS PAPER Farbstift: 

<|jjjj» Bestimmt die Farbe des Grafik-Hintergrundes bei Textaus- 
gaben auf Grafikcursorposition (nach TAG) und bei An- 
,Qi Wendung des MASK-Befehls. 

'ii' 1 " 

ü;!!]ll GRAPHICS PEN Farbstift,Hintergrund: 

;;;S Wählt die Schreibfarbe und den Hintergrundmodus für 
||!!!ü Grafik. Der zweite Parameter hat folgende Bedeutung: 

Hüll! 0 = normal überschreiben 
1 = transparent 

l( jjij! Jeweils einer der beiden Parameter kann entfallen, wenn 
jjjy der Wert unverändert bleiben soll. Die Wirkung des bisher 
auf dem CPC 464 nicht vorhandenen Grafik-Transparent- 
.. modus demonstriert das folgende Beispiel: 

11.11.11 10 MODE 1:TAG:GRAPHICS PAPER 2 
3" 20 GRAPHICS PEN 1,0 

idl'll 30 MOVE 100,100:PRINT ”A”; 

40 GRAPHICS PEN 3,1 
... 50 MOVE 108,108:PRINT ”Z”; 

lllllll 

l|m!i< MASK Bitmaske: 

ilüllü Eine Bitmaske ist ein Wert von 0 - 255, der den Status von 
3Jj jeweils acht benachbarten Bildpunkten beim Zeichnen 
•jW'U einer Linie bestimmt. Damit können beliebig unterbro- 
|| chene bzw. gestrichelte Linien erzeugt werden. Die Zwi- 
lÜy schenräume werden mit der GRAPHICS PAPER-Farbe 
JjjjjJ" gefüllt oder bleiben unverändert, falls der Transpa- 
!|,"i l j| rentmodus für Grafik gewählt wurde. _ 


10 MODE UMASK&Xl 1110000 
20 GRAPHICS PAPER 3 
30 GRAPHICS PEN 1,0 
40 DRAW 0,200 
50 GRAPHICS PEN ,1 
60 DRAW 200,200 

ON BREAK CONT: 

Dieses Kommando ist mit Vorsicht anzuwenden, da es 
den Abbruch eines Programms verhindert. Ein ON 
BREAK STOP innerhalb des Programms setzt den Befehl 
wieder zurück. 

PEN #Window,Farbstift,Hintergrund: 

Wie beim CPC 464, nur kann jetzt mit dem letzten Para¬ 
meter der Hintergrundmodus für Textausgaben gewählt 
werden (0 = normal, 1 = transparent). Von den letzten bei¬ 
den Werten kann wahlweise einer entfallen, also z. B. 
PEN#1„0 

MERGE und CHAIN MERGE "Dateiname”: 

Diese Kommandos funktionieren jetzt auch bei Disket¬ 
tenbetrieb einwandfrei. Die unerwünschte Fehlermel¬ 
dung "EOF met" wird vom Emulator abgefangen. 
Parameterübergabe bei CALL und RSX: 

Bei CALL und RSX-Kommandos können Strings direkt 
ohne Umwege übergeben werden, also z. B. so: 

^ERA ,”TESTPROG.BAK” 

Zusätzliche Grafik-Parameter: 

Alle Grafik-Befehle werden auf das folgende Format 
erweitert: 

KOMMANDO x,y,Farbstift,Schreibmodus 
Das gilt für die Befehle MOVE, MOVER, PLOT, PLOTR, 
DRAW, DRAWR. Der letzte Parameter gibt an, wie die 
Bildpunkte mit dem Hintergrund verknüpft werden 
sollen: 

0 - normal überschreiben 

1 - XOR-Modus 

2 - AND-Modus 

3 - OR-Modus 

Die Verknüpfungsvorschrift wird auf die Farbstiftnum¬ 
mer der Schreibfarbe und des Hintergrundes angewandt. 

Kleine Abstriche: 

Wie bereits beim CLEAR INPUT-Kommando angedeutet, 
kann eine vollständige Kompatibilität zwischen den ver¬ 
schiedenen CPC-Rechnern nicht erreicht werden, da 
einige der Unterschiede unveränderlich in den ROM's ver¬ 
ankert sind. 

Für eine Realisierung der DERR-Funktion wurde bisher 
keine Möglichkeit gefunden. Sie wird zwar vom Emulator 
akzeptiert, gibt aber nur den Wert 0 zurück. Wenn ein Le¬ 
ser Rat weiß, soll er sich melden: Gebraucht wird eine 
Routine, die die Fehlernummer im Akku übergibt. 

Der CPC 664/6128 erlaubt bei dem MASK-Befehl noch 
einen zweiten Parameter, der bestimmt, ob beim Zeichnen 
von Linien der erste Punkt gesetzt werden soll oder nicht, 
was im XOR-Modus mitunter nützlich sein kann. Der 
Emulator akzeptiert zwar diesen zusätzlichen Wert, führt 
das Kommando aber nicht aus, da der programmtechni¬ 
sche Aufwand für eine Realisierung in keinem Verhältnis 
zur Bedeutung des Kommandos steht. 

Die zusätzlichen Betriebssystem-Vektoren (z.B. GRA 
FILL) des 664/6128 konnten leider nicht eingebaut wer¬ 
den, da in diesem Bereich die Arithmetik-Vektoren des 
CPC 464 liegen. Eine Kompatibilität auf Maschinenebene 
ist hier also nicht gewährleistet. 664/6128- Programmierer, 
die auf die Hilfe des Emulators bei Kompatibilitätsproble- 
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Software von Lesern - für Leser 




DIE GOLDENE R 


Schatz 

Als Hubschrauberpilot für besonders brenzlige Einsätze bekommen Sie den Auftrag, durch ein 
verzwicktes Höhlensystem bis zu einem legendären Schatz vorzudringen und mit diesem wieder 
heil zurückzukehren. 

Aber Vorsicht ist geboten, der Schatz ist schwer und die Höhlen verwinkelt und eng. 


Garten Manager 

Als Gärtner hat man es nicht leicht. Versorgen Sie das Grünzeug in Ihrem Garten richtig, dann kann 
gar nichts passieren. Abgesehen davon, daß Sie überall das Unkraut jäten und die Blumen gießen 
müssen, geht fast alles wie von selbst. 

Doch das Unkraut wuchert wie wild und die Blumen brauchen immer mehr Wasser. Haben Sie einen 
grünen Daumen? 


7 Programm®'“' 
CPC464 


Die Bezeichnung 
»Goldene Sieben« 
steht künftig für gute 
Software, die von den Le¬ 
sern unserer Zeitschrift erstellt 
worden ist, und nicht als Listing im 
Heft abgedruckt werden kann, da 
hierfür nur einbegrenzter Raum vorhanden ist, und 
Ihre "Schneider CPC International" kein reines Li- 
stingblättchen sein soll! 

Jeweils sieben tolle Programme sind auf der 
Kassette bzw. Diskette für wenig Geld enthal¬ 
ten. 

Preise: 

Kassettenversion 20,- DM 

3"-Diskettenversion 30,- DM 

zuzüglich 3,- DM Porto/Verpackung 
(Im Ausland 5,- DM) 

Bei Nachnahme kommt noch die 
die Nachnahmegebühr hinzu. 

Ihre Bestellung richten Sie bitte an: 

DMV Verlag 
- Leserservice - 
Postfach 250 
3440 Eschwege 

Bitte Bestellkarte 
benutzenl 


Berg der Monster 

Grauenerregende Ungeheuer ter- 
einen abgelegenen 
i den Bergen. Als 


rorisieren 
Landstrich 

Lehensherr dieser Provinz bekom¬ 
men Sie vom König den Auftrag, 
wieder Ruhe und Ordnung zu 
schaffen. Als Sie sich zu Ihrer 
Mission aufmachen, werden Sie 
von einem Schneesturm überrascht. 

Nach dem Unwetter stehen Sie 
ohne Ausrüstung und Hilfe alleine 
inmitten der Berge. 

Gelingt es Ihnen trotzdem, Ihren 
Auftrag zu erfüllen? 

Pokor 

Kartenspieler hergehört: wollen Sie 
ganze Nächte durchzocken, ohne 
Muttis Haushaltsgeld zu verspie¬ 
len? Bitte sehr, unser Computer¬ 
poker macht's möglich. Gewinnen 
können Sie zwarnichts, abertrai- 
nieren läßt sich mit diesem Spiel 
umso besser. 

Super Chance 

Verwandeln Sie Ihren CPC in einen 
einarmigen Banditen. Mit dieser 
Spielhallensimulation holen Sie 
sich ein Stück Las Vegas in Ihr 
Wohnzimmer. Mit Jackpot und 
Superchance. 

Captaln Starships Test 

Begleiten Sie Captain Starlight 
auf seiner Weltraumexpedition. 

Doch zuerst müssen Sie beweisen, 
daß Sie die notwendigen Quali¬ 
täten mitbringen. Ein kniffeliger 
Intelligenz- und Reaktionstest steht 
Ihnen bevor. Sind Sie in der Lage 
zu bestehen? 

Oil Willi 

Sie sind der nette Heizölhändler, 
deralle Bewohner seines Stadtvier¬ 
tels mit Heizöl versorgt. Aber die 
meisten Bestellungen sind sehr eilig. 

Und wenn Sie nicht schnell genug 
liefern, so bestellen sich die Leute 
ihr Ol eben anderswo. Da kann 
man schon ganz schön ins Schwit¬ 
zen geraten. 


^ Auch weiterhin ist die ''Goldene 7" Nr. 1 mit den Programmen Secret of Wizard, 

, Turlen, Zodora, 3-D Labyrinth, Die alte Burg, Space-Race und Galaxis erhältlich. 
& Bitte benutzen Sie die Bestellkarte! 
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11 ,11,11 men hoffen und Assemblerroutinen in ihr Programm ein- 
lilllui binden wollen, sollten noch die folgenden Tatsachen 
||miii berücksichtigen: 

ilülli! - Der Emulator belegt den Speicherbereich ab &A200 

- Folgende Indirections wurden über neue Routinen 
geleitet: 

GRA LINE &BDE2 
SCR WRITE &BDE8 

- Die Vektoren TXT SET PEN (&BB90), GRA SET PEN 

I; 1 " 1 " (&BBDE), GRA MOVE ABSOLUTE (&BBC0) und 
!!/|| GRA MOVE RELATIVE (&BBC3) wurden verbogen, 
. . um die neue Parameterübergabe zu realisieren. Sie 

können trotzdem in gewohnter Weise benutzt werden, 
solange das obere ROM beim Aufruf ausgeschaltet ist. 


570 Block 3 
580 DATA 18665 

590 DATA 59,D9,FB,C0,El, E3,CD,55 
600 DATA DD,DC,0E,A3,E3,E9,CD,4B 
610 DATA C2,CD,D8,A5,F3,D9,CB,5 9 
620 DATA D9, FB,C0,CD, 55,DD,DO, 3E 
630 DATA 04,CD,FB,C1,E5,CD,59,BC 
640 DATA El,C9,2B,7E,FE,20,28,FA 
650 DATA FE,2C,C0,2B,E5,2A,34,AE 
660 DATA CD,3F,DD,21, 2 8,A6,CD,AA 
670 DATA FF, El,38,08, FE,BB,C0,CD 
680 DATA 93,BB,18,03,CD/El,BB,Dl 
690 DATA C3,4F,D0,3A,2F,A6,2F,32 
700 DATA 33,A6,CD,3C,18,AF,32,33 
710 DATA A6,C9,3A,33,A6,B7,20,0F 
720 DATA 3A,39,B3,B8,C2,CC,B1,3A 
730 DATA 30,A6,B7,CA,CC,Bl ,C9,3A 
740 DATA 46,B3,B7,3A,2F,A6,20,11 


Ebenfalls noch nicht geglückt ist die softwaremäßige 
Simulation der zusätzlichen 64 KByte des CPC 6128. Wir 
haben dieses Problem jedoch unserer Abteilung '"Zeichen 
und Wunder" übergeben, so daß vielleicht in den nächsten 
Jahrzehnten mit einer Lösung zu rechnen ist.. 

(M. Uphofi) 
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* 664/6128 -Emulator fuer CPC 464 * 


******* (C) 1986 M. Uphoff ******* 
••••••••••*****•••»*••«*••*•**•**** 


10 
20 
30 
40 
50 

60 ' 

70 adr=&AlFF:MEMORY adr 
80 FOR bl-1 TO 9 
90 s=0:READ sum 
100 FOR i=1 TO 128 

110 READ byte$:IF byte$="EOF" THEN 150 
120 v=VAL(+byte$):s=s +v 
130 adr=adr+1:POKE adr,v 
140 NEXT i 

150 IF sosum THEN PRINT"Datafehler in Bio 
ck";bl:END 

160 PRINT"Block";bl;"OK" 

170 NEXT bl 

180 SAVE"emu.bin",b,&A200,& 439 
190 END 


[1460] 
[1839] 
[1 460 ] 
[1189] 
[1 460 ] 

[117] 
[1 232 ] 
[6751 
[660 1 
[554 ] 
[1777 ] 
[2224] 
[1023 1 
[375] 
[3802] 

[2167] 
[440 1 
[1 427 ] 
[ 110 ] 


.Hum 

IHM, 

llllll 1 

llllllll 

Ml"" 

llllllll 

H.ütll 
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200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


1 4235 
3E,C3 
22,1 7 
A2,22 
9A,A2 
21 ,B4 
AC, 21 
01 , AC 
32,90 
BB, 32 
DF,BB 
22,CI 
A2,22 
E3,BD 
3A, 80 
A6,2A 
C3,32 


Block 1 


,32,16 
, AC, 3 2 
,1 A,AC 
,22,08 
,A4,22 
,2A,A3 
,21 ,AB 
,BB,21 
,DE,BB 
,32,C0 
,BB,32 
,C4,BB 
,21,62 
,BC,FE 
,81,BC 
,80,BC 


,AC,21 
, 1 9 , AC 
,32,07 
, AC, 3 2 
, 0 5 , AC 
,22,0E 
,A2,22 
,D8,A2 
, 21,11 
,BB,21 
,C3,BB 
,21,53 
,A3,22 
,C3,C8 
,22,37 
,21,B2 


83,A2 
21 ,8E 
AC, 21 
04, AC 
,32,0D 
, AC, 3 2 
02, AC 
22,91 
A3,22 
F5,A2 
,21,FA 
,A3,22 
,E9,BD 
,32,36 
,A6,3E 
,A2,22 


Block 2 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


19616 
81,BC, 
E3,D0, 
A5,CD, 
C1,C9, 
EB,4F, 
C3,BB, 
68,A2, 
BC, 2 A, 
80,BC, 
B2,A2, 
FE, 1 A, 
CD,D5, 
FB,C0, 
0A,3E, 
9F,BB, 
18,03, 


C9,11 
Fl ,C3 
1 3,E3 
FE,C5 
06,00 
DD,21 
E5,3A 
37,A6 
21 ,80 
22,81 
37,3F 
A5,F3 
El ,E3 
02,CD 
El ,E3 
CD, DE 


,El,A5 
,61,DF 
,D0,7E 
,D0,D6 
,21,IC 
,91,B2 
,36,A6 
,22,81 
,BC,36 
,BC,El 
,C0,B7 
,D9,CB 
,CD,55 
,FB,CI 
,E9,CD 
,A5,F3 


,CD,27 
,21 , El 
,23,CI 
,BA,D1 
,A6,09 
,75,C3 
,32,80 
,BC,CD 
,C3,21 
,D8,C8 
,37,C9 
,59,D9 
, DD , 30 
,E5,CD 
,DB,A5 
,D9,CB 


[117] 
[1441 ) 
[366 ] 
[1312] 
[1 277] 
[13131 
[1 745 1 
[1184] 
[1627 ] 
[101 9 ] 
[1 575 ] 
[1810 1 
[1232 ] 
[1 543 ] 
[1 537 ] 
[2104] 
[1770 ] 
[944 ] 
[1562] 

[1 448 ] 
[211 ] 
[1497 ] 
[1285 ] 
[1 633 ] 
[751 ] 
[1413] 
[1126] 
[1 430] 
[1 480 ] 
[1421 ] 
[1 269] 
[1051 ] 
[1082 ] 
[1 455 ] 
[2199 ] 
[1 355 1 
[1527 ] 


750 '*******•**************** Block 4 
760 DATA 15557 

770 DATA 07,32,2F,A6,3A,38,B3,47 
780 DATA DA,CC,B1,3A,39,B3,47,18 
790 DATA DE,E5,D5,C5,21,CF,B1,5F 
800 DATA 3A,07,B2,ED,44,47,AF,CB 
810 DATA 01,30,05,CB,03,30,01,B6 
820 DATA 23,10,F4,4F,7B,32,2F,A6 
830 DATA 3A,30,A6,B7,20,0A,2A,38 
840 DATA B3,7D,AC,A1,AC,C1,18,01 
850 DATA Fl,47,Dl,E1,C3,CC,Bl,CA 
860 DATA A3,FE,CD,86,0C,32,3A,B3 
870 DATA CD,1A,16,CD,FF, 1 6,D2,68 
880 DATA A4,E5,FD,El,D5,DD,El,CD 
890 DATA A9,0B,3A,3A,B3,57,AE,A1 
900 DATA 28,7E,3A,38,B3,5F,AE,AI 
910 DATA 28,76,06,00,FD,23,CD,2D 
920 DATA 0C,3A,34,B3,FD,95,38,52 

930 ..* Block 5 

940 DATA 15966 

950 DATA 7A,AE,A1,28,4D,7B,AE,AI 
960 DATA 20,EA,18,46,AE,77,CB,20 
970 DATA E5,CB,01,DC,05,0C,7A,AE 
980 DATA AI,28,12,7B,AE,AI ,28,0D 
990 DATA CB,C0,CB,48,20,07,DD,2B 
1000 DATA DF,8A,A4,DD,23,CB,A0,CB 
1010 DATA 09,El,E5,CB,09,DC,F9,OB 
1020 DATA 7A,AE,AI,28,1 2,7B,AE,AI 
1030 DATA 28,0D,CB,E0,CB,68,20,07 
1040 DATA DD,23,DF,8A,A4,DD,2B,CB 
1050 DATA 01,ET,3A,36,B3,FD,95,30 
1060 DATA 0F,FD,2B,CD,13,0C,7B,AE 
1070 DATA AI,28,05,7A,AE,Al,20,A4 
1080 DATA 2A,34,A6,7D,B4,C8,2B,22 
1090 DATA 34,A6,DF,78,A4,C3,D3,A3 
1100 DATA 7B,A4,FD,2A,89,AE,2B,56 


1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 


••*•'«**•«****«•****•«•.« Block 6 
DATA 17160 

DATA 2B,5E,2B,22,89,AE,6E,26 
DATA 00,C9,8D,A4,FD,C5,D5,2A 
DATA 89,AE,01,03,00,CD,18,F6 
DATA 38,17,EB,22,89,AE,DD,E5 
DATA Dl,FD,E5,C1,2B,72,2B,73 
DATA 2B,71,2A,34,A6,23,22,34 
DATA A6,Dl,CI,C9,FE,03,28,41 
DATA FE,AB,28,57,FE,9F,CA,4A 
DATA A5,FE,2C,28,03,FE,28,C0 
DATA 3E,02,B9,20,64,F1,C1,F5 
DATA 3E,F8,B8,C0,79,FE,EE,28 
DATA 15,FE,F5,C0,7E,2B,FE,72 
DATA 20,FA,7E,3C,20,F6,23,CD 
DATA 3F,DD,CD,37,DD,28,Fl,CD 
DATA FB,CE,CD,37,DD,2C,C3,F5 
DATA F8,3E,OD,BB,CO,2A,34,AE 


1290 •...*..»..*.***.********* Block 7 
1300 DATA 19901 

1310 DATA CD,3F,DD,FE,7C,28,03,FE 
1320 DATA 83,C0,El,2A,C2,B0,CD,21 
1330 DATA FB,37,C9,3E,05,BB,C0,3E 
1340 DATA 1A,91,C0,B8,C0,F1,CD,F5 
1350 DATA CI,CD,D3,CI,CD,37,DD,29 
1360 DATA CD,60,BB,E5,CD,19,FA,E1 
1370 DATA C9,3E,49,B9,C0,F1,C1,F5 
1380 DATA 3E,DO,B8,C0,3E,93,B9,C0 
1390 DATA Fl,E5,00,00,AF,CD,0A,FF 
1400 DATA El,C9,F1,C1,F5,3E,C8,B8 
1410 DATA C0,3E,D6,B9,C0,3E,8B,BE 


[1447 ] 
[305] 
[1531 J 
[2240] 
[1024 ] 
[1 468 ] 
[1153 ] 
[1225] 
[1763 ] 
[1804 ] 
[1770] 
[754 ] 
[1266 ] 
[71 4] 
[921 ] 
[605] 
[1876 ] 
[1515] 

[1454 ] 
[404 ] 

[1 267] 
[1282] 
[1766 ] 
[1 472 ] 
[20151 
[960] 
[1225 ] 
[1 524 ] 
[1180 ] 
[1271 ] 
(1264 1 
(11831 
[1195] 
[1188] 
[458] 
[1326 ] 

[1 453 ] 
[3551 
[2160 ] 
[1201 ] 
[1 551 ] 
[1077 ] 
[1 427 ] 
[1782] 
[984 1 
(1 767 ] 
[733 ] 

[1 3671 
[1917 ] 
[1894 ] 
[1286] 
[1518] 
[1 234 ] 
[2087] 

(1460 ) 
[385] 
[1822 ] 
[466 1 
[1 345 ] 
[847] 
[1147] 
[1 282 ] 
[1 373 ] 
[1386 ] 
[1562] 
[21851 
[1 224 ] 
[1151 ] 
[1 430 ] 
[999] 
[1746 ] 
[1 472] 

[1 459 ] 
[285] 
[1 3961 
(556 1 
[1681 1 
[1012] 
[526] 
[1119] 
[872] 
[15531 
[1716 J 
[1410] 
[998] 
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1420 
1430 
1 440 
1450 
1460 
1 470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 


DATA 
DATA 
DATA 
DATA 
DATA 
' ***. 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


CO,PI,11,61,A5,1B,C3,DA 
C8,06,00 # FF,FF,C9, 00,CD 
55,DD,38,10,3E,02,CD,FB 
CI, B 7,CC,84,BB,C4,81 ,BB 
CD,55,DD,DO,3E,02,CD, FB 

Block 8 

19052 

CI,B7,CA,7E,BB,C3,7B,BB 
23,01,E4,BB,FE,BA,CA,18 
C2,FE,BB,C2,C6,DD,CD,55 

DD,38,0A,CD,4B,C2,CD,D8 
A5,CD,55,DD,DO,3E,02,CD 
FB,CI,32,30,A6,C9,CD,4B 
C2,E5,DF,C7,A3,E1,C9,CD 
55,DD,38,OA,CD,67,CE,32 

2F,A6,CD,55,DD,DO,3E,02 
CD,FB,CI,32,31,A6,C9,CD 


(846 ] 

1590 

DATA 

[2264 ] 

1600 

DATA 

[1856 ] 

1610 

DATA 

[393 ] 

1620 

DATA 

[1 575 ] 

1630 

DATA 

[1 434 ] 

1640 

DATA 

[342] 



(668] 

1650 


[2158 ] 

1660 

DATA 

[917] 

1 670 

DATA 

[599] 

1680 

DATA 

(2270 ) 

1690 

DATA 

[889] 

1700 

DATA 

[950] 

1710 

DATA 

[1889] 

1720 

DATA 

[1892 ] 

1730 

DATA 

[2316 ] 

1740 

DATA 


09,BB,38,FB,C9,CF,A9,92 [1262] 

CF,F6,97,CF,F4,95,CF,Fl [723] 

95,46,49,4C,CC,DD,47,52 [1078] 

41,50,48,49,43,D3,DE,4D [895] 

41,53,CB,DF,46,52,41,4D [1794] 

C5,E0,43,55,52,53,4F,D2 [1101] 

Block 9 [1433] 

6328 [308] 

El,43,4C,45,41,52,20,49 [1288] 

4E,50,55,D4,E2,43,4F,50 [1622] 

59,43,48,52,A4,7E,44,45 [1573] 

52,D2,49,00,AE,A5,88,A5 [952] 

B7,A5,19,BD,67,A5,CF,A5 [1232] 

94,95,AE,AF,BC,BD,00,FF [1309] 

00,FF,FF,00,00,00,00,00 [1953] 

00,EOF,UFF! [290] 
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"ir'n 

imiijj 

iiiniii 


„MM, 

minii 

mmmJ| 

MUMM 

""H 1 

mmIIi 

Im I' 




]M||I 


Daß man auch mit 58 Jahren noch in der Lage sein kann, 
anspruchsvolle Computerspiele zu schreiben und Home¬ 
computer nicht als neumodischen "Technik-Kram” ab- 
zutuen, beweist unser Leser R. Bodinger, der uns mit sei¬ 
nen Entengeschichten ein Geduldsspiel schickte, neben 
dem Rubicks Zauberwürfel aussieht wie ein Intelli¬ 
genztest für Zweijährige. 

Ihre Aufgabe ist es. die Ente über ein Spielfeld mit unre¬ 
gelmäßigen Steinen nach Hause zu führen. Diese unregel¬ 
mäßigen Steine können verschoben werden. 

Das Programm ist zwar leicht zu bedienen - eine genaue 
Anleitung ist im Programm enthalten - hat aber einen so 
verzwickten Lösungsweg, daß wir den Autor baten, bitte 
noch eine Liste der erforderlichen Züge mit einzugeben. 
Außerdem hat es einen Demo-Mode, in dem es sich 
selbst löst. 

Wir hoffen, unsere Leser damit vor unnötigen Kosten zu 
bewahren, indem sie ihren Rechner irgendwann frustriert 
in die Ecke werfen. 

Viel Spaß beim Tüfteln!! 

(Rudolf Bodinger/TM) 

10 1 ************************** 

20 ' 

30 ' * PUZZLE a * 

40 ' 

50 ' * (c) by Rudolf Bodinqer * 

60 • 

70 1 ■********•**»****»»*»***** 

80 ' 

90 FOR i=1 TO 2000:NEXT 

100 CLEARrMODE 1:BORDER 10:INK 0,0:INK 0,1 
110 '- ___ ' 

120 REM *** Bildschirmumrahmung *** 

140 w=639:wl=399 

150 CLS: TAG:ORIGIN 1,1;FOR i=1 TO 10 STEP 
160 MOVE i,i 


[978] 

[175] 

[175] 
[661 ] 
[175] 
1978] 
[117] 
[998 ] 
[1505] 
[1400] 
[1279 ] 
[1400 ] 
[775] 
[1482 ] 

[392 ] 


170 DRAWR 0,wl-i*2,1:DRAWR w-i*2,0,1:DRAWR 
0,-wl+(i*2),1:DRAWR -w+(i*2),0,1 
180 NEXT 

190 FOR i=140 TO 150 STEP 3 

200 MOVE i,i:DRAWR 0,wl-i*2,1:DRAWR w-i*2, 

0,1:DRAWR 0,-wl+(i*2),1:DRAWR -w+(i*2),0,1 

:NEXT 


210 MOVE 233,225:PRINT"P U Z Z L E"; 

220 MOVE 232,190:PRINT"Donald Duck"; 

230 FOR i=1 TO 2000:NEXT 
240 FOR i = 1 40 TO 200:MOVE i,i 
250 DRAWR 0 , wl-i *2,0 : DRAWR w-i *2,0,0 .-DRAWR 
0,-wl+(i*2),0:DRAWR -w+(i*2),0,0 
260 NEXT 

270 MOVE 33,310:DRAWR 0,0,1:PRINT"Das Prog 
ramm bietet die Moeglichkeit"; 

280 MOVE 70,280:PRiNT"das Puzzle automatis 
ch ablaufen"; 

290 MOVE 126,250:PRINT"zu lassen um die Lo 
esung"; 

300 MOVE 40,220:PRINT"zu sichten,oder den 
Code auszugeben"; 

310 MOVE 40,190:PRINT"falls Sie die Loesun 
g nicht finden."; 

320 ^MOVE 137,1 30:PRlNT"Auto=1,Code=2,Manue 
1 = 3 ; 


330 MOVE 217,100:PRINT"lhre Eingabe!"; 

340 z$= INKEY$ : IF z$ = ,M, OR z$>"3"THEN 340 
350 ON VAL(z$) GOTO 360,2470,380 
360 MOVE 60,70:PRINT"Speed 0-9? (0=schnell 
,9=langsam)"; 

370 u$=INKEY$:IF u$=""OR u$>"9"THEN 370 
380 FOR i = 55 TO 326.-MOVE 33,i:DRAW 610,i,0 
:NEXT 


390 ORIGIN 73,80 
400 ’- 


410 REM *** Variablen fuer die Zeichnung 
der Steine. k=pen *** 

420 ’- 


430 p=52:p1=50:p2=102:p3=19:p4=45:p5=30:p6 
=59:k=1 

440 *--- 


450 REM *** Koordinat. a-rl fuer Position. 


[4582 ] 

C350] 
[761 ] 
[5700 ] 


[2203 ] 
[3105 ] 
[998 ] 
[1193] 
[3800 ] 

(350] 
[5883 ] 

[3492 ] 

[3055 ) 



MM I 


lllllll 

lllllll 

Milli 
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[3727] 


[3718 ] 

[3159] 

[2439 ] 
[2016 ] 
[1451 J 
[3954 ] 

[1290] 

[3105] 
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[243] 
[2997 ] 

[3032] 

[2997 ] 

[2478 ] 

[3588] 

[4921 J 
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lull der Steine (q-r1=freie Plaetze) *** 

j!! iü 460 '--[3588 ] 

lllltl! _ 

lllllll 

|i,iin 470 a=1+p:a1=1+p*3:b=1+p:b1=1+p*2:c=1 :c1=1 [36571 

|iii|ii +p*3:d=l:d1=1+p 

:!!;!! 480 e=1+p*3:e1=1+p*3:f=1+p*3:f1=1+p:g=1+p: [3727] 

gl =1 +p:h=l +p*2 

490 hl=1+p:m=1+p:m1=1:n=1+p*2:nl=1:q=1:q1 = [3119] 
1:r=1+p*3:r1=1 

500 '- [2989] 


510 REM "*• Ausgangsposition des Spieles w [2655] 
ird gezeichnet *** 

520 '- [29891 


530 


[2366] 


1030 IF CHR$ (241)=p$ AND r=x AND rl=y-p AN 
D q=x+p AND ql=y-p OR CHR$(241)=p$ AND q=x 
AND ql=y-p AND r=x+p AND rl =y-p THEN rl =y 
+p:q1=y+p:GOSUB i420:a1=a1-p:y=a1:GOSUB 14 
20:GOTO 700 

1040 '- 

1050 REM *** Stein 0 nach links *** 

1060 '- 

1070 IF CHR$(242)=p$ AND q=x-p AND ql=y AN 
D r=x-p AND r1=y+p OR CHR$(242)=p$ AND r=x 
-p AND r1=y AND q=x-p AND ql=y+p THEN r=x+ 
p:q=x+p:GOSUB 1420:a=a-p:x=a:GOSUB 1420:GO 
TO 700 

1080 '--- 

1090 REM *** Stein 0 nach rechts *** 

1100 '- 


llllllll 
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540 x$="0":x=a:y=a1:GOSUB 1420:'*** Die Ko [4465] 
ordinaten werden x u.y zugeordnet *** 

550 ' - [2366] 


560 x$="1 ":x=b:y=b1:GOSUB 1520 [2154] 

570 x$="2":x=c:y=c1:GOSUB 1570 [12611 

580 x$="3":x=d:y=d1:GOSUB 1570 [2456] 

590 x$="4":x=e:y=e1:G0SUB 1570 [705] 

600 x$="5":x=f:y=f1:GOSUB 1570 [10051 

610 x$-"6":x=g:y=g1:GOSUB 1620 [1075] 

620 x$="7":x=h:y=h1:GOSUB 1620 [1595] 

630 x$="8":x=m:y=m1:GOSUB 1620 [2238] 

640 x$="9":x=n:y=n1:GOSUB 1620 [2302] 

650 '- [1873] 

660 GOSUB 1670:'*** Umrahmung der Steine * [2574] 

* * 

670 '--- [1873] 

680 k=0: IF z$="1" THEN 2580 [553] 

690 ’ - [3171 ] 


700 k=0:REM *** Stein wird bei Verschiebun [3760] 
g mit pen 0 ueberschrieben *** 

710 ' - [3171 ] 


720 IF a=1+p AND al =1 THEN 1 960 [966] 

730 IF z$="1" THEN 2620 [1317] 

740 MOVE 250,240:PRINT "Fuehren Sie Donald [2248] 
11 • 

750 MOVE 280,200:PRINT"Duck nach Hausi"; [3462] 
760 MOVE 245,80:PRINT"Neubeginn=Leertaste" [3705] 

770 MOVE 245,60:PRINT"Neuer Start=Taste n" [2900] 


780 MOVE -45,-50:PRINT"Eingabe 0-9 + eine 
der Tasten ";CHR$ ( 240);" ";CHR$(241);" ";C 
HR$(242 );" ";CHR${243); 

790 MOVE 1+p+p3,-30:PRINT " ";:MOVE 1+p*2+ 
p3,-30:PRINT " 

800 x$=INKEY$:IF X$=""THEN 800 

810 IF x$=" "THEN 1930 

820 IF x$="n"THEN 10 

830 IF x$>"9"THEN 890 

840 MOVE 1+p+p3,-30:PRINT x$; 

850 p$=»INKEY$:IF p$=""THEN 850 

860 IF p$=CHR$(240) OR p$=CHR$(241) OR p$= 

CHR$(242) OR p$=CHR$(243) THEN 910 

870 IF p$=" "THEN 1930 

880 ' - 


[4702] 


[2536] 

[2668] 

[1163] 

[1009] 

[901 ] 

[1324] 

[1 489] 

[4417] 

[764] 

[2925] 


890 GOSUB 1920:GOTO 700: REM *** Falsche E [5052) 
ingabe. Tastenabfrage wiederholen *** 

900 ' ..[2925] 


910 MOVE 1+p*2+p3,-30 .-PRINT p$ ; [1244] 

920 MOVE 64,280:PRINT" ";x$;" ";p$;" [1031] 

930 IF x$="0"THEN 970 [1487] 

940 ON VAL(x$) GOTO 1140,1260,1280,1300,13 [3221] 
20,1340,1360,1380,1400 

950 GOTO 700 [425] 

960 ' - [1287] 

970 x=a:y=a1: REM *** Stein 0 rauf *** [1454] 

980 ' --- [1287] 

990 IF CHR$(240)=p$ AND r=x AND r1=y+p*2 A [10810] 
ND q=x+p AND ql=y+p*2 OR CHR$(240)=p$ AND 


q=x AND q1=y+p*2 AND r=x+p AND r1=y+p*2 TH 
EN ql=y:r1=y:GOSUB 1420:a1=a1+p:y=a1:GOSUB 
1420:GOTO 700: REM *** Stein rauf 


* * * 

1000 '- [14091 

1010 REM *** Stein 0 runter *** [1091] 

10 20 '- [14093 


1110 IF CHR$(243)=p$ AND q=x+p*2 AND ql»y 
AND r=x+p*2 AND rl=y+p OR CHR$(243)=p$ AND 
r=x+p*2 AND r1=y AND q=x+p*2 AND ql=y+p T 
HEN r=x:q=x:GOSUB 1420:a=a+p:x=a:GOSUB 142 
0:GOTO 700 

1120 TAGOFF: PRINT CHR$ ( 7 ): TAG.-GOTO 700: 

REM *** Kein freier Platz fuer Verschiebun 

g * * * 

1130 ' - 

1140 x=b:y=b1: REM *** Stein 1 *** 

1150 ' - 

1160 IF CHR$(240)=p$ AND r=x AND rl=y+p AN 
D q=x+p AND ql =y+p OR 'CHR$ (240) =p$ AND q=x 
AND q1=y+p AND r=x+p AND rl=y+p THEN ql=y 
:r1=y:GOSUB 1520:bl=b1+p:y=b1:GOSUB 1520:G 
OTO 700 

1170 IF CHR$(241)=p$ AND r=x AND rl=y-p AN 
D q=x+p AND ql=y-p OR CHR$(241)=p$ AND q=x 
AND q1=y-p AND r=x+p AND rl=y-p THEN rl=y 
:q1=y:GOSUB 1520:bl=b1-p:y=b1:GOSUB 1520:G 
OTO 700 

1180 IF CHR$(242)=p$ AND q=x-p AND qlay TH 
EN q=x+p:GOSUB 1520;b=b-p:x=b:GOSUB 1520:G 
OTO 700 

1190 IF CHR${242)=p$ AND r=x-p AND rl=y TH 
EN r=x+p:GOSUB 1520:b=b-p:x=b:GOSUB 1520:G 
OTO 700 

1200 IF CHR$(243}=p$ AND q=x+p*2 AND ql®y 
THEN q=x:GOSUB 1520:b=b+p:x=b:GOSUB 1520:G 
OTO 700 

1210 IF CHR$(243)=p$ AND r=x+p*2 AND rl=y 
THEN r=x:GOSUB 1520:b=b+p:x=b:GOSUB 1520:G 
OTO 700 

1220 GOSUB 1920:GOTO 700 

1230 '- 


1240 REM *** Zuordnung der Koordinaten fue 
r die Steine 2-9 *** 

1250 '- 


1260 x=c:y=c1 :GOSUB 1720 
1270 c=x:c1=y:GOTO 700 
1280 x=d:y=d1:GOSUB 1720 
1290 d=x:d1=y:GOTO 700 
1300 x=e:y=e1:GOSUB 1720 
1310 e=x:e1=y:GOTO 700 
1320 x=f:y=f1:GOSUB 1720 
1330 f=x:f1=y:GOTO 700 
1340 x=g:y=g1:GOSUB 1820 
1350 g=x;g1=y:GOTO 700 
1360 x=h:y=h1:GOSUB 1820 
1370 h=x:h1=y:GOTO 700 
1380 x=ra:y=m1:GOSUB 1820 
1390 m=x:m1=y:GOTO 700 
1400 x=n:y=n1:GOSUB 1820 
1410 n=x:n1=y:GOTO 700 

1420 '- 

1430 FOR i=1 TO 3 

1440 MOVE x+i,y+i:DRAWR 0,(p2-i*2),k:DRAWR 
(p2-i*2),0,k:DRAWR 0,-(p2-i*2),k:DRAWR -( 
p2-i*2),0,k:NEXT 
1450 MOVE x+p4,y+p6:PRINT x$; 

1460 MOVE x+22,y+ 30:PRINT"Duck"; 

1470 ' - 


1480 IF x=1+p AND y=1 THEN 1960:REM Duck a 
t home.Sound 

1490 ' - 

1500 k=1:RETURN 
1510 '- 


[7624] 


[1 416 ] 
[5991 
[1416 1 
[10553 ] 


[1400] 
[1440] 
[1 400 ] 

[10076 ] 


[6149 ) 


[1051 1 
[2099] 
[1051 ] 
[9289] 


[6755] 


[4827] 


[4290] 


[4536] 


[3606 ] 


[1922] 
[2862 ] 

[2331 ] 

£2862] 

[1965 ] 
[1722 ] 
[849] 
[1997 ] 
[1496 ] 
[1975] 
[2095 ] 
[1176] 
[1540] 
[1103 ] 
[1701 ] 
[1 441 ] 
[1097 ] 
[720] 
[14191 
[9693 
[597] 
[4351 
[6364 ] 


[1332] 
[1052 ] 
[1188] 

[3886 ) 

[11883 

[771 ] 
[597] 
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1520 FOR i=1 TO 3 

1530 MOVE x+i,y+i:DRAWR 0, ( pl -i *2 ), k:DRAWR 
(p2-i*2),0,k:DRAWR 0,-(pl-i*2),k:DRAWR -( 
p2-i*2),0,k:NEXT 
1540 MOVE x+p4,y+p5:PRINT x$; 

1 550 k = 1 :RETURN 

1560 '- 

1570 FOR i=1 TO 3 

1580 MOVE x+i,y+i:DRAWR 0,(p2-i*2),k:DRAWR 
(p1-i*2),0,k:DRAWR 0,-(p2-i*2),k:DRAWR -( 
pl-i*2),0,k:NEXT 
1590 MOVE x+p3,y+p6:PRINT x$; 

1600 k=1:RETURN 

1610 '- 

1620 FOR i=1 TO 3 

1630 MOVE x+i,y+i:DRAWR 0,(pl-i*2),k:DRAWR 
(pl-i*2),0,k:DRAWR 0,-(pl-i*2),k:DRAWR -( 
pl-i*2),0,k:NEXT 
1640 MOVE x+p3,y+p5:PRINT x$; 

1650 k=1:RETURN 

1660 '- 

1670 FOR i=1 TO 22 

1680 MOVE -2-i,-2-i:DRAWR 0,264+(i*2),k:DR 
AWR 212 + (i*2),0,k:DRAWR 0,-(264 + i*2 ),k:DRA 
WR - (212 + i*2),0,k:NEXT 
1690 MOVE 32,-6 .-PRINT" h o m e 
1700 RETURN 

1710 '- 

1720 REM *** Steine 2-5 *** 

1730 1 - 

1740 IF CHR$(240)=p$ AND r=x AND r1=y+p*2 
THEN r1=y:GOSUB 1570:y=y+p:GOSUB 1570:RETU 
RN 

1750 IF CHR$(240)=p$ AND q=x AND ql=y+p*2 

THEN q1=y:GOSUB 1570:y=y+p:GOSUB 1570:RETU 
RN 

1760 IF CHR$(241)=p$ AND q=x AND ql=y-p TH 
EN q1=y+p:GOSUB 1 570 :y=y-p;GOSUB 1 570.-RETU 
RN 

1770 IF CHR$(241)=p$ AND r=x AND r1=y-p TH 
EN r1=y+p:GOSUB 1570:y=y-p:GOSUB 1570:RETU 
RN 

1780 IF CHR$(242)=p$ AND q=x-p AND ql=y AN 
D r=x-p AND rl=y+p OR CHR$(242)=p$ AND r=x 
-p AND r1=y AND q=x-p AND ql=y+p THEN r=x: 
q=x:GOSUB 1570:x=x-p:GOSUB 1570:RETURN 
1790 IF CHR$(243)=p$ AND r=x+p AND rl=y AN 
D ql=y+p AND q=x+p OR CHR$(243)=p$ AND q=x 
+p AND ql =y AND rl=y+p AND r=x+p THEN r=x: 
q=x:GOSUB 1570:x=x+p:GOSUB 1570:RETURN 
1800 GOSUB 1920:RETURN 

1810 *- 

1820 REM *** Steine 6-9 *** 

1830 '- 

18 40 IF CHR$(240 )=p$ AND r=x ÄND rl =y+p TH 
EN r1=y:GOSUB 1620:y=y+p;GOSUB 1620:RETURN 
1850 IF CHR$(240)=p$ AND q=x AND ql=y+p TH 
EN ql=y:GOSUB 1620:y=y+p : GOSUB 1620:RETURN 
1860 IF CHR$(241)=p$ AND r=x AND rl=y-p TH 
EN r1=y:GOSUB 1620:y=y-p:GOSUB 1620:RETURN 
1870 IF CHR$(241)=p$ AND q=x AND ql=y-p TH 
?L? 1=y:G0SUB 1 620 :y=y-p: GOSUB 1 620:RETURN 
1880 IF CHR$(242)=p$ AND q=x-p AND ql=y TH 
EN q=x:GOSUB 1620:x=x-p:GOSUB 1620:RETURN 
1890 IF CHR$(242)=p$ AND r=x-p AND rl=y TH 
EN r=x:GOSUB 1620:x=x-p:GOSUB 1620:RETURN 
1900 IF CHR$(243)=p$ AND r=x+p AND rl=y TH 
EN r=x:GOSUB 1620:x=x+p:GOSUB 1620:RETURN 
1910 IF CHR$(243)=p$ AND q=x+p AND ql=y TH 
EN q=x:GOSUB 1 620:x=x+p.-GOSUB 1620:RETURN 
1920 TAGOFF: PRINT CHR$ (?): TAG .-RETURN 
1930 FOR i=1 TO 257 
1940 MOVE 1,1+i: DRAWR 208,0,0 
1950 NEXT:k=1:GOTO 470 
1960 RESTORE 1970 


(435) 
[4539 1 


[1 338] 
[771 ] 
[597] 
[435 ] 
[6428] 


[2001 ] 
[771 ) 
[5971 
[4351 
[4135] 


[1196] 
[771 ] 
[597] 
[319] 
[6338 ] 


[2712 ] 
[555 ] 
[1174] 
[572] 
[1174] 
(6318 ] 


13254] 

[4604 ] 

[3655 ] 

[9669] 

(6909] 

[1 489 3 
[1174] 
[643] 
[1174] 
(5059 ] 

[4868] 

[3910 ] 

14111 ] 

[4814 ] 

[4184] 

[2919] 

[5605] 


1970 DATA 1,1136,23 
1980 DATA 1,0,4 
1990 DATA 1,1136,48 
2000 DATA 1,1012,25 
2010 DATA 1,956,50 
2020 DATA 1,758,25 
2030 DATA 1,851,50 
2040 DATA 1,1136,25 
2050 DATA 1,1012,50 
2060 DATA 1,568,23 
2070 DATA 1,0,4 
2080 DATA 1,568,46 
2090 DATA 1,0,4 
2100 DATA 1,568,23 


[3566 ] 

(341 ] 

[1461 ] 

[838] 

[884 ] 

[454 ] 

1365] 

(441 1 

[627] 

[476] 

[557] 

[674 ] 

[468] 

(614] 

[657] 

(365 ] 

(654 ] 

[365] 

[657] 


2110 DATA 1,638,37 
2120 DATA 1,758,13 
2130 DATA 1,851,25 
2140 DATA 1,758,75 
2150 DATA 1,0,2 
2160 DATA 1,758,48 
2170 DATA 1,568,23 
2180 DATA 1,0,4 
2190 DATA 1,568,46 
2200 DATA 1,0,4 
2210 DATA 1,568,23 
2220 DATA 1,638,23 
2230 DATA 1,0,4 
2240 DATA 1,638,23 
2250 DATA 1,758,25 
2260 DATA 1,851,23 
2270 DATA 1,0,3 
2280 DATA 1,851,12 
2290 DATA 1,0,3 
2300 DATA 1,851,23 
2310 DATA 1,1136,25 
2320 DATA 1,956,50 
2330 DATA 1,1136,23 
2340 DATA 1,0,3 
2350 DATA 1,1136,48 
2360 DATA 1,0,3 
2370 DATA 1,1136,23 
2380 DATA 1,1204,48 
2390 DATA 1,0,4 
2400 DATA 1,1204,23 
2410 DATA 1,1136,100 
2420 DATA 0,0,0 
2430 ON SQ(1) GOSUB 2450 
2440 GOTO 2430 

24 50 READ u,t,l-:IF u = 0 THEN 2460 ELSE SOUN 
D u,t/4,1*1.5:RETURN 
2460 GOTO 90 

2470 TAGOFF:CLS:LOCATE 8,8:PRINT"Code auf 
Drucker ausgeben?" 

2480 LOCATE 5,10:PRINT"Wenn ja,erst Drucke 
r einschalten," 

2490 LOCATE 10,12:PRINT"dann Taste j druck 
en. 

2500 LOCATE 4,16:PRINT "Andere Taste nur B 
ildschirmausgabe." 

2510 u$=INKEY$:IF u$=""THEN 2510 

2520 RESTORE 2630:CLS:PRINT:FOR w=1 TO 154 

:READ x$,p$ .-PRINT x$;" ";CHR$ ( VAL{p$ ) ) ; " " 

t 

2530 IF u$="j"THEN PRINT08,x$;",";p$;" 

2540 NEXT ' V ' 

2550 LOCATE 4,20:PRINT n Neuer Start? Eine T 
aste drueckenl" 

2560 CALL &BB06 
2570 GOTO 10 
2580 RESTORE 2630 

2590 FOR w=1 TO 154:READ x$,p$:p$=CHR$(VAL 
(p$ )) 

2600 FOR s=1 TO VAL(u$ ) *1 00 .-NEXT 
2610 GOTO 930 
2620 NEXT w 

2630 DATA 3,241,1,242,9,243,7,241,5,242,9, 

240.7.243.5.241.1.243.1.243.6.240 

2640 DATA 6,242,8,240,8,240,5,242,7,242,9, 

241 ,1 ,241,8,243,8,243,6,243,6,243 

2650 DATA 3,240,5,240,7,242,7,242,9,242,9, 

242,1 ,241,8,2 41,8,242,4,241 ,4,241 

2660 DATA 0,243,5,240,5,2.40,3,243,7,240,7, 

240,9,242,9,2 40,1,242,1 ,242,8,241 

?' 243 » 6 » 241 »6,241,3,243,7,243,9, 

240.1.240.6.242.6.242.8.242.8.242 

2680 DATA 3,241,4,241,7,243,7,243,9,243,9, 

243.1.240.6.240.8.242.3.242.4.242 
7 ' 241 ' 7 ' 241 ,9,243,9,241,1 ,243,1 , 

243.6.240.6.243.8.240.8.240.3.242 

2700 DATA 6,241,6,241,5,241,5,241,2,243,8, 

240.8.240.3.240.3.240.6.242.6.240 
5 ' 241 ' 2 ' 241 »8,243,3,240,6,240,5, 

242,2,241,2,241,6,24 3,3,241,8,242 

2720 DATA 6,240,6,240,2,240,2,240,4,242,7, 

242,9,241,1,241,0,241,6,243,6,243 

2730 DATA 8,243,8,243,3,240,2,240,5,240,4, 

240.7.242.7.242.9.242.9.242.1.241 

2740 DATA 0,241,6,241,8,243,2,243,4,240,4, 

240,0,242,6,241,6,241,8,241,8,241 

2750 DATA 2,243,4,243,3,243,5,240,5,240,0, 

242.8.242.6.240.1.240.9.243.9.243 

2760 DATA 7,243,7,243,0,241,8,242,8,242,6, 
242,6,242,1,240,9,240,7,243,0,243 


[565] 
1533 ) 
[679] 
(503) 
[359] 
(550) 
[657] 
[365] 
1654] 
[365] 
(657] 
[551 ] 
[365] 
[551 ] 
[557] 
[689] 
[362] 
[ 688 ] 
1362] 
[689] 
[468] 
[476 ] 
[454 ] 
(362 ] 
(441 ] 
(362 ] 
[454 ] 
[603 ] 
[365] 
[612] 
(559) 
(337] 
[918 ] 
[349] 
13697) 

[312] 

[5809] 

(3323] 

(381 1 J 

[4509] 

[1 462] 
(3718 ] 


(2362 ] 
(3501 
[5388 ] 

[393 ] 
[392 ] 
[888 ] 
(2697] 

11843 ] 
[530] 
[361 ] 
[2971 ) 

(3879) 

(3144 ] 

[3867] 

[3143] 

[2110 ] 

(4368 ] 

[3143] 

(1884 ] 

[3654 ] 

[2926] 

[3505] 

[3518 ] 

(2684] 
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TIPS STRICKS 


iiliii 3 D-Grafik mit LOGO 

111ii11* 



Warum wurde die Programmiersprache LOGO gewählt? 
,!!|j!!j Diese Sprache wurde aus mehreren Gründen gewählt. Der 
'"il" 1 zwingendste Grund war wohl, daß mit dem Joyce in der Grund¬ 
ausstattung nur mit Logo Grafikprogrammierung möglich 
i|,ll'|i ist. Logo bietet dazu aber sehr schöne Möglichkeiten, da ent- 
!!!!! ] sprechende Befehlsprozeduren zur Verfügung stehen. Mit 
jj[|| dieser Sprache lassen sich die Programme sehr gut struktu- 
!!{;•" riert gestalten. Ein weiterer Vorteil dürfte darin liegen, daß die 
j'|| l jj Programme auch auf die anderen Computer von Schneider 
i; Ii;; ohne größere Probleme übertragen werden können, sofern 
genügend Arbeitsspeicher vorhanden ist (CPC 464 und 

„ -ii 664 >- 


,1111111_____ 

llllil| —--- -- 

JllÜli Wie bedient man das Programm? 

»imiti _______ 

• Ml IM I 

!|-|!;il Als erstes muß man seinen Joyce anschalten und ihn mit 
der zweiten Seite der Originalkopie oder der entsprechen- 
jjjjjjj! den Sicherheitskopie, die das CP/M-Betriebssystem ent- 
'lüÜ; hält, versorgen. Wenn die richtige Diskette gewählt wor¬ 
den ist, bootet der Joyce automatisch das CP/M-System 
(| jjijj nach dem Einschieben der Diskette in das Laufwerk, 
illjli,, Nach erfolgreicher Tat erscheint das Systemprombt und 
erwartet weitere Eingaben. Diese werden nun auch getä- 
!□! tigt, indem das CP/M-Dienstprogramm LANGUAGE mit 
llilliH ’language 0’ aufgerufen wird (das Symbol hinter LAN- 
GUAGE ist eine Null!), womit auf den amerikanischen 
'liil'll Zeichensatz umgeschaltet wird. Dieser wird benötigt, um 
beim Eintippen oder eventuellen Korrigieren des 
mim Programms durch Betätigung der Tastenfolge <SHIFT>- 
iJjjjj ä, die eckige Klammer auf, und bei der Tastenfolge 
!|!h!h <SHIFT>-ü, die eckige Klammer zu. zu bekommen. Im 
lüllü deutschen Zeichensatz werden diese Tastenfolgen als ’Ä’ 
/'Kli; und *Ü’ auf dem Bildschirm angezeigt, der Computer 
interpretiert diese aber richtig als die eckigen Klammern. 
j! Diese Verwirrung haben wir dem ASCII-Code zu verdan- 
jjjjjjl ken (American Standard Code of Information Inter- 
Ijjjjji; change). 

Nachdem dieses geschehen ist, schieben wir Seite 4 der Sy¬ 


stemdiskette oder deren Kopie in das Laufwerk und tip¬ 
pen LOGO, gefolgt von einem <RETURN>, ein. Der 
Computer lädt jetzt den Logo-Interpreter, was einige Se¬ 
kunden dauert. Wenn Logo nun bereit ist, Ihre Befehle ent¬ 
gegenzunehmen, wird es Sie ein wenig Zeit und ein, zwei 
Tassen Kaffee kosten, bis das Programm eingetippt ist. 
Wenn im Prozedurteil INSTALLIEREN sinnvolle Werte 
eingegeben wurden, so können Sie das Programm mit dem 
Aufruf der Prozedur HAUPTPROGRAMM starten. Die 
Prozedur benötigt keine Parameter zur Übergabe. Wenn 
Sie nun verärgert feststellen, daß das Programm nicht auf 
Anhieb läuft, so gehören Sie zu den 90 %, bei denen sich 
bei der Abtipperei Fehler eingeschlichen haben. Der 
Logo-Interpreter ist in diesen Dingen jedoch recht kom¬ 
fortabel, da er genau beschreibt, wo der Fehler liegt. Mit 
der Programm Vorlage und den Fehlermeldungen des 
Interpreters sollte es Ihnen gelingen, das Programm zum 
Funläionieren zu bringen. 

Nach Aufruf der Prozedur HAUPTPROGRAMM wird 
auf dem Bildschirm nun einiges geschehen. Der Textbild¬ 
schirm ist auf die unteren drei Zeilen begrenzt, in welchem 
ein Menuc ausgegeben wird. Das erste Menue wird Sie 
danach fragen, ob Sie die Figur zoomen, drehen, verschie¬ 
ben oderein Koordinatenkreuz zeichnen wollen. Bei Ein¬ 
gabe des jeweils ersten Buchstaben - also ’z\ V, 'd’ oder 'k' 
(wobei Groß-/Kleinschreibung egal ist) und Abschluß 
durch <RETURN>, wird der entsprechende Befehl aus¬ 
geführt. Wählen Sie ’k’ für Koordinatenkreuz aus, so wird 
dieses entsprechende mit seinen drei Raumachsen in die 
Zeichenebene eingefügt. Bei entsprechender Wahl für 
Zoomen. Drehen oder Verschieben, wird jeweils ein weite¬ 
res Menue aufgerufen. Diese Menues fragen jeweils nach 
entsprechenden Werten für die x-, y- und z-Kompo¬ 
nenten. 

Beim Zoomen kann das in INSTALLIEREN definierte 
Objekt in x-, y-, z-Richtung um den Ursprung vergrößert 
werden. Der neutrale Faktor beim Zoomen ist der Wert 1: 
Soll das Objekt in einer Richtung unverändert bleiben, so 
muß für diese Komponente dieser Wert eingegeben wer¬ 
den. Einer der besonderen Fälle des Zoomens ist die Ein¬ 
gabe von 1 1 1, welche das Objekt nicht verändert; 0 1 1 be¬ 
deutet einen Schnitt in der yz-Ebene. 1 0 1 in der xz-Ebene 
und 1 1 0 in der xy-Ebene. 

Für das Verschieben gilt formell dasselbe. Das neutrale 
Element hierbei ist der Wert 0 - in allen anderen Fällen 
wird das Objekt entsprechend in x-, y-, z-Richtung ver¬ 
schoben. Wird also 0 0 0 eingegeben, so bleibt das 
Objekt unverändert. 

So, nun kommen wir zum letzten, schönsten und langsam¬ 
sten, da kompliziertesten Befehl: dem Drehen. Hier wer¬ 
den nun die Winkel für die Drehung um die x-, y- und z- 
Achsen erwartet. Das neutrale Element der Drehung ist 
der Winkel 0. Sonderfälle für die Drehung sind die Einga¬ 
ben von 0 0 0 oder 360 360 360, die das Objekt unverändert 
lassen. Die DREHEN-Prozedur ist die zeitaufwendigste, 
da viele Berechnungen durchgeführt werden müssen. 
Wenn nun eine der Aktionen fertig ausgeführt worden ist. 
erscheint sofort das nächste Menue. Dieses stellt uns wie¬ 
der vor vier Entscheidungen. Fangen wir hier mit der ein¬ 
fachsten und familienfreundlichsten Auswahl an: 

Wenn Sie das Programm nun schon mehrere Stunden in 
der "Mache’' haben und Sie sich vor Begeisterung kaum 
losreißen können - dies zum Erhalt des Hausfriedens aber 
immer dringlicher wird, so sollten Sie ein V, gefolgt von 
<RETURN>, eingeben. Dieser Befehl bricht das 
Programm ab. Sollten Sie nicht von diesem Umstand be¬ 
drängt sein, so können Sie die restlichen Menue-Eingabcn 
ausprobieren. 
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Die Eingabe von V bemächtigt Sie, das Objekt weiter zu 
bearbeiten. Dabei wird die letzte Darstellung des Objekts 
zu Grunde gelegt, d.h., war das Objekt schon gedreht, ge- 
zoomt oder verschoben worden, so wird von dieser letzten 
Objektdarstellung aus weitergearbeitet. Hier kann auch 
entschieden werden, ob der Bildschirm gelöscht oder die 
alte(n) Darstellung(en) erhalten bleiben soll(en). 

Bei der Eingabe von n\ für Neuanfang, wird der Bild¬ 
schirm gelöscht und das Objekt wieder neu installiert. Die¬ 
ses ist zu empfehlen, wenn man sich bei der Veränderung 
des Objekts aus dem Bildschirm herausgearbeitet hat. 
Als letztes in diesem Menue bleibt einem noch die 
Möglichkeit, sein geschaffenes Bild auf Diskette zu spei¬ 
chern, um es für die Nachwelt zu erhalten. Dieses wird, 
durch die Eingabe eines V realisiert. Nach Eingabe des 
Dateinamens ohne Dateityp wird es auf die Diskette im 
Laufwerk A. als Logo-Bild-Datei (PICture-File) abgespei¬ 
chert. Diese können später unter Logo mit der Standard¬ 
prozedur LOADPIC NAME wieder eingeladen werden. 
Als letztes bleibt noch zu erwähnen, wie man das erschaf¬ 
fene Bild auf den Drucker ausgeben kann. Da es für den 
Joyce keine mir bekannte Logo-Prozedur gibt, die das Bild 
auf den Drucker ausgibt, muß man sich mit folgendem be¬ 
helfen: Bei gleichzeitiger Betätigung der Tastenkombi¬ 
nation <EXTRA> und <PTR> wird vom Bildschirm 
eine Hardcopy erstellt. Diese Funktion gilt beim Joyce all¬ 
gemein und ist nicht nur auf die Programmiersprache 
Logo begrenzt. 


habt haben. Zu technischen Zeichnungen gehören oft 
Darstellungen der Werkstücke in verschiedenen Ansich¬ 
ten. Diese Darstellungen müssen konstruiert werden, und 
dazu braucht man einiges an Übung und Vorstellungsver- 
mögen, um sich z.B. Werkstücke, die man von vorne be¬ 
trachtet, von der Seite vorzustellen. Hier könnte das 
Programm zur Arbeitserleichterung genutzt werden, um 
z.B. kleinere Werkstücke zu drehen und dann zu 
betrachten. 

Ein weiteres Einsatzgebiet wird für jeden Schüler interes¬ 
sant sein, der sich irgendwann im Verlauf seines Schüler¬ 
oder Studentenlebens mit linearer Algebra, also mit 
Vektorrechnung, beschäftigen muß. Bei der Darstellung 
von Vektoren befindet man sich oft im dreidimensionalen 
Raum, so daß dieses Programm als Darstellungsmedium 
für Vektoren genutzt werden kann. 

Drittens kann man sich dieses Programm als primitives 
CAD-System vorstellen und sich daraus einige Dinge für 
eigene Projekte abschauen. 

Auch möchte ich daraufhinweisen, daß die Programmie¬ 
rung von Grafik nach meiner Meinung eines der interes¬ 
santesten Gebiete ist, und es sich schon deshalb lohnt, sich 
damit zu beschäftigen. 

Dies sind nur einige Anregungen dafür, wie das Programm 
verwendet werden kann. Es lassen sich bestimmt auch 
noch andere Gebiete finden, bei denen das Programm zu 
gebrauchen ist. 
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Was leistet das Programm? 


Das Programm kann Objekte, die im Prozedurteil 
INSTALLIEREN festgelegt werden, auf dem Bildschirm 
als Drahtgittermodel darstellen. Die Darstellung erfolgt in 
der 45-Grad-Perspektive. Die dargestellten Objekte kön¬ 
nen in folgenden Variationen weiter bearbeitet werden: 
Sie können, wie schon beschrieben, um die Raumachsen 
gedreht werden. Die Drehung kann variiert werden, z.B. 
nur um eine, zwei oder um alle drei Achsen gleichzeitig. 
Die Objekte können in x-, y- und z-Richtung vergrößert 
(gezoomt) werden. Dieses kann jeweils auch nur in einer 
oder mehreren gewünschten Richtung(en) erfolgen. 

Die Objekte können in Richtung aller drei Raumachsen 
verschoben werden. 

Die Objekte können, jeweils von ihrer ursprünglichen oder 
letzten Darstellung aus, bearbeitet werden. 

Der Bildschirm kann, je nach Wunsch, nach jeder Bear¬ 
beitung gelöscht oder stehengelassen werden. 

Die entstandenen Bilder können auf Diskette gespeichert 
werden. 

Das Bild kann auf den Drucker als Hardcopy ausgegeben 
werden. 

Sämtliche Befehlssteuerungen können über Menue ange¬ 
wählt werden; bis auf die Hardcopy, für die die Tasten¬ 
kombination <EXTRA> und <PTR> zuständig ist. 


Anwendungen für das Programm? 


Einige von Ihnen werden sich sicher Fragen über die 
Brauchbarkeit des Programms stellen. Um die Zweifel 
darüber etwas zu beseitigen, bringe ich Ihnen ein paar 
Beispiele: 

Jeder, der sich mit Elektronik oder Metallbearbeitung be- 
faßt, wird schon mit technischen Zeichnungen zu tun ge- 


Hier sollen im Ungefähren die mathematischen Grundla¬ 
gen für das Programm besprochen werden. Diese Be¬ 
schreibung erhebt keinen Anspruch auf Vollständigkeit 
oder Fehlerlosigkeit Es kann in dieser Beschreibung auch 
nur ein kleiner Abriß dessen erfolgen, was an Aufwand 
hinter diesem Problem steckt. 

Ein Vektor im dreidimensionalen Raum wird mit der An¬ 
gabe von drei Größen genau beschrieben. Diese Größen 
sind die x-, y- und z-Komponenten des Vektors. Schriftlich 
dargestellt wird dieser in runden Klammern, in denen die 
Komponenten untereinander aufgeführt sind: die x- 
Komponente als oberste Zahl, die y-Komponente als mitt¬ 
lere und die z-Komponente als letzte. So bedeutet z.B.: 

1 

2 

3 

daß man von irgendeinem Punkt im Raum, dem Anfangs¬ 
punkt des Vektors, eine Einheit nach rechts gehen muß 
(x-), zwei Einheiten nach oben (y-) und drei Einheiten nach 
hinten (z-), um den Endpunkt zu erreichen. Wenn man 
sich von dem Anfangspunkt zu dem Endpunkt einen Pfeil 
vorstellt, so haben Sie die zeichnerische Darstellung des 
Vektors. Der Anfangspunkt sämtlicher Vektocen bezieht 
sich auf den Ursprung des Koordinatensystems. 

Die Koordinaten der Punkte, die wir im Prozedurteil ein¬ 
gegeben haben, werden nun durch Vektoren dargestellt, 
die im Koordinatenursprung entstehen und auf diesen 
Punkt zulaufen. Diese Vektoren lassen sich nun in folgen¬ 
der Weise mit den Prozeduren des Programms verän¬ 
dern: 

Wird die Prozedur ZOOMEN z.B. mit den Faktoren 2, 1 
und 3 für die x-, y- und z-Komponenten aufgerufen, und 
sind die Punkte z.B. als folgende Vektoren im 
Programm enthalten, 

10 30 50 20 30 20 
20 40 10 10 20 80 
50 40 30 40 10 0 
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llillijl so werden die x-Werte der Vektoren mit 2, die der y-Werte 
llllUll mit 1, die z-Werte mit 3 multipliziert und wir erhalten: 
jji.iMi 20 60 100 40 60 40 

20 40 10 10 20 so 
150 120 90 120 30 0 


Wenn Sie das Ergebnis auf dem Bildschirm betrachten, so 
'l.ll'li werden Sie feststellen, daß das Objekt sich in der Breite 
'biil 1 verdoppelt hat und doppelt so weit in der x-Richtung vom 
;|j|;||; Ursprung entfernt ist. Die Höhe ist geblieben, die Tiefe hat 
ijiHiii sich verdreifacht und das Objekt hat sich in der z- 
Richtung um das Dreifache verschoben. Dieses kommt da- 
iniitll her, daß die x-Komponenten je verdoppelt, die y-Kompo¬ 
nenten unverändert blieben und die z-Komponenten ver¬ 
dreifacht wurden. 

Bei Aufruf der Prozedur VERSCHIEBEN mit den Werten 
12, 34 und 50 werden die Vektoren: 

10 30 50 20 30 70 
20 40 10 10 20 80 
50 40 30 40 10 0 


wie folgt verändert. Zu den x-Komponenten wird 10 ad¬ 
diert, zu den y-Komponenten 34. und zu den z-Komponen¬ 
ten 50. Es ergeben sich folgende Vektoren: 

22 32 62 32 32 82 

11,11,11 54 74 44 44 54 114 

100 90 so 90 60 50 

,11111 Bei Betrachtung des Bildschirms ergibt sich folgende 
Veränderung: 

1 IÜÜI 1 Das Objekt hat sich um 12 Einheiten nach rechts, um 34 
ilüll!: Einheiten nach oben und um 50 Einheiten nach hinten 
'Ml! verschoben. 

1111 lll 

Nun kommen wir zum mathematischen Prunkstück des 
Programms, der Prozedur DREHEN. Diese Prozedur 
']|j] ( 'li kann die Vektoren um die x-, y- und z-Achse drehen. Um 
diese Prozedur mathematisch zu erklären, müssen wir 

11,11,11 noch über den Begriff der Matrix Bescheid wissen. Eine 
Ijjjjji 1 Matrix ist sozusagen eine Zusammenfassung mehrerer 
{1,11,11 Vektoren. Bei dieser Prozedur gibt es nun gleich zwei von 
ilüilü diesen Matrizen. Die erste Matrix entsteht, wenn man die 
ganzen x-Komponenten der Punktvektoren untereinan- 
,| uji der schreibt. Daneben schreibt man die ganzen y- 
'|jjjj;i Komponenten untereinander und daneben dann die gan- 
;;;jjjji' zen z-Komponenten. Die Matrizenschreibweise ist prak- 
,|j"||i tisch nur eine besondere Darstellungsart für mehrere 
lü" Vektoren. Matrizen werden wie Vektoren in runden Klam- 
jj][[]ll mern dargestellt. So erhalten wir für unser bisheriges Bei- 
spiel folgende Schreibweise: 
iül! 10 20 50 

''Ml! 30 40 40 

50 10 30 

.. 20 10 40 

ilüll.. 30 20 10 

ü:::: 20 so 0 




Ijiinii 

iüiiü 


Jetzt benötigen wir für unsere DREHEN-Prozedur noch 
eine zweite Matrix. Diese Matrix enthält Werte, deren Be¬ 
rechnung in den tiefsten Dschungel der linearen Algebra 
führen würde. Die Herleitung dieser Berechnungen würde 
den Rahmen dieses Beitrages sprengen. Also müssen Sie 
die folgenden Tatsachen als gegeben hinnehmen. Die Pro¬ 
zedur DREHEN benötigt alle drei Drehwinkel um die je¬ 
weiligen Achsen, die dann lauten: 


„l'jüj x-Winkel, um den das Objekt um die X-Achse gedreht 
'j' 1 ! 1 !! wird. 

iS y-Winkel. um den das Objekt um die Y-Achse gedreht 

1 , 11,11 wird. 

jjjj[" z-Winkel, um den das Objekt um die Z-Achse gedreht 
iMl'li wird._ 


Wenn diese Voraussetzungen erfüllt sind, erhalten wir 
folgende Drehmatrix: 

cos(x)*cos(z)-sin(x)*sin(y)*sin(z) sin(x)*cos(y) cos(x)*sin(z)+sin(x)*sin(y)*cos(z) 

-sin(x)*cos(z)-cos(x)*sin(y)*sin(z) cos(x)*cos(y) -sin(x)*sin(z)+cos(x)*sin(y)*cos(z) 

-cos(y)*sin(z) -sin(y) cos(y)*cos(z) 

Wenn wir nun die Winkel angeben, können wir die 
Drehmatrix erstmal ausrechnen. Als Drehwinkel sei z.B. 
für x90 Grad, für y 0 Grad und für z 90 Grad. Das Ergebnis 
sieht in Matrixform nun so aus: 

0 1 0 
0 0-1 
-10 0 

Die letzte Aktion, die uns nun noch bevorsteht, ist die Mul¬ 
tiplikation beider Matrizen. Zur Durchführung dieser 
Matrizenmultiplikation schreiben wir die Matrizen in fol¬ 
gender Weise hin: 





0 

1 

0 




0 

0 

-1 




-1 

0 

0 

10 

20 

50 

eOl 

e02 

e03 

30 

40 

50 

e04 

e05 

e06 

50 

10 

30 

e07 

e08 

e09 

20 

10 

40 

elO 

eil 

el2 

30 

20 

10 

el3 

el4 

el5 

20 

80 

0 

el6 

el7 

el 8 


Die Werte, die in der Mitte zwischen den beiden Matrizen 
stehen, sind die Ergebnisse eO 1 - e 1$. Diese werden folgen¬ 
dermaßen berechnet: 

Steht das Ergebnis e in der i-ten Zeile und in der k-ten 

Spalte, so muß man das erste Element der k-ten Spalte der 

Drehmatrix mit dem ersten Element der i-ten Zeile der 

Wertematrix multiplizieren. Dieser Vorgang wiederholt 

sich mit dem zweiten Element, und dann mit dem dritten 

Element. Alle drei Werte müssen nun nur noch addiert 

werden, um das Ergebnis zu erhalten. So ergeben sich z.B. 

folgende Werte für: 

e01=0*10+0*20+(-l)*50=-50 

e08= 1*50+0* 10+0*30 = 50 

el5=0*30+(-l)*20+0*10=-20 

und wir erhalten folgende Ergebnismatrix: 

-50 10 -20 

-40 30 -40 
-30 50 -10 
-40 20 -10 
-10 30 -20 
0 20 -80 

Aus dieser Ergebnismatrix lassen sich die Vektoren mit 
den gedrehten Koordinaten herauslesen, die dann lau- 

-50-40-30-40-10 0 
10 30 50 20 30 20 
-20 -40 -10-10 -20 -80 

Mit Beendigung dieses Schrittes ist die Prozedur DRE¬ 
HEN abgeschlossen. 


Einige Anmerkungen zum Logo-Editor 


Wenn während der Programmausführung ein Fehler ent¬ 
deckt wird, muß er korrigiert werden. Dies geschieht, 
indem wir die fehlerhafte Prozedur mit ed ”Prozedurname 
zum Editieren aufrufen. Nach diesem Aufruf befindet 
man sich im Edit-Modus und die Prozedur kann nun ver¬ 
bessert werden. Leider gelten bei Logo im Edit-Modus 
nicht die gewohnten Steuertasten, wie z.B. die Cursorta¬ 
sten - sie müssen über andere Tasten bedient werden. Die 
wichtigsten Bedienungselemente, die zum Editieren ge¬ 
braucht werden, sind: 
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<ALT>F 

Cursor um eine Stelle nach rechts bewegen. 

<ALT>B 

Cursor um eine Stelle nach links bewegen. 

<ALT>P 

Cursor um eine Stelle nach oben bewegen. 

<ALT> N 

Cursor um eine Stelle nach unten bewegen. 

<ALT>A 

Cursor zum Zeilenanfang bewegen. 

<ALT>E 

Cursor zum Zeilenende bewegen. 

<ALT> H 

links von Cursor löschen. 

<ALT> D 

rechts von Cursor löschen. 

<ALT>K 

von Cursor bis zum Zeilenende löschen. 

<ALT>R 

setzt den Cursor an die linke obere Anfangsposition. 
<ALT> O 

bringt den Rest der Zeile ab den Cursor in die nächste 
Zeile. 

<ALT> C 

beendet das Editieren und kehrt in den normalen 
Modus zurück. 

<ALT>G 

bricht das Editieren ab, ohne die gemachten Änderungen 
zu berücksichtigen. 

Erläuterungen zum Programmteil 
HALPTPROGRAM: 

10HAUPTPROGRAM ruft folgende Prozeduren auf: 

INSTALLIEREN 

MENUEI 

MENUE2 

HAUPTPROGRAM wird von folgenden Prozeduren 
aufgerufen: 

MENUE2 

Verwendete Variablen sind: keine 

Zeile 1 

Prozeduranfang, Namensbezeichnung der Prozedur 

Zeile 2 

Einstellung des Bildschirms auf 3 Textzeilen 

Zeile 3 

Textbildschirm löschen 

Zeile 4 

Grafikbildschirm löschen 

Zeile 5 

Prozedur INSTALLIEREN aufrufen 
Zeile 6 

Prozedur MENUEI aufrufen 
Zeile 7 

Prozedur MENUE2 aufrufen 

Zeile 8 


llljli. 

Hl 

MH 

'lim 
.['in 

,11'H 

INSTALLIEREN ruft folgende Prozeduren auf: ii"" 11 

keine 


Erläuterungen zum Programmteil 
INSTALLIEREN: 


INSTALLIEREN wird von folgenden Prozeduren aufge¬ 
rufen: 

HAUPTPROGRAM 

Verwendete Variablen sind: 
xw 

Speicherung der X-Werte der eingegebenen Punkte 
yw 

Speicherung der Y-Werte der eingegebenen Punkte 
zw 

Speicherung der Z-Werte der eingegebenen Punkte 

indvek 

Speicherung der Zuordnungsvorschrift (in welcher Rei¬ 
henfolge die Punkte verbunden werden sollen) 

zm 

Speicherung des Zeichenmodus, mit dem die Punkte 
verbunden werden sollen. 

Zeile 1 


ii 1 "" 1 
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Prozeduranfang. Namensbezeichnung der Prozedur 

Zeile 2 

In xw werden alle X-Werte der eingegebenen Punkte ge¬ 
speichert. Z.B. bedeutet (10 20 30 10): X-Wert des ersten 
Punktes ist 10. des zweiten Punktes 20 usw. 

Zeile 3 

In yw werden alle Y-Werte der eingegebenen Punkte ge¬ 
speichert. (2040 30 20) bedeutet: Y-Wert des ersten Punktes 
ist 20, des zweiten Punktes 40, usw. 

Zeile 4 

In zw werden alle Z-Werte der eingegebenen Punkte ge¬ 
speichert, wie Zeile 2 und 3. 

Zeile 5 

In indvek wird die Zuordnungsvorschrift gespeichert, die 
angibt, in welcher Reihenfolge die Punkte verbunden 
werden. So bedeutet z.B.(l 2 3 41 5), daß eine Verbindungs¬ 
linie gezogen wird von dem Punkt, der in xw,yw,zw an er¬ 
ster Stelle steht, zu dem Punkt, der in xw,yw,zw an zweiter 
Stelle steht usw. 

Zeile 6 

In zm wird der Zeichenmodus abgespeichert, mit dem die 
Verbindungslinien gezeichnet werden sollen. So bedeutet 
z.B. (0 1 1 0 1) in Bezug auf Zeile 4, daß die Verbindungs¬ 
linie von Punkt 1 nach Punkt 2 unsichtbar gezeichnet 
werden soll, die Verbindung von 2 nach 3 sichtbar, von 3 
nach 4 sichtbar, von 4 nach 1 unsichtbar, usw. Es bedeuten 
also: 

1 sichtbare Verbindungslinien 

0 unsichtbare Verbindungslinien 

Die Liste von zm ist um eins kürzer als die von indvek. 

Zeile 7 

Prozedurende 



'ii"" 


im 





Allgemein: 

Zwingend ist, daß das 1-te Element von xw,yw,zw0istund. ,, ^ 
daß das 1-te Element von indvek 1 ist, da vom Ursprung "ij"|i 
aus begonnen wird. jj]j||jj 

II. 


Prozedurende 

to hauptprogram 
setsplit 3 
ct 
cs 


to installieren 



make 

"xw [0 10 50 

50 10 10 50 50 

10] 



make 

"yw [0 10 10 

20 20 10 10 20 

20] 


installieren 

make 

"zw [0000 

0 80 80 80 80] 



menuel 

make 

"indvek [ 1 2 

34526789 

6 9 5 

4 8 7 3] 

menue2 

make 

"zm C 0 1 1 1 

11111111 

1 1 1 

1] 

end 

end 
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Erläuterungen zum Programmteil MENUEI 


MENUEI ruft folgende Prozeduren auf: 

MENUEIZOOMEN 

MENUEIDREHEN 

MENUEIVERSCHIEBEN 

KOORDINATENKREUZ 

MENUEI wird von folgenden Prozeduren aufgerufen: 

HAUPTPROGRAM 

MENUE2 

MENUEI 

KOORDINATENKREUZ 

Verwendete Variablen sind: 

abfrage 

dient zur Abfrage der Tastatureingabe 


Zeile 1 

Prozeduranfang, Namensbezeichnung der Prozedur 
Zeile 2 + 3 

Ausgabe von Menuetext auf Bildschirm 

Zeile 4 

In die Variable wird über Tastatur ein Zeichen eingegeben 
Zeile 5 

Abfrage, ob eingegebenes Zeichen gleich Y oder ’Z’ ist. 
Wenn ja, so wird die Prozedur MENUEI-ZOOMEN 
aufgerufen 

Zeile 6 

Eingegebenes Zeichen gleich ’d' oder ’D' ? Wenn ja, wird 
die Prozedur MENUEIDREHEN aufgerufen 
Zeile 7 

MENUEIVERSCHIEBEN aufrufen? 

Zeile 8 

KOORDINATENKREUZ aufrufen? 

Zeile 9 

Prozedurende 


n 1 " 11 


llllll 

ll"l 1 


to menuel 

pr [Figur ist instaliert] 
pr [Figur CZ3 oomen, CD] rehen, 
[K] oordinatenkreuz zeichnen] 
make "abfrage rq 
if or (:abfrage = "Z> <!abfrage 
if or (:abfrage = "D> (:abfrage 
if or (:abfrage = "V> (:abfrage 
if or (:abfrage = "K> <:abfrage 
end 


[V] erschieben,oder 


"z) [ menuelzoomen] 

M d) [menueldrehen] 

"v> [ menue1verschieben] 
"k) [ koordinatenkreuz] 


Erläuterungen zum Programmteil MENUE2: 
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an 


iiiinii 

iiülin 


MENUE2 ruft folgende Prozedur auf: 

MENUEI 

MENUE2 

MENUE2MODUS 

MENUE2SPEICHERN 

HAUPTPROGRAM 

MENUE2 wird von folgenden Prozeduren aufgerufen: 

HAUPTPROGRAM 

MENUE2 

Verwendete Variablen sind: 

abfrage 

dient zur Abfrage der Tastatureingabe 


Zeile 1 

Prozeduranfang, Namensbezeichnung der Prozedur 
Zeile 2 + 3 

Ausgabe von Menuetext auf den Bildschirm 

Zeile 4 

In die Variable wird über die Tastatur eingegeben 

Zeile 5 

Objekt weiter bearbeiten? —* 

MENUE2MODUS und dann MENUEI aufrufen 

Zeile 6 

Neu anfangen? — HAUPTPROGRAMM 

Zeile 7 

Abbrechen? 

Zeile 8 

Bild speichern? — MENUE2SPEICHERN aufrufen 
Zeile 9 

Falls ein falsches Zeichen eingegeben worden ist, so ruft 
sich MENUE2 noch einmal selber auf 
Zeile 10 
Prozedurende 

to menue2 

pr [Figur [w] eiter bearbeiten, [N] euanfang, [A3 brechen, 
[B] ild speichern] 


pr [ ] 
makei 
if or 
if or 
if or 
if or 
meriue2 
end 


abfrage rq 
(: abfrage = 
C: abfrage = 
(.•abfrage = 
<:abfrage = 


1 w) (:abfrage = "V) [ menue2raodus menue13 
1 n) (:abfrage = "N> [hauptprogram] 

’a) <:abfrage = "A> [stop] 

1 b) (:abfrage = "B> [ menue2speichern3 


Erläuterungen zum Programmteil 
MENUEI ZOOMEN: 

MENUEIZOOMEN ruft folgende Prozeduren auf: 

ZOOMEN 

MENUEI ZOOMEN wird von folgenden Prozeduren 
aufgerufen: 

MENUEI 

Verwendete Variablen sind: 

eingabe 

Tastaturabfrage. Liest eine Liste von drei Werten über die 

Tastatur ein 

zoomx 

Enthält den Zoomfaktor, um den die Figur in X-Richtung 
vergrößert werden soll 

zoomy 

Enthält den Zoomfaktor, um den die Figur in Y-Richtung 
vergrößert werden soll 

zoomz 

Enthält den Zoomfaktor, um den die Figur in Z-Richtung 
vergrößert werden soll 

Zeile 1 

Prozeduranfang, Namensbezeichnung der Prozedur 
Zeile 2 + 3 

Ausgabe von Menuetext auf den Bildschirm 

Zeile 4 

In eingabe wird eine Liste von drei Werten eingelesen. Die 
Eingabe muß mit <RETURN> abgeschlossen werden 
Zeile 5 

Der Variable zoomx wird das erste Element der Eingabeli¬ 
ste zugewiesen 

Zeile 6 

Der Variable Zoomy wird das zweite Element der Einga- 
beliste zugewiesen 
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Zeile 7 

Der Variable zoomz wird das dritte Element der Einga¬ 
beliste zugewiesen 

Zeile 8 

Prozedur ZOOMEN aufrufen 
Zeile 9 

Prozedurende 

to menuelzoomen 

pr [x,y,z Werte zum zoomen eiageben. Z,b 2 2 3 
< return >] 

pr CDie Eingabe von 111 ergibt kein Zoomen] 

make "eingabe rl 

make "zoorax item 1 :eingabe 

make "zoomy item 2 .-eingabe 

make “zoomz item 3 :eingabe 

zoomen 

end 


Erläuterungen zum Programmteil 
MENUEI VERSCHIEBEN: 

MENUEI VERSCHIEBEN ruft folgende Prozeduren auf: 
VERSCHIEBEN 

MENUEI VERSCHIEBEN wird von folgenden Proze¬ 
duren aufgerufen: 

MENUEI 

Verwendete Variablen sind: 

eingabe 

Tastaturabfrage. Liest eine Liste von drei Werten über die 
Tastatur ein 

mx 

Enthält den Verschiebungsfaktor, um den die Figur in X- 
Richtung verschoben werden soll 

my 

Enthält den Verschiebungsfaktor, um den die Figur in Y- 
Richtung verschoben werden soll 

mz 

Enthält den Verschiebungsfaktor, um den die Figur in Z- 
Richtung verschoben werden soll 

Zeile 1 

Prozeduranfang, Namensbezeichnung der Prozedur 
Zeile 2 + 3 

Ausgabe von Menuetext auf dem Bildschirm 
Zeile 4 

In Eingabe wird eine Liste von drei Werteneingelesen. Die 
Eingabe muß mit <ENTER> abgeschlossen werden 
Zeile 5 

Der Variable mx wird das erste Element der Eingabeliste 
zugewiesen 

Zeile 6 + 7 

Wie 5, jedoch für my (zweites Element) bzw. mz (drittes 
Element) 

Zeile 8 

Prozedur VERSCHIEBEN aufrufen 
Zeile 9 

Prozedurende 

to menueiverschieben 

pr t x,y,z Verte zum verschieben eingeben. Z.b 20 30 40 
< return >3 

pr [Die Eingabe von 000 ergibt keine Verschiebung] 

make "eingabe rl 

make "mx item 1 .-eingabe 

make “my item 2 :eingabe 

make "mz item 3 :eingabe 

verschieben 

end 


Erläuterungen zum Programmteil 
MENUEIDREHEN: 

MENUEIDREHEN ruft folgende Prozeduren auf: 

DREHEN 

MENUEI DREHEN wird von folgenden Prozeduren auf¬ 
gerufen: 

MENUEI 

Verwendete Variablen sind: 

eingabe 

Liste von drei Werten, über Tastatur eingegeben 
x 

Drehwinkel um X-Achse 
y 

Drehwinkel um Y-Achse 
z 

Drehwinkel um Z-Achse 

Zeile 1 

Prozeduranfang, Namensbezeichnung der Prozedur 
Zeile 2 + 3 

Ausgabe von Menuetext auf den Bildschirm 

Zeile 4 

In eingabe wird eine Liste von drei Werten eingelesen. Die 
Eingabe muß mit <RETURN> abgeschlossen werden 
Zeile 5 

Der Variable x wird das erste Element der Liste zugewiesen 
Zeile 6 + 7 

wie 5, jedoch für y und z. 

Zeile 8 

Prozedur DREHEN aufrufen 
Zeile 9 

Prozedurende 
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to menueldrehen 
pr [x,y,z Winkel zum drehen 
eingeben. Z.b 45 90 60 
< return >] 

pr [Die Eingabe von 000 
ergibt keine Drehung] 


make "eingabe rl 

make "x item 1 :eingabe 

make “y item 2 :eingabe 

make "z item 3 :eingabe 

drehen 

end 


.1111111 
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Erläuterungen zum Programmteil 
KOORDINATENKREUZ: 

KOORDINATENKREUZ ruft folgende Prozeduren auf: 
MENUEI 

KOORDINATENKREUZ wird von folgenden Prozeduren 
aufgerufen: 

MENUEI 

Verwendete Variablen sind: keine 

Zeile 1 

Prozedurantang, Namensbezeichnung der Prozedur 
Zeile 2 

Die Schildkröte wird unsichtbar gemacht 

Zeile 3 

Der Zeichenstift der Schildkröte wird deaktiviert 

Zeile 4 

Die Schildkröte wird auf ihre Anfangskoordinaten (0 0) 
gesetzt 

Zeile 5 

Der Zeichenstift der Schildkröte wird aktiviert 
Zeile 6 + 7 

Die Y-Achse wird gezeichnet 
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Zeile 8 
wie 4 

Zeile 9+10 

Die X-Achse wird gezeichnet 

Zeile 11 

wie 4 

Zeile 12 + 13 

Die Z-Achse wird gezeichnet 

Zeile 14 
wie 4 
Zeile 15 

Die Prozedur MENUEI wird aufgerufen 

Zeile 16 

Prozedurende 


to koordlnatenkreuz 

ht 

pu 

Lome 

pd 

setpos CO 270) 
setpos CO -270) 
home 


setpos C 330 0) 
setpos [-330 0) 
home 

setpos C 270 270) 

setpos [-270 -270) 

home 

menuel 

end 


Erläuterungen zum Programmteil 
M MENUE2MODUS: 

iimiii 
•||M > 

MENUE2MODUS ruft folgende Prozeduren auf: keine 

llllll' 

| | "l| 

1 !|!!Ü MENUE2MODUS wird von folgenden Prozeduren auf- 

IImIIii r 

■llllll! gerufen: 

"T MENUE2 

m Ilm 

Verwendete Variablen sind: 
abfrage: Tastaturabfrage 
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Zeile 1 

Prozeduranfang. Namensbezeichnung der Prozedur 
Zeile 2 + 3 

Ausgabe von Menuetext auf dem Bildschirm 

Zeile 4 

Ein Zeichen in abfrage einiesen. Die Tastatureingabe muß 
mit <RETURN> abgeschlossen werden 

Zeile 5 

Grafikbildschirm löschen? 

Zeile 6 

Figur stehen lassen? Schildkröte deaktivieren und (0 0) 
setzen 

Zeile 7 

Prozedurende 


i| | ||'|| to menue2modus 

ljü|| (| pr [Bildschirm CL3 oesche oder [ S) tehen lassen) 
iiiiiin pr [ ] 

11""" make "abfrage rq 

if or (: abfrage = "L> (: abfrage = "1> Ccs) 
ll!!!!, 1 ! if or (: abfrage = "S> (: abfrage = "s> [ pu home) 
iiiiiin end 


Erläuterungen zum Programmteil 


'UM! MENUE2SPEICHERN ruft folgende Prozeduren auf: 
llllli" keine 
ll.llill C 

ällljl MENUE2SPEICHERN wird von folgenden Prozeduren 
aufgerufen: 

: ; MENUE2 _ 


Verwendete Variablen sind: keine 

Zeile 1 

Prozeduranfang, Namensbezeichnung der Prozedur 
Zeile 2 + 3 

Ausgabe von Menuetext auf dem Bildschirm 

Zeile 4 

In dieser Zeile der Prozedur wird in rq ein Wort von der 
Tastatur eingelesen. Die Eingabe des Wortes muß mit 
<RETURN> abgeschlossen werden. 

Dieses eingegebene Wort wird als Namenskennzeichnung 
der Bild-Datei genommen, die mit SAVEPIC abgespeichert 
wird 
Zeile 5 

Prozedurende 

to memie2speichern 

pr [Namen eingeben unter den das Bild abgespeichert 
werden soll.Laufwerk ist Standartlaufwerk] 
pr [Z.b testbild oder grafik < return >) 
savepic rq 
menue2 
end 


Erläuterung zum Programmteil ZOOMEN: 

ZOOMEN ruft folgende Prozeduren auf: 

ZEICHNEN 

ZOOMEN wird von folgenden Prozeduren aufgerufen: 

MENUEI 

Verwendete Variablen sind: 

n 

Wiederholungswert, wie oft die REPEAT-Schleife durch¬ 
laufen werden muß 

k 

Laufindex der Schleife 
zw 

Liste mit den X-Werten der zu berechnenden Punkte 
yw 

Liste mit den Y-Werten der zu berechnenden Punkte 
zw 

Liste mit den Z-Werten der zu berechnenden Punkte 

xwl 

Liste zur Zwischenspeicherung der neuen X-Werte 
ywl 

Liste zur Zwischenspeicherung der neuen Y-Werte 
zwl 

Liste zur Zwischenspeicherung der neuen Z-Werte 

wert 

Beinhaltet den veränderten Wert des aktuellen Punktes 
zoomx 

Enthält den Wert, um den in X-Richtung vergrößert wird 
zoomy 

Enthält den Wert, um den in Y-Richtung vergrößert wird 
zoomz 

Enthält den Wert, um den in Z-Richtung vergrößert wird 

Zeile 1 

Prozeduranfang, Namensgebung der Prozedur 

Zeile 2 

In n wird die Anzahl der Elemente, die in xw enthalten 
sind, gespeichert 

Zeile 3 

Der Laufindex k bekommt den Wert 1 

Zeile 4-6 

xwl, ywl und zwl werden zu leeren Listen ge macht 
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Zeile 7 

Die Schleife wird n-mal wiederholt. In jedem Schleifen- 
durchlauf bekommt die Variable wert das k-te Element der 
Liste xw zugeordnet, multipliziert mit dem Vergrößerungs¬ 
faktor zoomx. Die Hilfsvariable xwl wird von hinten mit 
der Variable wert ergänzt. Der Laufindex k wird um 1 
erhöht 
Zeile 8 

Die aktualisierten Werte in xwl werden nach xw übertragen 
Zeile 9 

Der Laufindex k wird wieder auf 1 gesetzt 

Zeile 10-12 

Der Vorgang von Zeile 7-9 wiederholt sich hier entsprechend 
mit yw und ywl 

Zeile 13+14 

Wiederholung entspricht der mit zw und zwl 

Zeile 15 

Die Prozedur ZEICHNEN wird aufgerufen 
Zeile 16 
Prozedurende 

to zoomen 
make "n count : xw 
make "kl 


Zeile 7 ;!||;!|j 

Die Schleife wird (n-l)-mal wiederholt. In jedem Schlei- """II 
fendurch lauf bekommt die Variable wert das k-te Element üi'jüjj 
der Liste xw zugeordnet, addiert mit dem Verschiebungs- jj'll'|j 
laktor mx. Die Hilfsvariable xwl wird von hinten mit der II""" 
Variable wert ergänzt. Der Laufmdex k wird um 1 erhöht. 

Das 1-te Element der Liste in xw wird nicht bearbeitet, ||. 

weshalb k=2 gesetzt wird. In xwl wird das l-te Element zu ll'ljl!' 
Null (Zeile 4) !ljj 

ZeUe 8 _ üir 

Die aktualisierten Werte in xwl werden nach xw übertragen 
Zeile 9 b I 1 " '' 

Der Laufindex k wird wieder auf 2 gesetzt 

Zeile 10-12 

Der Vorgang von Zeile 7-9 wiederholt sich hier entspre¬ 
chend mit yw und ywl 

Zeile 13 + 14 

Der Vorgang von Zeile 7 - 9 wiederholt sich hier entspre¬ 
chend mit zw und zwl 
Zeile 15 

Die Prozedur ZEICHNEN wird aufgerufen 

16 Prozedurende 


make "xwl [ ] 
make "ywl [ ] 
make "zwl [] 

repeat : n [make "wert (item :k :xw) * :zoomx make "xwl 
lput :wert :xwl make "k : k + 1 ] 
make "xw :xwl 
make "kl 

repeat :n [make "wert (item :k : yw) * :zoomy make "ywl 
lput :wert :ywl make "k ;k + 1] 
make "yw : ywl 
make "kl 

repeat :n [make "wert (item :k :zw) <■ : zoomz make "zwl 
lput :wert ;zwl make “k :k + 13 
make "zw : zwl 
zeichnen 
end 


Erläuterungen zum Progranimteil 
VERSCHIEBEN: 

VERSCHIEBEN ruft folgende Prozeduren auf: 
ZEICHNEN 

VERSCHIEBEN wird von folgenden Prozeduren aufge¬ 
rufen: 

MENUEI 

Verwendete Variablen sind: 

n 

Anzahl Schleifendurchläufe 

k 

Laufmdex innerhalb der Schleife 
xw,yw, zw,xwl, ywl,zwl, 
wert siehe ZOOMEN 
mx,my, mz 

Enthalten die Werte, um die in die entsprechende Rich¬ 
tungen verschoben wird 


to verschieben 
make "n count :xw 
make "k 2 
make "xwl [03 
make "ywl [03 
make "zwl [03 

repeat :n - 1 [make "wert (item :k : xw) + : mx make "xwl 
lput : wert : xwl make "k :k + 13 
make "xw :xwl 
make "k 2 

repeat :n - 1 [make "wert (item :k : yw) + : my make “ywl 
lput .-wert :ywi make "k : k + 13 
make "yw :ywl 
make "k 2 

repeat :n - 1 [make "wert (item : k : zw) + : mz make "zwl 
lput :wert :zwl make "k :k + 13 
make "zw :zwl 
zeichnen 
end 


Erläuterungen zum Programmteil DREHEN: 

DREHEN ruft folgende Prozeduren auf: 

ZEICHNEN 
DREHEN UNTER 

DREHEN wird von folgenden Prozeduren aufgerufen: 
MENUEI 

Verwendete Variablen sind: 

n 

Anzahl Schleifendurchläufe 

k 

Laufmdex der Schleife 
xw,yw zw,xwl, ywl,zwl 
wie gehabt 

Zeile 1 
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Zeile 1 

Prozeduranfang, Namensbezeichnung der Prozedur 

Zeile 2 

In n wird die Anzahl der Elemente, die in xw enthalten 
sind, gespeichert 
Zeile 3 

Der Laufindex k bekommt den Wert 2 

Zeile 4-6 

In xwl, ywl und z wl wird jeweils eine Null eingetragen 


Prozeduranfang, Namensbezeichnung der Prozedur 

Zeile 2 

In n wird die Anzahl der Elemente, die in xw enthalten 
sind, gespeichert 
Zeile 3 

Der Laufindex k bekommt den Wert 1 

Zeile 4-6 

xwl, ywl und zwl werden zu leeren Listen gemacht 
Zeile 7 

Die Schleife wird n-mal wiederholt. In jedem Durchlauf 
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wird die Prozedur DREHENUNTER aufgerufen 

Zeile 8-10 

Die aktualisierten Werte von xwl, ywl, zwl werden ent¬ 
sprechend nach xw, yw und zw übertragen 

Zeile 11 

Die Prozedur ZEICHNEN wird aufgerufen 

Zeile 12 

Prozedurende 

to drehen 

make "n count :xw 

make "kl 

make "xwl U 

make “ywl [] 

make “zwl tl 

repeat :n C drehenunter] 

make "xw : xwl 

make ”yw : ywl 

make “zw : zwl 

zeichnen 

end 


Erläuterungen zum Programm teil 
DREHEN UNTER: 

Ü;Ü DREHENUNTER ruft folgende Prozeduren auf: keine 
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DREHENUNTER wird von folgenden Prozeduren auf¬ 
gerufen: 

DREHEN 

Verwendete Variablen sind: 

k 

Laufindex 

xw,yw, zw,xwl, ywl,zwl 

wie gehabt 

wert 

Enthält den aktualisierten Wert der zu berechnenden 

Punkte 

x 

Enthält den Drehwinkel in X-Richtung 

y 

Enthält den Drehwinkel in Y-Richtung 
z 

Enthält den Drehwinkel in Z-Richtung 

COX 

Enthält den Cosinus von x 
coy 

Enthält den Cosinus von y 

coz 

Enthält den Cosinus von z 
six 

Enthält den Sinus von x 
siy 

Enthält den Sinus von y 
siz 

Enthält den Sinus von z 

Zeile 1 

Prozeduranfang, Namensbezeichnung der Prozedur 

Zeile 2-7 

Die Variablen cox, coy und coz erhalten die Cosinus-Werte 
von x, y und z. Entsprechen den Variablen six, siy und siz 

Zeile 8 + 9 

Hier wird der X-Wert des gedrehten Punktes berechnet 

ZeilelO 

Der X-Wert wird in xwl zwischengespeichert 

Zeile 11 + 12 

Entsprechend für den Y-Wert des gedrehten Punktes 


Zeile 13 - 15 

Hier wird der Z-Wcrt des gedrehten Punktes berechnet und 
zwischengespeichert 

Zeile 16 

Der Laufindex k wird um 1 erhöht 

Zeile 17 

Prozedurende 


to drehenunter 
make "cox cos : 
'coy cos : 
'coz cos : 
"six sin ; 
"siy sin : 
"siz sin : 


make 

make 

make 

make 

make 


* 

: zw 


(-1 * :six ■* : coz - 
) * -1 * : coy * :siz 


make "wert (Item :k :xw) * (:cox * : coz - :six * :siy 
* :siz) 

make "wert : wert + (item :k : yw) 

:cox * ;siy * :siz) + (item :k 
make "xwl lput : wert : xwl 
make "wert (item :k : xw) * :six * 

:cox * :coy + (item :k : zw) * -1 
make "ywl lput :wert : ywl 
make "wert (item :k : xw) * (:cox i 
: coz) 

make "wert :wert + (item :k : yw) 

:cox * :siy * :coz) + (item :k 
make'"zwl lput :wert :zwl 
make "k :k + 1 
end 


coy + (item ;k :yw) * 
* '■ siy 

* rsiz + :six * :siy * 

*(-!*:six * :siz + 
zw > * :coy * : coz 


Erläuterungen /.um Progran ZEICHNEN: 


ZEICHNEN ruft folgende Prozeduren auf: 

ZEICHNENUNTER 

ZEICHNEN wird von folgenden Prozeduren aufgerufen: 

ZOOMEN 

DREHEN 

VERSCHIEBEN 

Verwendete Variablen sind: 

n 

Anzahl Schleifendurchläufe 

k 

Laufindex 

indvek 

Enthält die Zuordnungsvorschrift, wie die eingegebenen 
Punkte verbunden werden müssen 

Zeile 1 

Prozeduranfang, Namensbezeichnung der Prozedur 

Zeile 2 

Die Schildkröte wird unsichtbar gemacht 

Zeile 3 

Tn n wird die Anzahl der Elemente, die in indvek enthalten 
sind, gespeichert 

Zeile 4 

Der Laufindex k bekommt den Wert 1 

Zeile 5 

Die Schleife wird (n-l)-mal wiederholt. In jedem Durchlauf 
wird die Prozedur ZEICHNENUNTER aufgerufen 

Zeile 6 

Prozedurende 

to zeichnen 
ht 

make “n count :indvek 
make "kl 

repeat :n - 1 [zeichnenunter] 
end 
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Erläuterungen zum Programmteil 
ZEICHNENUNTER: 


ZEICHNEN UNTER ruit folgende Prozeduren auf: keine 

ZEICHNENUNTER wird von folgenden Prozeduren 
aufgerufen: 

ZEICHNEN 


Verwendete Variablen sind: 

k 

Laufindex 

kl 

Zeiger auf den Punkt, von dem aus gezeichnet wird 

k2 

Zeiger auf den Punkt, nach dem gezeichnet wird 

ank 

Ankathete des Dreiecks zwischen den Punkten, die durch 
kl und k2 bestimmt werden 

gegenk 

Gegenkathete des Dreiecks zwischen den Punkten, die 
durch kl und k2 bestimmt werden 

hyp 

Hypothenuse des Dreiecks zwischen den Punkten, die 
durch kl und k2 bestimmt werden 
wi 

Winkel zwischen der Hypothenuse und der Horizontalen 
kwi 

Korrigierter Winkel, wie er von der LOGO-Prozedur SETH 
benötigt wird 
xw,yw, zw 

Listen mit X-, Y- und Z-Werten der Punkte 

zm 

Liste mit dem Zeichenmodus: auf welche Art die Punkte 
verbunden werden sollen 


Zeile 1 

Prozeduranlang, Namensbezeichnung der Prozedur 

Zeile 2 

kl bekommt den k-ten Wert der Liste indvek zugewiesen, 
d.h. kl zeigt auf den Punkt, von dem aus gezeichnet wer¬ 
den soll 

Zeile 3 

k2 bekommt den (k+ l)-ten Wert der Liste indvek zugewie¬ 
sen, d.h. k2 zeigt aut den Punkt, zu dem gezeichnet 
werden soll 

Zeile 4 

ank bekommt den Wert der Ankathete des Dreiecks zwi¬ 
schen den beiden Punkten, wobei jeweils den X-Werten 
das Sinus(45)-fache und den Y-Werten das Cosinus(45)- 
fache zugeordnet wird, was in beiden Fällen 0.707 ist 

Zeile 5 

Hier wird in gleicher Weise wie in Zeile4 mit der Gegenka¬ 
thete verfahren 

Zeile 6 

Hier wird die Ankathete auf 4 Stellen hinter dem 
Komma gerundet 
Zeile 7 

Hier wird die Gegenkathete auf 4 Stellen hinter dem 
Komma gerundet. Dieses muß durchgeführt w r erden, da 
die im tolgenden zu berechnenden Winkel nicht zu sehr 
an den Wert 90 herankommen: z.B. 89.99999865417 

Zeile 8 

Wenn die Ankathete gleich Null ist, wird der Winkel der 
beiden Punkte zu 90 gemacht, denn die X-Koordinaten bei- 
der Punkte sind in diesem Fall gleich. In kwi wird der 


Winkel entsprechend der LOGO-Prozedur SETH korri¬ 
giert. Die Hypothenuse wird aus gegenk geteilt durch 
Sinus des Winkels' errechnet. Die Hypothenuse ist gleich¬ 
bedeutend der Entfernung der beiden Punkte 
Zeile 9 

Wenn die Gegenkathete gleich Null ist, so wird der Winkel 
der beiden Punkte zu Null gemacht, denn die Y- 
Koordinaten beider Punkte sind in diesem Fall gleich, kwi 
wird wieder entsprechend korrigiert. Die Hypothenuse er¬ 
rechnet sich hier aus ank geteilt durch Cosinus des Win¬ 
kels. Die in Zeile 8 und 9 beschriebenen Fälle sind Son¬ 
derfälle und müssen vor der weiteren Prozedurausfüh¬ 
rung abgefangen werden 
Zeile 10 

Wenn ank größer Null und gegenk ungleich Null ist, so 
wird der Winkel aus 'Arcustangens (gegenk) geteilt durch 
ank' errechnet. In kwi wird der Winkel korrigiert. Die Hy¬ 
pothenuse errechnet sich aus 'ank geteilt durch Cosinus 
des Winkels. Wenn die Hypothenuse negativ ist, so wird 
sie durch Multiplikation mit -1 positiv gemacht 
Zeile 11 

Wenn ank kleiner Null und gegenk ungleich Null ist, so 
wird entsprechend wie in Zeile 10 verfahren, kwi wird je¬ 
doch anders korrigiert 

Zeile 12 

Die Schildkröte wird entsprechend des korrigierten Win¬ 
kels kwi auf die Gradposition gesetzt 

Zeile 13 

Der Zeichenstift der Schildkröte wird wieder aktiviert 

Zeile 14 

Wenn das k-te Element der Liste zm eine Null (nicht zeich¬ 
nen) ist, so wird der Zeichenstift der Schildkröte wieder 
deaktiviert. Ist das Element eine Eins, so bleibt der Zei¬ 
chenstift aktiviert. 

Zeile 15 

Es wird eine Linie vom Punkt, der durch kl bezeichnet 
wird, nach dem Punkt, der durch k2 bezeichnet wird, 
gezogen 

Zeile 16 

Der Laufindex k wird um 1 erhöht 

Zeile 17 

Prozedurende 

to zeichnenunter 

make "kl item :k :indvek 

mke "k2 item :k + 1 ; indvek 

make "ank (<<item :k2 : xw) + 0.707 * (item : k2 :zw)) - 
((item :kl :xw) + 0.707 * (item :kl ;zw)>> 
make "gegenk (((item ; k2 : yw) + 0.707 * (item : k2 :zw)) - 
((item : kl : yw) + 0.707 * (item: kl : zw))) 
make "ank (round (;ank * 10000) / 10000 
make "gegenk (round (:gegenk # 10000) / 10000 
if : ank = 0 [make "wi 90 make "kwi 90 - :wi make "hvn 
igegenk / (sin :wi)] / * 

if :gegenk = 0 [make "wi 0 make "kwi 90 - : wi make "hyp 
:ank / (cos :wi)] 

if and (:ank > 0) (not (igegenk = 0)) [ make "wi arctan 
(:gegenk / :ank> make "kwi 90 - : w 
i make "hyp :ank / (cos :wi) if :hyp < 0 [make "hyp :hyp 

* (-1)] []] M 

if and (: ank < 0) (not (: gegenk = 0)) [make "wi arctan 
(:gegenk / :ank) make "kwi 270 - : 

wi make "hyp :ank / (cos :wi> if :hyp < 0 [make "hyp :hyp 

* (-1)3 [33 [) ™ 

seth :kwi 

pd 

if (item :k : zm) = 0 [pul [] 

f d :hyp 

mke "k :k + 1 

end 
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! Designer 



The Designer ist ein hervorragendes Grafikprogramm mit 
vielen Optionen, die dieses Tool in professionelle 
jjüjjü Gefilde heben. 

III;,’! Das Programm ist vollkommen menuegesteuert und be- 

I , 11 ;), nötigt keine Tastatureingaben, außer bei Texten. Anstelle 
illil|, eines Joysticks können die Cursortasten + Copy 

verwandt werden. 

Abfragen, die mit JA oder NEIN beantwortet werden müs¬ 
sen, können durch Joystick links (Nein) oder Joystick 
rechts (Ja) angewählt werden. 

>||||;|! Bei Zahlwerten (z.B. Zeichengeschwindigkeit) gilt das 
!||m |i gleiche: 

"tüi | Joystick links = kleinere Zahl 
"3 Joystick rechts = größere Zahl 

Die Bestätigung einer Eingabe erfolgt über die Feuer- bzw. 
!|jj!j! Copy-Taste. 

uijj!!' Während des Zeichnens ist daraufzu achten, daß die Cur- 
sorgeschwindigkeit bei anhaltendem Tastendruck zu¬ 
nimmt. So kann man schnelle und präzise Bewegungen 

’iiH'li vornehmen. 

111111 . 

Am unteren Bildrand befindet sich ein Farbbalken sowie 
j|,il,|| der Schriftzug MENUE. Durch Anfahren mit dem Cursor 
;!!!!][ und Betätigen der Auslösetaste kann man so den Farbstift 
j|,H,|j wechseln oder ins Hauptmenue zurückkehren. 

,l!!llü Im Hauptmenue hat man folgende Optionen zur Ver¬ 
fügung: 

Farben: Hiermit können die INK's selektiert werden. 
Modus: Der Bildschirmmodus (1, 2, 3) wird festgelegt. 
Pinsel: Die Pinselbreite wird festgelegt. Dies hat nur 
Einfluß auf die Menuepunkte Malen. Linie, Linien und 
Strahlen. 

Geschw. (Geschwindigkeit): Die Zeichengeschwindigkeit 
wird grob festgelegt. 

XOR: Das Gezeichnete wird mit dem schon vorhandenen 
Bildschirminhalt verknüpft (Exclusiv-Oder-Verknüpfung). 
Dies gilt nicht bei den Funktionen Malen, Kreis, Ellipse, 
,^, 1 )! Füllen und Kopieren. Bei ausgefüllten Dreiecken können 
,|jjl, n durch diese Funktion interessante Muster entstehen. 

iiiiiiii 

nun 

.II Paramet. (Parameter): Verschiedene Parameter für die 

J||[l]jj Abspeicherung eines Bildes können eingestellt werden. 

Wenn man die Frage "Bildparameter abspeichern?" mit Ja 
'l.il'il beantwortet, werden der aktuelle Mode und die INK’s vor 
dem Bild als Basic-Programm abgespeichert. Diese Files 
ll)iiii können direkt mit RUN”Name" gestartet werden. Außer- 
Dj'IjI dem werden beim Laden eines Bildes Parameter mit ein- 
j|ii«ii gelesen. Hat man nur die Bild-Daten abgespeichert, muß 
li||llj vor dem Laden die Frage "Bildparameter abspeichern?" 
mit Nein beantwortet werden, da kein Parameterfile exi- 

'"ii 1 

'j illl ij stiert. 

jjJ Bei Kassettenbetrieb kann auch die Baudrate und das Auf- 

II, 11,11 Zeichnungsformat (Normal/Fast) gewählt werden. Bei 

'jjjjj" "Fast" wird das gesamte Bild in einem Block abge- 
i/Ü speichert. _ 


Malen: Durch Drücken der Feuertaste kann nun ein Punkt 
gesetzt werden. 

Linie: Das Programm zeichnet zwischen zwei, durch 
Drücken des Feuerknopfes, gesetzten Punkten eine Li¬ 
nie. 

Linien: Der Endpunkt der zuletzt gezeichneten Linie ist 
zugleich der Anfangspunkt der nächsten Linie. 

Strahlen: Der erste gesetzte Punkt ist zugleich der Anfangs¬ 
punkt aller weiteren Linien. 

Kreis: Zuerst wird der Mittelpunkt des Kreises durch 
Drücken der Feuertaste festgelegt, danach kann der Radius 
gewählt und durch ein erneutes Drücken der Feuertaste 
bestätigt werden. 

Ellipse: Der Mittelpunkt wird wieder durch Drücken der 
Feuertaste festgelegt, danach muß sowohl der x- als auch 
der y-Radius eingestellt und durch Drücken der Feuertaste 
bestätigt werden. 

Rechteck: Die zwei diagonal gegenüberliegenden Eck¬ 
punkte müssen gewählt und jeweils durch Drücken der 
Feuertaste bestätigt werden. 

Dreieck: Hier müssen alle drei Eckpunkte gewählt und je¬ 
weils durch Drücken des Feuerknopfes bestätigt werden. 
Füllen: Hiermit können geschlossene Flächen mit der 
vorher gewählten Farbe ausgefüllt werden, indem der 
Cursor in die Fläche hineingesteuert wird und nun durch 
Drücken der Feuertaste der Vorgang gestartet wird. 


Kopieren: Nach Auswahl dieser Funktion fragt das Pro¬ 
gramm, ob der Hintergrund, auf den der Bildschirmaus¬ 
schnitt kopiert werden soll, gelöscht werden soll. Der recht¬ 
eckige Bildschirmausschnitt, der wie in der Funkion 
Rechteck gewählt wird, kann nun an jede beliebige Stelle 
geschoben werden. Das Drücken der Feuertaste startet 
den Kopiervorgang. 

Zoom: Ein kleiner Ausschnitt des Bildschirms, der ver¬ 
größert dargestellt wird, kann mit Hilfe der Feuertaste 
Punkt für Punkt verändert werden. Diese Änderungen 
werden in das Bild übernommen, indem man mit dem 
Cursor das Menuefeld ansteuert und dort den Feuerknopf 
drückt. 

Text: Hier kann nun ein Text eingegeben werden und an 
jeder Stelle des Bildschirmes plaziert werden. 

Spray: Wenn Sie in dieser Funktion den Feuerknopf 
drücken, so werden einzelne Punkte unter dem Grafik- 
Cursor gezeichnet. 

Löschen: Mit dieser Funktion wird das gesamte Bild 
gelöscht. 

Save: Das Bild, das sich momentan im Speicher befindet, 
wird abgespeichert. 

Load: Diese Funktion lädt ein Bild in den Speicher. 
Ende: Diese Funktion ermöglicht eine Rückkehr in 
Basic. 

Neustart: Alle Parameter werden auf die Anfangswerte 
gestellt. 

(O. Heggelbacher/TM) 


Listing 1 


100 ' * 
110 '* 



120 '* 
130 '* 

The Designer 


140 ' * 
150 '* 

(C) 1986 Andromeda-Soft 


160 '* 
170 '* 

geschrieben von 


180 '* 
190 '* 

Oliver Heggelbacher 


210 ' 




220 SYMBOL AFTER 240 .‘MEMORY &5FFF:OPENOUT" 
dumtny":MEMORY HIMEM-1:CLOSEOUT:SYMBOL 240, 
20,81,68,146,73,138,37,72 


(1285 J 

(1751 

(904) 

(1753 

[1 428] 

[175] 

[2112] 

[175] 

[1056 ] 

[1753 

[605] 

[1173 

[7062 ] 
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230 ad=&A040 [7461 

240 FOR t=0 TO 29:su=0 [10081 

250 FOR i=0 TO 15 [5041 

260 READ w$:w=VAL("&"+w$) [11661 

270 POKE ad,w:ad=ad+1 [5461 

280 su=su+w (92 ] 

290 NEXT i [3751 

300 READ c$:c=VAL("&"+c$) [14431 

310 IF c< >su THEN PRINT "Data-Fehler in [3935J 

Zeile";370+t*10:END 

320 NEXT t [3601 

330 CALL &A040:MODE 1:jPUT [977] 

340 INPUT "CPC 664/6128 {J/N)";a$;a$=UPPER [56301 

$(a$):IF a$="j" THEN POKE &A300,1 ELSE IF 
a$="N" THEN POKE &A300,0 ELSE 340 
350 RUN"!designer.prg" [974] 

360 1 [117J 


370 DATA 21 ,49,A0,01 ,4D,A0,C3,D1 ,BC,00,00, [2767] 
00,00,64,A0,C3 , 60F 

380 DATA 81 ,A0,C3,8A,A0,C3,93,A0,C3,9C,A0, [4057 ] 
C3,A5,A0,C3,B1 , A7F 

390 DATA A0,C3,D3,A0,48,53,41,56,05,48,40, [2386] 
4F,41,04,53,41 , 749 

400 DATA 56,C5,4C,4F,41,C4,47,45,D4,50,55, [24261 
D4,46,49,40,00 , 73B 

410 DATA 00,21 ,00,A0,1 1 ,40,00,C3,9E,BC,21, [1 670] 
00,A0,11,40,00 , 441 

420 DATA C3,AI,BC,21 ,00,60,1 1,00,40,C3,9E, [2933] 
BC,21,00,60,11 , 5A1 

430 DATA 00,40,C3,AI,BC,21,00,60,11,00,00, [2733] 
01,00,40,ED,B0 , 590 

440 DATA C9,21 ,00,00,1 1,00,60,01 ,00,40,ED, [1959] 
B0,C9,00,00,00 , 4C2 

450 DATA 00,00,00,00,00,00,00,00,00,00,00, [1328) 

00 , 00 , 11 , 00,00 , 011 

460 DATA C3,1E,AI,FE,04,00,DD,6E,00,DD,66, [2332] 
01,22,07,A0,DD , 839 

470 DATA 7E,02,32,CC,A0,DD,6E,04,DD,66,05, [35961 
DD,5E,06,DD,56 , 729 

480 DATA 07,ED,53,BF,AO,22,CI,A0,21,00,50, [1984] 
22,BD,AO,ED,5B , 761 

490 DATA BF,AO,2A,C1,AO,D5,E5,CD,1D,BC,7E, [3703] 
AI,32,CB,AO,El , 9E7 

500 DATA Dl,7A,B3,28,B8,1B,3A,CB,AO,B7,CA, [2008] 
05,AI,13,ED,53 , 818 

510 DATA C3,AO,13,3E,01 ,32,C9,AO,32,CA,AO, [2412) 
ED,53,BF,AO,22 , 7AD 

520 DATA CI,AO,CD,1D,BC,7E,AI,B7,20,63,ED, [2288] 
5B,BF,A0,2A,C1 , 8F2 

530 DATA AO,23,CD,1D,BC,7E,A1,21,C9,A0,46, [4041 J 
77,B7,20,10,78 , 72E 

540 DATA B7,28,0C,ED,5B,BF,AO,ED,4B,C1,AO, [3504] 
03,CD,FE,AI,ED , 987 

550 DATA 5B,BF,A0,2A,C1,A0,2B,CD,1D,BC,7E, [3630] 
AI,21,CA,AO,46 , 806 

560 DATA 77,B7,20,10,78,B7,28,OC,ED,5B,BF, [2794] 
AO,ED,4B,C1 ,AO , 801 

570 DATA OB,CD,FE,AI,ED,5B,BF,AO,2A,CI,A0, [3235] 
13,22,C5,A0,2A , 86D 

580 DATA C7,AO,B7,ED,52,38,06,2A,C5,A0,C3, [3461] 
2B,AI,2A,C3,AO , 846 

590 DATA ED,5B,C1,AO,7C,B5,28,01,23,CD,E8, [2632] 
AI,CD,CO,BB,2A , 8EE 

600 DATA BF,AO,ED,5B,CI,AO,2B,CD,E8,AI,CD, [2821] 
F6,BB,2A,BD,A0 , A8E 

610 DATA 01,04,00,B7,ED,42,22,BD,A0,7C,FE, [3126] 
4F,C8,5E,23,56 , 6D2 

620 DATA 23,4E,23,46,69,60,ED,53,BF,AO,22, [2765] 
CI,AO,CD,1D,BC , 76B 

630 DATA 7E,AI,B7,20,D8,C3,FE,AO,3A,CC,AO, [3100] 
47,05,28,00,22 , 777 

640 DATA 05,AO,05,ED,4B,C5,A0,09,C1,1 0,F7, [2395] 
EB,29,C9,3E,07 , 8BA 

650 DATA B9,C8,3E,C8,B9,C8,2A,BD,A0,73,23, [3263] 
72,23,71,23,70 , 7BE 

660 DATA 23,22,BD,AO,09,00,00,00,00,00,00, [2692] 
00,00,00,00,00 , 26B 


670 

MEMORY &A03F:ad=&A040 

[925] 

680 

FOR t=0 TO 29:su=0 

[1008 ] 

690 

FOR i=0 TO 15 

[504] 

700 

READ w$:w=VAL("&"+wS) 

[1166] 

710 

POKE ad,w:ad=ad+1 

[546 ] 

720 

su=su+w 

[92 ] 

730 

NEXT i 

[375] 

740 

READ c$:c=VAL("&"+c$) 

[1 443 } 

750 

IF c< >su THEN PRINT "Data-Fehler in 

[3726] 

Zeile";120+t*10:END 


760 

NEXT t 

[360 ] 


Listing 2 

10 GOTO 330 
20 " 

30 " The Designer - Hauptprogramm 
40 " 

50 " $ 1986 Andromeda-Soft 

60 " 

70 ' 

80 1 Unterprogramme 
90 rx=0:ry=0:fi=0:sp=0 

100 a=JOY(0):IF a AND 1 OR NOT INKEY(O)THE 
N ry=1 

110 IF a AND 2 OR NOT INKEY(2)THEN ry = -1 

120 IF a AND 4 OR NOT INKEY(8)THEN rx=-1 

130 IF a AND 8 OR NOT INKEY(1J^HEN rx=1 

140 IF a AND 16 OR NOT INKEY(9 JTHEN fi = 1 

150 IF NOT INKEY(47)THEN sp=1 

160 IF rx=0 AND ry=0 AND fi+sp=0 THEN gx=0 

:gy=0:GOTO 100 

170 RETURN 

180 ' 

190 MOVE x,y-8:DRAW x,y,fa:MOVER ab,-2:DRA 
W x+16,y-12:MOVE x+ab,y:DRAW x+8,y:x2=x:y2 
=y:GOSUB 90:gx=gx+rx:g =gy+ry:IF rx=0 THEN 
gx=0 ELSE IF SGN(gx)<>SGN(rx)THEN gx=0 
200 IF ry=0 THEN gy=0 ELSE IF SGN(gy)<>SGN 
(ry)THEN gy=0 

210 x=x+gx/ug:y=y+gy/ug:IF x<0 THEN x=0 EL 
SE IF x >639 THEN x=639 

220 IF y<2 THEN y = 2 ELSE IF y>399 THEN y = 3 
99 

230 MOVE x2,y2-8:DRAW x2,y2,fa:MOVER ab,-2 

: DRAW x2 + 16,y2-12 :MOVE x2+ab ,y2 : DRAW x2+8, 

y2:IF f2+fi+sp+fl=0 THEN 190 

240 IF sp=1 THEN RETURN 

250 IF fi=1 THEN 270 

260 IF fl=1 THEN RETURN 

270 IF y >15 THEN RETURN 

280 IF x<479 THEN zf =TEST(x,y-2):BORDER co 
(zf):x=x2:y=y2:GOTO 190 ELSE fi=0:f2=1:RET 
URN 
290 : 

300 : 

310 ' 

320 ' Initialisierung 
330 DEFINT a-s,w-z 

340 DIM co{15):FOR t=0 TO 15:READ co(t):NE 
XT t 

350 DATA 0,26,24,23,22,20,18,17,16,15,13,1 
2,9,8,6,2 

360 mo=0:ps=0:ab=4:af=15:zf=2:ge=8:ux=1:uy 
=1:fa=1:dl$="N" 

370 k$="N":e$="N":r$="N":d$="N":c$="N":xo= 
0:ba=1:fo$="Standard":pa$="N":pic$="*.pic" 
380 DIM zo(31,23) 

390 ENV 1,1,13,1,13,-1,5 
400 ' 

410 PRINT CHR$(23);"0";:BORDER 0:INK 0,0:1 
NK 1,17:INK 2,24:INK 3,11,22:SPEED INK 20, 
20 

420 MODE 1:PEN 1:LOCATE 9,1:PRINT"T H E 
DESIGNER" 

430 PEN 2:LOCATE 9,3:PRINT"(C) 1986 Andrem 
eda-Soft" 

440 PEN 1 :PRINT:PRINT STRING${40,1 54 ) 

450 ZONE 10:PEN 2 

460 LOCATE 2,10:PRINT"FARBEN"," MODUS"," P 
INSEL"," GESCHW." 

470 LOCATE 2,12:PRINT"XOR"," PARAMET."," M 
ALEN"," LINIE" 

480 LOCATE 2,14:PRINT"LINIEN"," STRAHLEN", 
" KREIS"," ELLIPSE" 

490 LOCATE 2,16:PRINT"RECHTECK"," DREIECK" 
," FUELLEN"," KOPIEREN" 

500 LOCATE 2,1 8:PRINT"ZOOM"," TEXT"," SPRA 
Y"," LOESCHEN" 

510 LOCATE 2,20:PRINT"SAVE"," LOAD"," ENDE 
NEUSTART" 

520 mx=ux:my=uy 

530 PLOT mx*160-148,290-my*32,3:DRAWR 140, 
0 : DRAWR 0, -20 : DRAWR-1 40,0: DRAWR 0,20:mx2=m 
x:my2=my:GOSUB 90 

540 ux=ux+rx/5:IF ux<1 OR ux>4 THEN ux=mx2 
550 uy=uy-ry/5:IF uy<1 OR uy>6 THEN uy=my2 
560 mx=ux:my=uy:IF fi=1 OR mx<>mx2 OR my<> 
my2 THEN PLOT mx2*160-148,290-my2*32,0:DRA 
WR 140,0:DRAWR 0,-20:DRAWR-140,0:DRAWR 0,2 
0 
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[1154] 
[3608] 
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[940] 
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[555] 

[117] 

[12901 


[3093 ] 
(41751 
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[2266] 
[5519 ] 


[1842 ] 
[486] 
[6741 
[441 1 
[5886] 
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[174] 

[174] üii:;i> 

[117] p'H 
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[642] mm!! 
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[3743] 


[2859] 

[1153] 

[9741 

[117] 

[5190] 


[4120 ] 
[2979 ) 


[1935 ] 
[976] 
[4735 j 

[4838] 

[3809] 

[3504 ] 

[2818 ] 
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[996 ] 
[7429 ) 


[2251 ) 
[1838 ) 
[6638 ) 
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570 IF fi=0 THEN 530 ELSE SOUND 130,119,0, 

0,1 

580 WHILE JOY (0 ) >1 5 :WEND 
590 WHILE INKEY$<>"":WEND 
600~zw=mx+(my-1)*4:ON zw GOSUB 640,720,810 
,870,930,990,1180,1230,1330,1430,1530,1740 
,1 990,2170,2450,2540,2780,2990,3080,31 30,3 
200,3340,3540 

610 IF zw=24 THEN RUN ELSE 410 
620 ' 

630 1 Farben 

640 MODE 0:FOR t = 0 TO af;INK t,co(t):PEN t 
:PRINT STRINGS(10,143):NEXT t 
650 y=1 

660 f=y-1:LOCATE 12,y:PEN fa:PRINT CHR$(24 
2);:GOSUB 90:IF fi=1 THEN RETURN 
670 co(f)=co(f)+rx:LOCATE 12,y:PRINT" ":y= 
y-ry:IF co(f)<0 THEN co(f)=0 ELSE IF co(f) 
>26 THEN co(f)=26 

680 IF y<1 THEN y=1 ELSE IF y>af+1 THEN y= 
af+ 1 

690 INK f,co{f):FOR t=1 TO 50:NEXT t:GOTO 
660 
700 ' 

710 ' Mode 

720 CLS:PRINT"Mode (0-2) :";mo 
730 GOSUB 3720:GOSUB 90:IF fi=1 THEN 760 
740 mo=rao+rx:IF mo<0 THEN mo=0 ELSE IF mo> 
2 THEN mo=2 

750 LOCATE 13,1:CALL &BD19.-PRINT mo:GOTO 7 
30 

760 ab=2‘(2-mo):af=(2‘ab)-1:IF zf>af THEN 
zf =af 

770 IF fa >af THEN fa=af 
780 RETURN 
790 ' 

800 ' Pinsel 
810 CLS 

820 LOCATE 1,1:PRINT'*Pinselstaerke <"ps"> 

":GOSUB 90:IF fi=1 THEN RETURN 

830 ps=ps+rx*ab:IF ps<0 THEN ps=0 ELSE IF 

ps >64 THEN ps = 64 

840 GOTO 820 

850 ' 

860 ' Zeichengeschw. 

870 CLS 

880 LOCATE 1,1:PRINT"Zeichengeschwindigkei 
t <"ge"> GOSUB 90:IF fi=1 THEN RETURN 
890 ge=ge+rx:IF ge<1 THEN ge=1 ELSE IF ge> 
15 THEN ge=1 5 
900 GOTO 880 
910 ' 

920 ' XOR-Funkt, 

930 CLS:IF xo=0 THEN x$="N"ELSE x$="j" 

940 LOCATE 1,1:PRINT"XOR-Funktion <"x$">": 
GOSUB 90:IF fi=1 THEN RETURN 
950 IF rx=-1 THEN x$="N":xo=0 ELSE IF rx=1 
THEN x$="j":xo=1 
960 GOTO 940 
970 ' 

980 ' Parameter 
990 CLS 


1000 LOCATE 1,1:PRINT"Bildparameter abspei 
ehern <"pa$">":GOSUB 90:IF fi=1 THEN 1030 
1010 IF rx=-1 THEN pa$="N"ELSE IF rx=1 THE 
N pa$="J" 
i|,|l'|l 1020 GOTO 1000 
li:;il„ 1030 GOSUB 3720 

"""" 1040 LOCATE 1 ,3: PRINT"Diskettenlaufwerk <" 

II""!! dl$">":GOSUB 90: IF fi = 1 THEN 1070 

II"" 1050 IF rx=-1 THEN dl$ = "N"ELSE dl$ = "j" 

1060 GOTO 1040 

.Ij'll,, 1070 IF dl$ = "J"THEN RETURN 
, |! 1080 GOSUB 3720 

' 1090 LOCATE 1,5:PRINT"BAUD-Rate :";1000+ba 

*1000:GOSUB 90:IF fi=1 THEN 1120 
imm 1100 ba=ba+rx:GOSUB 3720:IF ba<0 OR ba>3 T 
HEN ba=ba-rx 
lill'H 1110 GOTO 1090 
II""" 1120 GOSUB 3720 

IIIIIm 1130 LOCATE 1 ,7:PRINT"Format SPACES 

'llllll (4):GOSUB 90: IF f i = 1 THEN RETURN 
!'||||!! H40 IF rx=-1 THEN fo$="Standard"ELSE IF r 
| „ || X = 1 THEN fo$="Fast" 

.m!l! GOTO 1130 

llill ,ii , 

iiiiiiii 1170 Malen 

ilülli, 1180 GOSUB 3580 

||,|I'|| 1190 GOSUB 190 ;GOSUB 3740 ;IF f2+sp=0 THEN 


(1511 ] 

(1 549] 
(1786 ) 
(7747] 


(1259) 
[117] 
(742 1 
[5100] 

[354] 

[2950] 

[5842 ] 


[I960] 

[2656 ] 

[117] 
[7751 
[1409] 
(2998 ] 
[3067] 

[2010 ] 

[2571 1 

[868 ] 
[555 ] 
[117] 
(85) 

[91 ] 
[3461 ) 

[2432] 

[320] 
[117] 
(1789 ] 
[91 1 
[5259] 

[2103 ] 

(548] 

(117) 

C347 ] 
(2358 ] 
[3498] 

[4505) 

[312] 
[117] 
[726] 
[91 ] 
[6169] 

(1793 1 

[339 ] 
[1025 } 
[5528] 

[1157] 
[363 1 
[1802 ] 
[1025] 
[55521 

[22791 

[393 ] 
[1025] 
[4729 ] 

[26971 

(345 J 

[117] 

[1072] 

(10051 

[8363] 


PRINT CHR$(23 );"0";:FOR t=0 TO ps STEP ab: 

MOVE x2+t,y2;DRAW x+t,y,zf:NEXT t:PRINT CH 

R$(23)j"1";:GOTO 1190 

1200 IF sp=1 THEN 1190 ELSE 3700 

1210 ' 

1220 ' Linie 
1230 GOSUB 3580 

1240 GOSUB 190:IF f2=1 THEN 3700 
1250 GOSUB 3720:GOSUB 3740:IF sp=1 THEN 12 
40 ELSE fl=1 
1260 ax=x:ay=y 

1270 MOVE ax,ay:DRAW x,y,fa:GOSUB 190:MOVE 
ax,ay:DRAW x2,y2,fa:GOSUB 3740:IF fi+f2=0 
THEN 1270 
1280 GOSUB 3720 
1290 IF f 2 = 1 THEN 3700 

1300 PRINT CHR$(23);CHR$(xo);:FOR t=0 TO p 
s STEP ab:MOVE ax+t,ay:DRAW x+t,y,zf:NEXT 
t:PRINT CHR$(23);"1";:f1=0:GOTO 1240 
1310 ' 

1320 ' Linien 
1330 GOSUB 3580 

1340 GOSUB 190:IF f2=1 THEN 3700 
1350 GOSUB 3720:GOSUB 3740:IF sp=1 THEN 13 
40 ELSE fl=1 
1360 ax=x:ay=y 

1370 MOVE ax,ay:DRAW x,y,fa:GOSUB 190:MOVE 
ax,ay:DRAW x2,y2,fa:GOSUB 3740:IF fi+f2=0 
THEN 1370 
1380 GOSUB 3720 
1390 IF f2 = 1 THEN 3700 

1400 PRINT CHR$(23);CHR$(xo);:FOR t=0 TO p 
s STEP ab:MOVE ax+t,ay:DRAW x+t,y,zf:NEXT 
t:PRINT CHR$(23);"1:ax=x:ay=y:GOTO 1370 
1410 ' 

1420 ' Strahlen 
1430 GOSUB 3580 

1440 GOSUB 190:IF f2=1 THEN 3700 
1450 GOSUB 3720:GOSUB 3740:IF sp=1 THEN 14 
40 ELSE fl=1 
1460 ax=x:ay=y 

1470 MOVE ax,ay:DRAW x,y,fa:GOSUB 190:MOVE 
ax,ay:DRAW x2,y2,fa:GOSUB 3740:IF fi+f2=0 
THEN 1470 
1480 GOSUB 3720 
1490 IF f2=1 THEN 3700 

1500 PRINT CHR$(23);CHR $(xo);:FOR t=0 TO p 
s STEP ab:MOVE ax+t,ay:DRAW x+t,y,zf:NEXT 
t:PRINT CHR$(23);"1";:GOTO 1470 
1510 ' 

1520 1 Kreis 
1530 CLS 

1540 LOCATE 1,1:PRINT"Ausfuellen <"k$">":G 
OSUB 90:IF fi=1 THEN 1570 

1550 IF rx=-1 THEN k$="N"ELSE IF rx=1 THEN 
k$="j" 

1560 GOTO 1540 
1570 GOSUB 3580 

1580 GOSUB 190:IF f2=1 THEN 3700 
1590 ax=x:ay=y 

1600 GOSUB 3720:GOSUB 3740:IF sp=1 THEN 15 
80 ELSE fl=1 

1610 MOVE ax,ay:DRAW x,ay,fa:GOSUB 190:MOV 
E ax,ay:DRAW x2,ay,fa:GOSUB 3740:IF fi+f2= 
0 THEN 1610 
1620 IF f2=1 THEN 3700 
1630 GOSUB 3720 
1640 r=ABS(ax-x)/1.14 
1650 ORIGIN ax,ay,0,639,16,399:vr=r*r 
1660 PRINT CHR$(23);"0";:PLOT-330,-220,zf 
1670 IF k$="J"THEN 1700 
.1680 FOR v=0 TO r/1.414 STEP ab/4:a=SQR(vr 
—v*v):PLOT-a*1.1 4,-v:PLOT-a*1.1 4,v:PLOT a* 

1.14,-v:PLOT a*1.14,V:PLOT-v* 1.1 4,-a:PLOT- 
v*1,14,a:PLOT v*1.1 4,-a:PLOT v*1.14,a:NEXT 
v 

1690 ORIGIN 0,0,0,639,0,399:PRINT CHR$(23) 

;"1";:f1=0:GOTO 1580 

1700 FOR v=0 TO r/1.414 STEP ab/4:a=SQR(vr 
-v*v):MOVE-a*1.14,-v:DRAW a*1.14,-v:MOVE-a 
*1.1 4,v:DRAW a*1.14,v:MOVE-v*1.14,-a:DRAW 
v*1.14,-a:MOVE-v*1.14,a:DRAW v*1.14,a:NEXT 
v 

1710 ORIGIN 0,0,0,639,0,399:PRINT CHR$(23) 
;"1";:f1=0:GOTO 1580 
1720 ' 

1730 ' Ellipse 
1740 CLS 

1750 LOCATE 1,1:PRlNT"Ausfuellen <"e$">":G 


[1 535 1 
[117] 
(1049 ] 
[1005 1 
[1773] 
[3007] 

[872 ] 
[6732 1 


[1025] 
[1 469] 
[6951 ] 


[117] 
[1276] 
[1005] 
[1773 ] 
[2755] 

(872) 

[6928] 


[1025 ] 
[1 469] 
[8166 ] 


[117] 
[128] 
[1005 ] 
[1 773 ] 
[3356] 

(8721 
(6996 ] 


[10251 
[1469] 
(7461 ] 


H17] 
[373] 
(91 ] 
[5207] 

[1622] 

[391 ] 
(1005 ] 
[1773 ] 
[872 } 
[37931 

[3379] 


[1 469 ] 
[1025 ] 
[577] 
[2810] 
12433] 
[1 268 ] 
[9603 ] 


[1714 ] 
[9982] 


[1714] 

[117] 
[490 ] 
[91 1 
[3393 ) 


11 6 CRC 
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OSUB 90:IF fi=1 THEN 1780 

17 ®° 1I I F rx—1 THEN e$ = "N"ELSE IF rx=1 THEN 
e$= J 

1770 GOTO 1750 
1780 GOSUB 3580 

1790 GOSUB 190:IF f2=1 THEN 3700 
1800 ax=x:ay=y 

1810 GOSUB 3720:GOSUB 3740:IF sp = 1 THEN 17 
90 ELSE fl = 1 

1820 MOVE ax,ay:DRAW x,ay,fa:GOSUB 190:MOV 

E ax,ay:DRAW x2,ay,fa:GOSUB 3740:IF fi+f2= 

0 THEN 1820 

1830 IF f2=1 THEN 3700 

1840 GOSUB 3720 

1850 xr=ABS(ax-x) 

1860 MOVE ax,ay:DRAW ax,y,fa:GOSUB 190;MOV 
E ax,ay:DRAW ax,y2,fa:GOSUB 3740:IF fi+f2= 
0 THEN 1860 

1870 IF f2=1 THEN 3700 

1880 yr=ABS(ay-y):IF yr=0 THEN yr=1 

1890 vr=xr/yr:r=yr:ur=r*r 

1900 PLOT-10,-10,zf:ORIGIN ax,ay, 0,639,1 6 , 

399:PRINT CHR$(23);"0"; 

1910 IF xr>yr THEN us=yr/xr ELSE us=0.5 
1920 IF e$="j"THEN 1950 

1930 FOR v=0 TO SQR(ur)/1.414 STEP us:u=SQ 
R(ur-v*v):PLOT-u*vr,-v:PLOT-u*vr,v:PLOT u* 
vr,-v:PLOT u *vr,v:PLOT-v *vr,-u:PLOT-v *vr,u 
:PLOT v*vr,-u:PLOT v*vr,u:NEXT v 
1 p 4 ® 0RIGIN 0,0,0,639,0,399:PRINT CHR$(23) 

; 1";:fl=0:GOTO 1790 

1950 FOR v=0 TO SQR(ur)/I.414 STEP us:u=SQ 
R(ur-v*v):MOVE-u*vr,-v:DRAW u*vr,-v:MOVE-u 
•vr,v:DRAW u*vr,v:MOVE-v*vr,-u:DRAW v*vr,- 
u:MOVE-v»vr,u:DRAW v*vr,u:NEXT v 
I960 ORIGIN 0,0,0,639,0,399:PRINT CHR$(23) 

; '1 : fl=0:GOTO 1790 

1970 ' 

1980 ' Rechteck 
1990 CLS 

2000 LOCATE 1,1:PRlNT"Ausfuellen <"r$">":G 
OSUB 90:IF fi=1 THEN 2030 
2010 IF rx=-1 THEN r$ = "N"ELSE IF rx=1 
r$="J" 

2020 GOTO 2000 
2030 GOSUB 3580 

2040 GOSUB 190:IF f2=1 THEN 3700 
2050 GOSUB 3720:GOSUB 3740:IF sp=1 THEN 20 
40 ELSE fl=1 
2060 ax=x:ay=y 

2070 MOVE ax,ay:DRAW ax,y,fa:DRAW x,y:DRAW 
x,ay:DRAW ax,ay:GOSUB 190:MOVE ax,ay:DRAW 
ax,y2,fa:DRAW x2,y2:DRAW x2,ay:DRAW ax,ay 
:GOSUB 3740:IF fi+f2=0 THEN 2070 
2080 IF f2=1 THEN 3700 
2090 GOSUB 3720 

2100 PLOT-10,-10,zf:PRINT CHR$(23);CHR$(xo 
2110 IF r$="j"THEN 2130 

2120 MOVE ax,ay:DRAW ax,y:DRAW x,y:DRAW x, 
ay:DRAW ax,ay:PRINT CHR$(23);"1";:f1=0:GOT 
O 2040 

2130 IF x<ax THEN a=x:b=ax ELSE a=ax:b=x 
2140 FOR t=a TO b STEP ab:MOVE t,ay:DRAW t 
,y:NEXT t:PRINT CHR$(23);"1";:fl=0:GOTO 20 
40 

2150 ' 

2160 1 Dreieck 
2170 CLS 

2180 LOCATE 1,1:PRINT"Ausfuellen <"d$">";G 
OSUB 90:IF fi=1 THEN 2210 

2190 !F rx=-1 THEN d$="N"ELSE IF rx=1 THEN 


[1022 ] 

(349 ) 
[1005] 
[17731 
[872] 
[3243 ] 

[3752 ] 


[1 469 ] 
[1025] 
[1501 ) 
(4923 J 


[1469] 
[1172] 
[1702 ] 
(2425] 

[3300] 

[892] 

[9755] 


[1712] 
[11836] 

[1712] 

[117] 
[786 ] 

[91 ] 
[4475] 

THEN [2676] 

[363] 
[1005] 
[1773] 
[3340 ] 

[872] 
[9049] 


[1 469] 
[1025] 
[1560] 

[606 ] 
[3334] 


[2647] 

[4533] 


llllllll 


d$ = "j' 

2200 GOTO 2180 
2210 GOSUB 3580 

2220 GOSUB 190:IF f2=1 THEN 3700 
2230 GOSUB 3720:GOSUB 3740:IF sp=1 THEN 22 
20 ELSE fl=1 
2240 ax=x:ay=y 

2250 MOVE ax,ay:DRAW x,y,fa:GOSUB 190:MOVE 
ax,ay:DRAW x2,y2,fa:GOSUB 3740:IF fi+f2=0 
THEN 2250 

2260 IF f2=1 THEN 3700 
2270 GOSUB 3720 
2280 bx=x:by=y 

2290 MOVE ax,ay:DRAW x,y,fa:DRAW bx,by:DRA 
W ax,ay:GOSUB 190:MOVE ax,ay:DRAW x2,y2,fa 
:DRAW bx,by:DRAW ax,ay:GOSUB 3740:IF fi+f2 
=0 THEN 2290 


[117] 
[820] 
[91 ] 
[3026 J 

[1655] 

[343 ] 
[1005] 
[1 773 ] 
[2912] 

[872 ] 
[6904 ] 


[1469] 

[1025] 

[897] 

[7969] 


(1307 ] 
13143] 

(4856 J 


2430 
2440 ' fuellen 
2450 GOSUB 3580 

2460 GOSUB 190:IF f2=1 THEN 3700 
2470 GOSUB 3740:IF sp=1 THEN 2460 
2480 IF zf=0 THEN 190 

2490 P RI NT CHR$(23);"0";:PLOT-10,-10,zf:ma 
=640/ab-1:fx=INT(x/ab):fy=INT(y/2) 

2500 IF TEST(x,y)=0 THENiFILL,fx,fy,ab,ma 
2510 PRINT CHR$(23);"1";;GOTO 2460 
2520 ' 

2530 1 kopieren 
2540 CLS 

2550 LOCATE 1,1:PRINT"Hintergrund loeschen 
< c$ > :GOSUB 90:IF fi=1 THEN 2580 
2560 IF rx=-1 THEN c$="N"ELSE IF rx=1 THEN 
c$="j" 

2570 GOTO 2550 
2580 GOSUB 3580 

2590 GOSUB 190:IF f2=1 THEN 3700 
2600 ax=x:ay=y 

2610 GOSUB 3720:GOSUB 3740:IF sp=1 THEN 25 
90 ELSE fl=1 

2620 MOVE ax,ay:DRAW x,ay,fa:DRAW x,y:DRAW 
ax,y:DRAW ax,ay:GOSUB 190:MOVE ax,ay:DRAW 
x2,ay,fa:DRAW x2,y2:DRAW ax,y2:DRAW ax,ay 
:GOSUB 374Q:IF fi+f2=0 THEN 2620 
2630 IF f2=1 THEN 3700 

2640 xa=ax~x:IF xa<0 THEN sx=ab ELSE sx=-a 
b 

2650 ya=ay-y:IF ya<0 THEN sy=2 ELSE sy=-2 
2660 GOSUB 3720 

2670 MOVE x,y:DRAW x+xa,y,fa:DRAW x+xa,y+y 

a:DRAW x,y+ya:DRAW x,y:GOSUB 190:MOVE x2,y 

2:DRAW x2+xa,y2,fa:DRAW x2+xa,y2+ya:DRAW x 

2/y2 +ya:DRAW x2,y2:GOSUB 3740:IF fi+f2=0 T 

HEN 2670 

2680 GOSUB 3720 

2690 IF f2=1 THEN 3700 

2700 PLOT-10,-10,zf:PRINT CHR$(23):"0"::OR 
IGIN 0,0,0,639,16,399 
2710 IF C$="J"THEN 2740 

2720 bx=x-ax+xa:by=y-ay+ya:FOR t=ax TO ax- 
xa STEP sx:FOR i=ay TO ay-ya STEP sy:a=TES 
T(t,i):IF a>0 THEN PLOT bx+t,by+i,a 

H !0RIGIN 0,0,0,639,0,399:PRINT 
CHR$(23); 1';;f1=0:GOTO 2590 
2740 bx=x-ax+xa:by=y-ay+ya:FOR t=ax TO ax- 
xa STEP sx:FOR i=ay TO ay-ya STEP syrPLOT 
bx+t,by+i,TEST(t,i):NEXT i,t 
2750 ORIGIN 0,0,0,639,0,399:PRINT CHR$(23) 

J 1"?:fl=0:GOTO 2590 
2760 * 

2770 1 Zoom 
2780 GOSUB 3580 

2790 fl=1:lx=32*ab:PRINT CHR$(23);"1"; 

2800 MOVE x,y:DRAW x+lx,y,fa:DRAW x+lx,y+4 
8: DRAW x, y+48 : DRAW x,y:GOSUB 190.-MOVE x2,y 
2:DRAW x2+lx,y2,fa:DRAW x2+lx,y2+48:DRAW x 
2,y2+48:DRAW x2,y2:GOSUB 3740:IF fi+f2=0 T 
HEN 2800 

2810 IF f2=1 THEN 3700 
2820 GOSUB 3720 

2830 FOR t=0 TO 31:FOR i=0 TO 23:zo(t,i)=T 
EST(x+t*ab,y+i*2):NEXT i,t 
2840 ax=x:ay=y 


[555] 
[117] 
[426] 
[1005] 
[1773 ] 
(2044 ] 
[787] 
[4672 ] 

£1360] 
[2524 ] 
[117] 
[961 ] 
[91 J 
[5325] 

11768] 

[365 ] 
[1005] 
[1773 ] 
[872] 
[3090] 

[8041 ] 


[1469] 
[4081 ] 


nil"ii 


IJIIIIII 

iimm 


2300 IF f2=1 THEN 3700 [1469] 

2310 IF ax=bx AND ax=x AND bx=x THEN GOSUB [3606] 

3720:fl=0:GOTO 2220 

2320 GOSUB 3720 [1025] 

2330 PLOT-10,-10,zf:PRINT CHR$(23);CHR$(xo [1560] 

) I 

2340 IF d$="j"THEN 2360 [1129] 

2350 MOVE ax,ay:DRAW bx,by:DRAW x,y:DRAW a [4356] 

x,ay:PRINT CHR$(23);"1";:f1=0:GOTO 2220 
2360 GOSUB 2370:ax=xp:ay=yp:x=xa:y=ya:bx=x [6541 ] 
e: by=ye: GOSUB 2370: PRINT CHR$ (23 ): "1 " ;: fl= ..... „ 

0 : GOTO 2220 ,umjj 

2370 xa=ax:ya=ay: IF ABS (ax-bx) <ABS (ax-x)TH [6070] mm!' 
EN xp=bx: yp=by :xe=x:ye=y ELSE xp=x:yp=y:xe miill. 

=bx:ye=by | |JJ'i| l 

2380 IF xa>xe THEN xv=xa:yv=ya:xa=xe:ya=ye [3069] l|||l'li 
:xe=xv:ye=yv 
2390 yd=ye-ya:st=xe-xa 

2400 IF st>ABS(yd)THEN us=ab/4 ELSE us=(st 
/ABS(yd))*ab/4 

2410 FOR u=xa TO xe STEP us:MOVE xp,yp:DRA 
W u,ya+(yd/st)*(u-xa):NEXT u 
2420 RETURN 


(3178] 
[7697] 

[1760] 

(117] 

[837] 

[1005] 

[1186] 

[8029] 


""'11 

lilllll 

"l!!P 


ii 11 ii || 

"nun 


iii||in 


Ö 1 

lilllll 
i mm 
hiiiii 

Ülüli. 

•iiii'ii 


•iiiiiii 

••im 

IIMIlll 


.lilllll 

lilllll 

lilllll 


(26251 

n 

[1025] 

3 

[13248 ] 

E 


m 


3 

[ 1025 J 
11469] 1 

12754] | 

| 

1 


£791 ] 
[7046] 



"ilüP 

mmii 

irii'ii 

i!i...|| 

IIMIlll 

iiiimi 


"ilüP 

IIIIIIM 


[1469 ] 
[1025] 
[3639] 

[872] 


iiiiiii 

iimil 


IIMM 
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mini 

II, 11,1; 2850 !PUT:WINDOW# 1 ,1, 80/ab,1 ,24:CLS#1 

III , 1 " 2860 PRINT CHR$ ( 23 ); "0" ; 

IS.!!!!! 2870 FOR t = 0 TO 31 :FOR i = 0 TO 23:f=zo(t,i) 
||""" :IF f>0 THEN PLOT-10 ,-10 , f: k=t *1 6: j = i *1 0: M 
llüllü OVE k,16+j:DRAWR 11,0:MOVE k,18+j:DRAWR 11 
'I|"|i; ,0 :MOVE k,20+j :DRAWR 11,0:MOVE k,22+j :DRAW 
" ll R 11 ,0 

2880 NEXT i,t 

(|| |.| 2890 FOR t=0 TO 8 STEP 8:PLOT 0,256+t,fa:D 
.n! R AW 512+t,256+t:DRAW 512+t,16:NEXT t 
, '»!], 2900 fl=0: PRINT CHR$ (23 ) ; "1 " ; 

■II. 2910 GOSUB 190: IF f2 = 1 THEN 2950 ELSE IF s 

jj. p=1 THEN 2910 

!'!!!!! 2920 IF X >511 OR y >255 THEN 2910 
i!i!.i!! 2930 px=INT(x/l6):py=lNT((y-16)/l0):zo(px, 
iniiilI py)=zf:PRINT CHR$(23) ;"0"; :FOR i=0 TO 7 ST 
EP 2:MOVE px*16,1 6 + i+py*10:DRAWR 11,0,zf:N 
EXT i 

l|,|l’|| 2940 PRINT CHR$(23);"1 .-GOTO 2910 
ÜlllÜ; 2950 f2=0:PRINT CHR$ (23 ); "0"GOSUB 3580 :P 
, li„il' RINT CHR$ ( 23 ); "0" ; :FOR t=0 TO 31 :FOR i=0 T 
';!!!!!! O 23:PLOT ax+t*ab,ay+i»2,zo(t,i):NEXT i,t 
2960 GOTO 2790 

II. 2970 ' 

l|,||;|i 2980 ' Text 

2990 CLS:INPUT"Text eingeben:",te$ 

,|"i 3000 GOSUB 3580 : f 1 = 1: lt=LEN( te$ ) *8 *ab+ab 

!!!!!!!! 3010 PLOT-10,-10,fa:MOVE x-ab,y:DRAWR lt,0 

II : DRAWR 0,20 :DRAWR-lt,0: DRAWR 0,-20: GOSUB 1 

90:PLOT-10,-10,fa:MOVE x2-ab,y2:DRAWR lt,0 
:DRAWR 0,20;DRAWR-lt,0:DRAWR 0,-20:GOSUB 3 
11,11,11 740 :IF f i+f 2=0 THEN 3010 
( " " 3020 GOSUB 3720 
>l]li||! 3030 IF f2 = 1 THEN 3700 
ihm! ' 3040 PRINT CHR$ ( 23 );CHR$ (xo); 

|!!||||i 3050 PLOT-1 0,-10,zf :MOVE X, y+1 6 : TAG; PRINT 
,||"|| te$;:TAGOFF:PRINT CHR$ ( 23 ) ; "1 "; :GOTO 3010 
mm! 3060 ' 


llllllll 

'Milli 

iiiiiin 


Will' 


. 11 : 11 :: 


3070 ' Spray 

3080 GOSUB 3580:pa=ab*4 

3090 GOSUB 190:GOSUB 3740:IF sp+f2=0 THEN 

ORIGIN 0,0,0,639,16,399:PRINT CHR$(23);CHR 

$(xo);:TAG:PLOT-10,-10,zf:MOVE x-pa,y+8:PR 

INT CHR$ ( 240);:TAGOFF:PRINT CHR$(23);"1";: 

ORIGIN 0,0,0,639,0,399:GOTO 3090 

3100 IF sp=1 THEN 3090 ELSE IF f2=1 THEN 3 

700 

3110 ' 

3120 ' loeschen 
3130 1$="N":CLS 

3140 LOCATE 1,1:PRINT"Sind sie sicher <"1$ 
"> ?":GOSUB 90:IF fi=1 THEN IF 1$="N"THEN 
RETURN ELSE 3170 

3150 IF rx=-1 THEN 1$="N"ELSE IF rx=1 THEN 
1$="J" 

3160 GOTO 3140 


3170 CLS:!PUT:RETURN 
3180 1 

3190 ' Bild speichern 
3200 CLS 
3210 GOSUB 3810 

3220 INPUT"Filename :",na$:PRINT:IF na$="" 
THEN RETURN 

3230 IF dl$="J"THEN na$=LEFT$(na$,8):nl$=n 
a$+".bas":n2$=na$+".pic" ELSE IF fo$="Stan 
dard" THEN na$=LEFT$(na$,12):nl$=na$:n2$=" 
i|,|l'|l ! "+na$+".pic" ELSE nl $=na$ :n2$=na$ 
ijjJll,, 3240 IF ba<2 THEN SPEED WRITE ba ELSE IF b 
"""" a=2 THEN POKE &B8D1,2:POKE &B8D2,&1F ELSE 
II""!! POKE &B8D1,0: POKE &B8D2,&15 
!!"" 3250 IF pa$ = "J" THEN GOSUB 3830 

|j;]|;[J 3260 IF fo$ = "Standard" OR dl$ = "j" THEN SAV 
E n2$,b,&6000,&4000 : RETURN 
"i | 3270 n2$=LEFT$ (n2$ ,64 ) :v=&A000 
1111 3280 FOR t=1 TO LEN( n2$ ): POKE v,ASC(MID$(n 
a$,t,1)):v=v+1:NEXT t 
,,inn 3290 FOR u=v TO &A03F:POKE u,0:NEXT u 
j 1 ""! 3300 PRINT:PRINT"Saving:" ; n2$ 
illill 3310 CALL &BC6E:CALL &BC71 : JHSAVE: |SAVE:RE 


II""" TURN 
ilüllü 3320 ' 

llJilli 33 30 ' Bild laden 
•ii.ji" 3340 CLS 
T 11| 3350 GOSUB 3810 

I , 3360 INPUT"Filename na$:PRINT:IF na$="" 

II „11 AND dl$ = "J"THEN RETURN 


!!!!!!!! 3370 IF na$ = ""THEN n2$="":GOTO 3390 

Jüll,, 3380 IF dl$ = "J"THEN na$=LEFT$ (na$,8):nl$=n 

'|/|| a$ + ".bas":n2$=na$ + ".pic" ELSE IF fo$ = "Stan 


[2106] 

[1485] 

[10025] 


[449 ] 
[4261 ] 

[1843 ] 
[3031 ] 

[1115] 

[62721 


[2451 ] 
[8231 ] 


[317] 

[1171 

[127] 

[2731 ] 

[1470] 

[11907] 


[1025 ] 
11469] 
12339] 
[3737] 

[117] 

[95] 

[1673] 

[9400] 


[1 875] 

[117] 
[951 ] 
[910] 
[5485] 


[1 441 ] 

1453] 
[633 ] 
[117] 
[2211 ] 
[91 ] 
[999] 
[2614] 

[11 684] 


[6186] 


[12631 
[3019] 

[1660] 
[2986 ] 

[2028] 
[1590 ] 
[4327] 

[117] 

[1 572 ] 
[91 ] 
[9991 
[2980] 

[1677 ] 
[10373 ] 


dart" THEN na$=LEFT$(na$,12):n1$=na$:n2$=n 
a$+".pic" ELSE nl$=na$:n2$=na$ 

3390 IF pa$="j" THEN GOSUB 3930 

3400 IF fo$="Standard" OR dl$="j" THEN LOA 

D n2$,&6000:RETURN 

3410 n2$=LEFT$(n2$,64) 

3420 PRINT"PLAY druecken" 

3430 nf$="":jHLOAD:v=&A000 

3440 b=PEEK(V):IF b>0 AND v<&A040 THEN nf$ 

=nf$+CHR$(b):v=v+1:GOTO 3440 

3450 IF UPPER$(nf$)< >UPPER$(n2$)AND n2$<>" 

"THEN PRINT"Found :";nf$:GOTO 3430 

3460 PRINT"Loading:";nf$:POKE &9FFF,255:|L 

OAD 

3470 IF PEEK(&9FFF)< >255 THEN RETURN 
3480 PRINT:PRINT"Ladefehler !!*":PRINT CHR 
$(2 4) + "A"+CHR$(24) + "bbrechen "+CHR$(24) + 

"W"+CHR$(24)+"iederholen":PRINT:WHILE INKE 
Y$ < >"";WEND:a$=UPPER$(INKEY$) 

3490 WHILE a$<>"A"AND a$< >"W":a$=UPPER$(IN 
KEY$):WEND 

3500 IF a$="A"THEN RETURN 
3510 GOTO 3420 
3520 ' 

3530 * Ende 

3540 CLS:IF PEEK(&A300)=0 THEN PRINT"Basic 
1.0" ELSE PRINT "Basic 1.1" 

3550 PRINTrEND 
3560 : 

3570 : 


3580 MODE mo:FOR t=0 TO af:INK t,co(t):NEX 

T t:1GET 

3590 x=320:y=200 

3600 fx=0:FOR t=1 TO af:FOR i=1 TO 25 STEP 
ab:MOVE fx,0:DRAW fx,15,t:fx=fx+ab:NEXT i 
,t 

3610 BORDER co{zf):fa=1:FOR t=1 TO af:IF A 


BS ( co (0 ) -co (t)) >ABS ( co (0 ) -co (fa ) )THEN fa=t 
3620 NEXT t 

3630 PEN fa:IF PEEK(&A300)=0 THEN ON mo GO 
SUB 3760,3770:LOCATE 16,25:PRINT "MENUE";: 
ON mo GOSUB 3780,3790 ELSE LOCATE 16*2"mo, 
25:PRINT "MENUE"; 

3640 LOCATE 1,1 
3650 | PUT 

3660 ORIGIN 0,0,0,639,0,399 
3670 ug=(10/ge) 

3680 PRINT CHR$(23);"1";:f1=0:f2=0:RETURN 
3690 : 

3700 LOCATE 1,25:PRINT SPACE$(20 *(2"mo));: 

I PUT:RETURN 
3710 ; 

3720 FOR t=1 TO 200:NEXT t:RETURN 
3730 FOR t=1 TO 10.-NEXT t:RETURN 
3740 IF sp=0 THEN RETURN ELSE|GET:RETURN 
3750 : 

3760 POKE &B1C8,0:POKE &B1CF,&CC:POKE &B1D 
0,&33:RETURN 

3770 POKE &B1C8,0:POKE &B1CF,&F0:POKE &B1D 
0,&F:RETURN 

3780 POKE &B1C8,1:POKE &B1CF,&88:POKE 8B1D 
0,&44:RETURN 

3790 POKE &B1C8,2:POKE &B1CF,&80:POKE &B1D 
0,&40:RETURN 
3800 : 

3810 IF dl$="j"THEN PRINT"Diskette einlege 
n und Taste druecken:":WHILE INKEY$ ="":WEN 
D:PRINT:jDISC:|DIR,@pic$:PRINT:RETURN 
3820 PRINT"Kassette einlegen":PRINT:RETURN 


3830 OPENOUT nl$ 

3840 PRINT#9,”10 mode";STR$(mo) 

3850 PRINT#9,"20 for t=0 to";STR$(af);":re 
ad a:ink t,a:next t" 

3860 PRINT#9,"30 data 

3870 FOR t=0 TO af : PRINT#9, USING" ffff" ; co (t) 
;:IF t<af THEN PRINT#9,",";ELSE PRINT09 
3880 NEXT t 

3890 PRINT#9,"40 load "+CHR$(34)+n2$+CHR$( 
34)+",49152" 

3900 PRINT#9,"50 while inkey$="+CHR$(34)+C 
HR$(34)+":wend" 

3910 CLOSEOUT 
3920 RETURN 

3930 OPENIN nl$:INPUT#9,a$:mo=VAL(RIGHT?(a 
$,3)) 

3940 LINE INPUT#9,a$:af=VAL(MID$(a$, 1 5,2)) 
:LINE INPUT#9,a$ 

3950 FOR t=0 TO af:co(t)=VAL(MID$(a$,9+t*3 
,2)):NEXT t:CLOSEIN:RETURN 
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Wolken Sie schon lange einmal ein tolles Spiel program¬ 
mieren, bei dem während des Spielablaufes eine fetzige 
Soundeinlage abgespielt wird? 

Dann werden Sie schnell festgestellt haben, daß Ihr 
Programm durch diese Soundroutinen ziemlich an Ge¬ 
schwindigkeit verliert. 

Erfahrungsgemäß muß man sich dann auf Kompromisse 
einlassen und das Programm von anderen zeitraubenden 
Routinen befreien. Das geht dann wiederum auf Kosten 
der Grafik oder der Präzision von Kollisionsabfragen. 
Eine Alternative bietet das Programm Music Interrupt, 
mit dem ein simultaner Ablauf des Spielprogrammes und 
der Soundroutinen ohne nennenswerten Zeitverlust mög¬ 
lich ist. 

Das Programm besteht aus einem kurzen Assemblerpro¬ 
gramm, mit dem der Interrupt eingehangen wird, sowie 
einem Datablock, der die Informationen über die abzu¬ 
spielenden Töne enthält. 

Eine genaue Beschreibung der Assemblerroutinen finden 
Sie im dokumentierten Sourcelisting. 

Weiterhin haben Sie noch den Basic-Loader, der mit 
CALL &9000 die Musik abspielt und mit CALL &90B8 
wieder Ruhe gibt. 

Der Basic-Loader enthält schon einen Demo-Musikblock, 
der ab Adresse &906E steht. Diesen Musikblock können 


MEMORY &8FFF 


&90E5 TUEN 15 


dat=0:sz=0:dz=16 
FOR adr=&9000 TO &90E5 
READ a$:b$="&":b$=b$+a$ 
byte=VAL(b$):POKE adr,byte 
dat=dat+1 

8 sz=sz+byte 

9 IF dat <16 AND adr 

10 READ check 

11 IF check <> sz THEN PRINT"FEHLER IN ZEI 
LE ";dz 

12 dz=dz+1 

13 sz=0 

14 dat=0 

15 NEXT adr:CLEAR:GOTO 100 

16 DATA 21 ,A1,90,7D,32,6B,90,7C,32,6C,90,C 
D,41,90,3E,00, 1666 

17 DATA 32,38,90,32,39,90,32,3A,90,32,3B,9 
0,32,30,90,32, 1310 

18 DATA 3D,90,32,3E,90,32,3F,90,32,40,90,2 
1,38,90,11,5F, 1321 

19 DATA 90,0E,FF,06,81,CD,D7,EC,00,00,00,0 
0,00,00,00,00, 1156 

20 DATA 00,3E,01,21,52,90,CD,BC,BC,3E,01,2 
1 ,59,90,CD,BF., 1628 

21 DATA BC,C9,01 ,0F,FF,05,0F,01 ,0A,00,CE,0 
A,0A,32,0A,E5, 1206 

22 DATA D5,C5,F5,DD,E5,FD,E5,2A,B6,90,C3,A 
1,90,2A,B6,90, 2823 

23 DATA 7E,32,DD,90,23,7E,32,E0,90,23,7E,3 
2,El,90,23,7E, 1861 

24 DATA 32,E4,90,23,7E,32,E5,90,21,DD,90,C 
D,AA,BC,2A,B6, 2191 

25 DATA 90,11 ,05,00,19,22,B6,90,7E,FE,63,C 
A,AD,90,C3,D4, 1956 

26 DATA 90,7E,CD,AD,BC,E6,07,CA,D4,90,C3,6 
D,90,21,E6,90, 2486 

27 DATA 22,B6,90,C3,D4,90,E6,90,21,CA,90,7 
D, 32,6B,90,7C, 2214 

28 DATA 32,6C,90,21,E6,90,22,B6,90,C9,21,3 
8,90,CD,DD,BC, 2117 

29 DATA C3,D4,90,C9,FD,El,DD,El,F1,C1,D1 ,E 
1,C9,00,01,01, 2747 

30 DATA 00,00,00,0F,00,00, 15 

100 CLEAR :REM * Dieser Teil ist der Noten 
block, der im Pronzip nicht mehr mit abget 
ippt werden brauch, der Anwender kann ab h 
ier eigene Musikstuecke ablegen* 
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Sie gegen eigene Kompositionen austauschen, wobei fol¬ 
gende Bedingungen gelten: 

Die Musikdaten werden fortlaufend in die Speicheradres¬ 
sen ab &906E geschrieben. 

Die Parameter jeder Speicherstelle sind: 

BYTE 0: Kanalangabe und Rendevouzerfordernisse 
BYTE 1+2: Geräuschperiode (der eigentliche Ton) 
BYTE 3+4: Länge des Tons 

Diese Angaben sind gleichzeitig das Mindeste und Höch¬ 
ste, was vom Anwender eingegeben werden muß. 

Die Auslesung erfolgt per Interrupt von der Treiber¬ 
routine. Die Daten für Hüllkurve usw. werden direkt im 
Treiber festgelegt. 

Wer einen Assembler besitzt, sollte diesen zur Eingabe 
nehmen. Bei der Selbstprogrammierung der Musikstücke 
unter Basic erfordert es nämlich ganz schön viel Rechen¬ 
arbeit, wenn man die benötigten 16 Bit-Werte in Low- 
und Highbyte zerlegen will. 

Am Ende des Musikstückes muß der Wert 99 oder &63 ste¬ 
hen. Hiermit wird dem Treiber mitgeteilt, daß der Daten¬ 
block zu Ende ist und daß er mit dem Abspielen erneut be¬ 
ginnen soll. 

Viel Spaß bei der "zeitunkritischen” Soundprogrammie¬ 
rung. 

(M. Wogmann/TM) 
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101 RESTORE 115 

102 dat=0:sz=0:dz = 11 5 

103 FOR adr=&90E6 TO &93B6 

104 READ a$:b$="&":b$=b$+a$ 

105 byte=VAL(b$):POKE adr,byte 

106 dat=dat+1 

107 sz=sz+byte 

108 IF dat<16 AND adr < &93B6 THEN 114 

109 READ check 

110 IF check <> sz THEN PRINT"FEHLER IN ZE 
ILE ";dz 

111 dz=dz +1 

112 sz=0 

113 dat=0 

114 NEXT adr 

115 DATA 01 ,77,00,0A,00,02,7B,01,14,00,01 , 
71,00,0A,00,01, 401 

116 DATA 7F,00,0A,00,02,9F,00,1 4,00,01 ,77, 
00,0A,00,01,64, 549 

117 DATA 00,0A,00,02,EF,00,14,00,01 ,71 ,00, 
0A,00,01,77,00, 515 

118 DATA 0A,00,02,0C,01,14,00,01,71,00,0A, 
00,01,7F,00,0A, 307 

119 DATA 00,02,9F,00,14,00,01,77,00,0A,00, 
01,54,00,0A,00, 406 

120 DATA 02,EF,00,14,00,01,50,00,0A,00,01, 
77,00,0A,00,02, 484 

121 DATA 66,01 ,1 4,00,01 ,71 ,00,0A,00,01,7F, 
00,0A,00,02,96, 537 

122 DATA 00,14,00,01,77,00,0A,00,01,64,00, 
0A,00,02 ,EF, 00, 502 

123 DATA 14,00,01,71,00,0A,00,01,77,00,0A, 
00,02,2D,01,14, 342 

124 DATA 00,01,71,00,0A,00,01,7F,00,0A,00, 
02,96,00,14,00, 434 

125 DATA 01,77,00,0A,00,01,4B,00,0A,00,02, 
EF,00,14,00,01, 478 

126 DATA 59,00,0A,00,01,5F,00,0A,00,02,3F, 
01,14,00,01,59, 381 

127 DATA 00,OA,00,01,5F,00,0A,00,02,86,00, 
14,00,01,64,00, 373 

120 DATA 0A,00,01,5F,00,0A,00,02,BE,00,14, 
00,01,50,00,0A, 419 

129 DATA 00,01,43,00,0A,00,02,El,00,14,00, 
01,3C,00,0A,00, 396 

130 DATA 01,43,00,0A,00,02,86,00,14,00,01, 
47,00,0A,00,01 , 317 

131 DATA 43,00,0A,00,02,BE,00,14,00,01,38, 
00,0A,00,01,3C, 417 
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132 DATA 00,OA,00,02,2D,01 ,1 4,00,01 ,38,00, 
OA,00,01,3C,00, 206 

133 DATA OA,00,02,96,00,14,00,01,3F,00,OA, 
00,01,3C,00,OA, 327 

134 DATA 00,02,B3,00,14,00,01,50,00,OA,00, 
01,4B,00,0A,00, 378 

135 DATA 02,EF,00,14,00,01,43,00,0a,00,01, 
4B,00,0A,00,02, 427 

136 DATA 96,00,14,00,01,50,00,OA,00,01,4B, 
00,OA,00,02,B3, 528 

137 DATA 00,14,00,01,5F,00,OA,00,01,59,00, 
OA,00,02,18,02, 254 

138 DATA 14,00,01,50,00,OA,00,01,59,00,0a, 
00,02,El,00,14, 458 

139 DATA 00,01,5F,00,OA,00,01,59,00,OA,00, 
02,3F,01,14,00, 292 

140 DATA 01 ,77,00,OA,00,01 ,71 ,00,OA,00,02, 
66,0.1 ,1 4,00,01 , 380 

141 DATA 64,00,OA,00,01,71,00,OA,00,02,El, 
00,14,00,01,77, 601 

142 DATA 00,OA,00,01 ,71 ,00,OA,00,02,3F,01 , 
14,00,01,7F,00, 348 

143 DATA 0A,00,01 ,77,00,OA,00,02,DE,01 ,14, 
00,01 ,71 ,00,OA, 509 

144 DATA 00,01,77,00,OA,00,02,EF,00,14,00, 
01,7F,00,0A,00, 529 

145 DATA 01 ,77,00,OA,00,02,2D,01 ,14,00,01 , 
9F,00,OA,00,01 , 369 

146 DATA 96,00,OA,00,02,66,01 ,1 4,00,01 ,86 , 


[3080 1 

00,0A,00,01,96, 581 

147 DATA 00,0A,00,02,EF,00,14,00,01,9F,00, 

[2881 1 

[2980 ] 

0A,00,01,96,00, 592 

148 DATA 0A,00,02,2D,01,14,00,01 ,B3,00,0A, 

[2778 1 

[2123 1 

00,01,BE,00,0A, 469 

149 DATA 00,02,DE,01,14,00,01,9F,00,0A,00, 

[2714J 

[18151 

01,86,00,0A,00, 560 

150 DATA 02,BE,00,14,00,01,71 ,00,0A,00,01 , 

[23791 

[2376 1 

5F,00,0A,00,02, 444 

151 DATA 0C,01 ,14,00,01 ,50,00,0A,00,01 ,43, 

[25261 

[2983 1 

00,0A,00,02,3F, 267 

152 DATA 01,14,00,01,38,00,0A,00,01,3C,00, 

[3367] 

[23891 

0A,00,02,BE,00, 351 

153 DATA 14,00,01,43,00,0A,00,01,4B,00,0A, 

(3242 1 

[3216 1 

00,02,0C,01,14, 219 

154 DATA 00,01,50,00,0A,00,01,43,00,0A,00, 

[22691 

[2393 1 

02,66,01 ,14,00, 294 

155 DATA 01,3C,00,OA,00,01,4B,00,0A,00,02, 

[2565 1 

[24871 

B3,00,1 4,00,01 , 359 

156 DATA 50,00,0A,00,01,4B,00,0A,00,02,EF, 

[28821 

12416 1 

00,14,00,01,59, 527 

157 DATA 00,OA,00,01,5F,00,0A,00,02,2D,01 , 

[24891 

(2617 J 

14,00,01,50,00, 265 

158 DATA 0A,00,01,59,00,0A,00,02,B3,00,14, 

[2012 1 

[35331 

00,01,5F,00,0A, 417 

159 DATA 00,01,59,00,0A,00,02,El,00,14,00, 

[1 680 1 

[1968) 

01,71,00,0A,00, 471 

160 DATA 63, 99 

[3971 

[18971 
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Der CPC-Monitor ist ein komfortabler Maschinenspra¬ 
che-Monitor, der zu 100 % in Maschinensprache ist, und 
nur etwas mehr als 7 KByte belegt. 

Er beinhaltet einen Assembler, Disassambler (mit der 
Möglichkeit zur Ausgabe auf dem Drucker), Monitor-Teil, 
eine Verschiebroutine (in welcher Sprünge in den zu ver¬ 
schiebenden Block automatisch auf die neue Adreesse ange¬ 
paßt werden), eine Breakpoint-Option, sowie noch einige 
zusätzliche Befehle, die das Programmieren erleichtern. 
Eine genaue Erklärung der Befehle folgt in der Anlei¬ 
tung. 

Der CPC-Monitor beginnt an der Adresse &8EB0 und en¬ 
det an Adresse &AB0F; die Adressen &AB10 - &AB7F 
werden zum Abspeichern von Flags und Registerinhalten 
benutzt. Eine genauere Speicherbelegung finden Sie im 
Anhang. 


Anleitung 

1. Eingabe und Sicherung des Programms 

Nachdem Sie das Basic-Listing des CPC-Monitors einge¬ 
geben und gestartet haben, werden die Werte in den Data- 
Zeilen ab Adresse &8EB0 in den Speicher gePOKEd. Soll¬ 
ten Sie beim Abtippen einen Fehler gemacht haben, so be¬ 
kommen Sie die Zeilennummer, in der der Fehler auftrat, 
ausgedruckt und brauchen nur diese Zeile auf den Fehler 
hin zu untersuchen. 

Allerdings sollten Sie beim Eintippen der Prüfsumme am 
Ende jeder Zeile besonders aufpassen, da es sonst zu uner¬ 
warteten Fehlem kommen kann. 

Sind nun alle Data-Zeilen fehlerfrei, so sollten Sie 
zunächst einmal das Basic-Listing mit <SAVE”CPC- 
MON-DATAS”> und anschließend das Maschi¬ 
nenprogramm mit <SAVE”CPC-MON”,b,&8EBO,&AJBOF 
-&8EB0> abspeichem. Nun können Sie den CPC- 
Monitor mit CALL &8EB0 starten. 

Der CPC-Monitor wurde auf einem Schneider CPC 464 
geschrieben; da der CPC 664 und der CPC 6128 ein er¬ 


weitertes 464-RAM haben, müßte das Programm auch auf 
ihnen laufen. 

2. Laden und Starten des Programms 

Wenn Sie dann wieder einmal den CPC-Monitor laden 
wollen, so müssen Sie <MEMORY &8EAF> eingeben, 
um das Programm vor dem Überschreiben durch das Be¬ 
triebssystem zu schützen. 

Danach geben Sie <LOAD”CPC-MON”>.ein. Ist dann 
der CPC-Monitor nach dem Ladevorgang im Speicher, 
können Sie ihn mit <CALL &8EB0> starten oder Ihr 
selbsterstelltes Maschinenprogramm noch in den Spei¬ 
cher laden, bevor Sie den CPC-Monitor aufrufen. Nach 
dem Starten befinden Sie sich in der Menueebene des 
CPC-Monitors und können mit der Programmierung 
beginnen. 

Doch zuvor noch eine Beschreibung des Bildschirm- 
aufbaus. 

3. Der Bildschirmaufbau des CPC-Monitor 

In der obersten Zeile steht der Programmname, sowie 
mein Name. In der untersten Zeile finden Sie die Kürzel 
der wichtigsten Befehle. Am rechten Bildrand sind die 
Inhalte der Z80-Register aufgeführt. Diese haben nach 
dem Aufruf des Monitors zufällige Werte ohne jegliche 
Aussagekraft. Sie werden sich sicherlich fragen, wieso sie 
dann ausgedruckt werden. Das hat folgenden Grund: Sie 
dienen der Fehlersuche in Ihrem erstellten Programm, 
nachdem Sie es vom CPC-Monitor aus, aufgerufen haben. 
Denn dann werden die letzten dem Register zugeschrie¬ 
benen Werte ausgedruckt. Hat dann ein Register nicht 
den erhofften Wert, so wurde es falsch benutzt. Die zwei 
Register sind invers dargestellt. 

Des weiteren gibt es noch zwei Fenster. Das erste und 
wichtigste liegt in der linken Bildschirmhälfte und dient 
zum Assemblieren, Disassemblieren, Verschieben, usw. 
Das zweite liegt in der rechten Bildschirmhälfte und reicht 
bis zum Registerausdruck. Es dient ausschließlich zum 
Betrieb des Monitorteils - doch davon später. 

4. Programmierbefehle allgemein... 

sind beim CPC-Monitor nicht ganze Wörter, wie etwa beim 
Basic, sondern Kürzel von einem Zeichen (Buchstaben) 
Länge, die einen Befehl symbolisieren. Bei einigen Befeh¬ 
len werden noch Adressen oder Werte verlangt, welche Sie 
dezimal oder hexadezimal eingeben können. Es spielt auch 
keine Rolle, ob Sie Groß- oder Kleinbuchstaben benutzen. 
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DIVIV präsentiert 

Das universelle Hardcopy-Programm 
für Schneider CPC 464/664/6128 



..komfortable Menuesteuerung ...und Farben/Raster-Auswahl 

für Bildgestaltung 



. Hardcopy-Simulation 
auf den Bildschirm 



- Hardcopy in 4 (!) Formaten: DIN A4, DIN A5, 

13,5x8,5cm und 21,5x 13,5cm 

- supersqhnelle Hardcopy-Routine: DIN A4 in ca. 4 Minuten 

- arbeitet in allen 3 Modes 

- Anpaßmenue für JEDEN Matrixdrücker 

- 32 Farbraster über Menue wählbar 

- Grafikeditor 

- komfortable Pull-Down-Menues 

- schnelle Fill-Routine 


- beliebige Ausschnittvergrößerungen 

- Bildschirm invertieren 

- selbstrelozierbare Hardcopy-Routinen für eigene Programme 

- neue Save- und Load-Routinen erkennen automatisch Mode 
und Farbwerte 

- Freezer - saved auf Tastendruck Screenshotsaus laufen¬ 
den Programmen, die 

anschließend ausgedruckt werden können 


Und die Weltneuheit: Hardcopy-Simulator auf dem Bildschirm!! 

Sie können sich Ihre Hardcopy vor dem endgültigen Ausdruck auf dem Bildschirm ansehen! 

COPYSHOP ist das ultimative Hardcopy-Programm für alle Schneider Computer. 
Erhältlich auf Kassette (DM 59,-) und 3”-Diskette (DM 69,-) 
inkl. ausführlicher Bedienungsanleitung. 

COPYSHOP gibt es im guten Fachhandel oder direkt bei: 

DMV-Verlag, Fuldaer Straße 6, 3440 Eschwege 

BEI DIREKTZUSTELLUNG ZZGL. DM 3.- PORTO/VERPACKUNG; PER NACHNAHME ZZGL NACHNAHMEGEBÜHR 
IN DAS AUSLAND IST NACHNAHME NICHT MÖGLICH. 


Händleranfragen erwünscht! 
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i 1 ;; 1 Falls der Befehl noch Adressen oder Werte verlangt, so 
müssen Sie nach dem Kürzel noch ein Zeichen unterbrin- 
:: 1111 gen (z.B. Leerzeichen oder Punkt). Um einen Befehl in der 
nj Menueebene abzuschließen, drücken Sie <ENTER>. 
Sollte Ihre Eingabe nicht korrekt sein, so können Sie sie 
mit <CLR> und <DEL> bearbeiten oder einfach über¬ 
schreiben, indem Sie den Cursor mittels der Pfeiltasten auf 
111 1| die gewünschte Position innerhalb der Zeile bringen und 
,'jüJj dann die neuen Zeichen eingeben, 
i!iui! 5. Programmierbefehle im einzelnen 
II"]" Nun folgt eine Aufstellung aller beim CPC-Monitor ver¬ 
min ! 1 fügbaren Befehle: 

11,1 a. Der Assembler... 

wird mit <A> und einer Adresse aufgerufen: Bsp: A 

'iji']j 1000. 

!!!ll Ü Dann wird diese Adresse in hexadezimaler Form ausgege- 
!um, ben und ein Maschinensprachebefehl erwartet. Istderein- 
i-'U gegebene Befehl nicht korrekt, so wird die Adresse noch¬ 
mals ausgegeben und es wird ein neuer Maschinenbefehl 
11 ^ oder ein <S> (um zur Menueebene zurückzukehren) 

' l! 1 erwartet. 

;!!!:!! Selbstverständlich sind alle Z80-Befehle uneingeschränkt 
benutzbar. 

Ist der Befehl korrekt, so wird er übersetzt und die Werte 
I tl (bzw. der Wert) ab der angegebenen Adresse im Speicher 
iüli abgelegt. Danach wird die Adresse um die entsprechende 
( ||! Anzahl der Werte erhöht und in der nächsten Zeile ausge- 
geben. Die Bearbeitungszeit ist kaum feststellbar! 

Noch eine Anmerkung zum JR: Sie können den Offset ent- 
il!!l|! weder als Distanz (JR $+100/ JR $-10) oder als Adresse (JR 
5«: &9000) eingeben. Haben Sie eine Adresse eingegeben, so 
wird die Distanz aus dieser und der aktuellen Adresse er¬ 
rechnet. Die Distanz darf nur zwischen -126 und + 129 
/I, liegen. 

;; ||i Außerdem stehen Ihnen noch zwei zusätzliche Befehle 
zur Verfügung: 

1. <W:wort:> 

übergibt eine Zeichenkette (deren ASCII-Werte) 

2. <Z:12345> 

übergibt eine bis zu 16 Bit hohe Zahl. 

Bei beiden Befehlen muß ein Doppelpunkt nach dem Kür¬ 
zel stehen. 

b. Der Disassembler 

Wird auf drei Arten mit <D> und einer oder zwei 
Adresse aufgerufen. 

1. D adr: 

Der Befehl, der an dieser Adresse steht, wird übersetzt und 
danach wird in die Menueebene zurückgesprungen. 

2. D adr-: 

Ab der angegebenen Adresse werden zehn Befehle über¬ 
setzt, danach wird eine Eingabe von Ihnen erwartet. Ist 
diese Eingabe ^ <S>, wird der Vorgang wiederholt, an¬ 
sonsten wird in die Menueebene gesprungen. 

3. D anfadr.-endadr.: 

Funktioniert wie 2., wird jedoch die endadr. erreicht, so 
wird automatisch abgebrochen. 

"j|!jj Falls nun ein Befehl 4 Bytes belegt (Adresse 1000 bis 1003) 
und Sie D 1002 eingegeben haben, so bekommen Sie trotz¬ 
dem den richtigen Ausdruck, da der CPC-Monitor jede 
Adresse, die nicht auf das erste Byte eines Maschinenbe- 
|;!! J fehls zeigt, auf das erste Byte anpaßt. 

Lij c. Der Drucker... 

ii|;| ! wird wie der Disassembler auf drei Arten mit <P> statt 
WC <D> aufgerufen «P> weil Printer). Da Sie die Printer- 
lilnll Routine nicht mit <S> abbrechen können, ist die zweite 
Art nicht empfehlenswert. 

|nni d. Der Monitor-Teil... 

l!,' kann wie der Disassembler auf drei Arten mit <M> statt 


<D> aufgerufen werden. Jedoch wird nach Beendigung 
des Ausdrucks nicht in die Menueebene zurückgesprun¬ 
gen, es können vielmehr Speicherinhalte, die im Monitor- 
Fenster stehen, verändert werden. Sie tun dies, indem Sie 
den Cursor mittels der vier Pfeiltasten über die zu verän¬ 
dernde Zahl bringen und den neuen Wert einfach darüber¬ 
schreiben. 

Befindet sich der Cursor in den zuletzt ausgedruckten Zei¬ 
len, können Sie mittels <ENTER> die nächsten acht 
Werte ausdrucken lassen und bearbeiten. Erst wenn Sie 
sich im Monitor-Fenster befinden, gelangen Sie durch 
<S> wieder zurück in die Menueebene. Von dort aus kön¬ 
nen Sie durch <M> ohne Adresse wieder zum Monitor- 
Fenster zurückkehren (dies ist nur möglich, wenn Sie vor¬ 
her schon einmal den Monitor-Teil aufgerufen haben, da 
ansonsten noch keine Werte und Adressen ausgedruckt 
werden). 

e. ) Umschalten 

<U> eingeben genügt. Zunächst werden Sie keine Verän¬ 
derung bemerken. 

Wenn Sie aber den Monitor-Teil aufrufen, werden Sie fest¬ 
stellen, daß an die Stelle der Registerinhalte nun die ent¬ 
sprechenden ASC-Zeichen der ausgelesenen Werte ge¬ 
druckt werden. Sie sollten deswegen erst <U> drücken, 
wenn Sie die Registerinhalte nicht mehr brauchen (Werte 
kleiner als 32 werden als Punkt ausgedruckt). 
Nochmaliges Eingeben von <U> bewirkt, daß wieder 
umgeschaltet wird. 

f. Run 

Ein von Ihnen geschriebenes Programm kann mittels 
<R> und einer Adresse aufgerufen werden (R 2000). 

Ihr Programm muß mit RET enden, damit richtig zurück¬ 
gesprungen wird. 

Sie sollten besonders auf die Richtigkeit des Stack Poin¬ 
ters (SP = Stapelzeiger) achten, denn wenn Sie ein PUSH 
oder ein POP zuviel ausführen, kommt es sehr leicht zum 
Absturz. Um dem zu entgehen, sollten Sie anfangs die 
Rücksprungadresse retten [mit POP HL/LD(Adresse),HL] 
und vor dem Rücksprung wieder auf den Stapel legen 
[durch: LD HL,(Adresse)/PUSH HL].. 

g. Der Breakpoint 

Um die Fehlersuche in Ihrem Programm zu erleichtern, 
können Sie an eine beliebige Stelle Ihres Programms 
einen Breakpoint (sinngemäß: Kontrollpunkt) setzen, 
indem Sie <K> und eine Adresse eingeben. Ab dieser 
Adresse steht dann ein Sprung zum CPC-Monitor. In die¬ 
sem Zusammenhang ist der Ausdruck der Registerinhalte 
bei der Fehlersuche sehr nützlich 
Hinweis: Der Breakpoint belegt 3 Bytes, so daß Sie darauf 
achten sollten, daß der Breakpoint nicht wichtige Befehle 
überschreibt, deren Fehlen beim Ansprung zu Fehler¬ 
gebnissen führen würden. Den Breakpoint können Sie 
durch <K 0> löschen. Die drei durch den Breakpoint er¬ 
setzen Bytes werden zurückgegeben. 

Auch durch die Eingabe eines neuen Breakpoints wird der 
alte gelöscht, ebenso wie es auch beim Rücksprung in 
Basic geschieht, damit Sie Ihr Programm ohne Breakpoint 
abspeichern können. 

h. Basic 

Durch <B> kehren Sie ins Basic zurück und können Ihr 
geschriebenes Programm mit <SAVE"name",B,anfadr., 
länge> abspeichern oder an einem Basicprogramm schrei¬ 
ben. 

i. Füllen 

Füllt einen Block mit einem Wert —*■ z.B. F 1000,2000,32 
füllt die Speicherzellen von 1000 - 2000 mit 32. 
Allgemein: F anfadr.,endadr, wert. 
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j. Verschieben 

Verschiebt einen Block an eine neue Adresse. Wird mit 
<V> und drei durch Komma getrennte Adresse 
aufgerufen: 

V anfadr , endadr., neüadr.. anfadr. und endadr. 
legen den zu verschiebenden Block fest, während neueadr. 
den neuen Blockanfang festlegt. 

k. Eingeben 

Dient zur Unterstützung der Verschieb-Routine. Falls Sie 
einen Block an eine neue Adresse verschoben haben und 
diesen Block von Ihrem Programm aus anspringen wollen 
(mit JP oder Call) müßten Sie alle Sprungadressen, die in 
diesen Block zeigen, anpassen. Genau dies wird von dieser 
Routine übernommen. Und zwar geschieht dies folgen¬ 
dermaßen: 

Sie müssen dem CPC-Monitor vor Benutzung der Ver¬ 
schieb-Routine einen Block angeben, welcher dann beim 
Aufruf der Verschieb-Routine auf die o.g. Sprünge durch¬ 
sucht wird, und diese anpaßt. Dies wird durch <E> anfadr., 
endadr. bewerkstelligt (z.B.: E &8000,&9000). Diese 
Adressen müssen Sie nur einmal eingeben. Haben Sie vor 
dem ersten Aufruf der Verschieb-Routine die Adressen 
nicht eingegeben, so wird nur verschoben. Um diesen Be¬ 
fehl abzustellen, geben Sie <E 0,0> ein. Wollen Sie den 
Bereich ändern, dann geben Sie einen neuen E-Befehl ein. 

l. Suchen 

Sucht einen angegebenen Wert innerhalb eines anzuge¬ 
benden Blocks und druckt die Adresse(n) in denen der 
Wert gefunden wurde. Wird durch <S anfadr., endadr., 
wert> aufgerufen «S 1000,2000,10>. 

Der Wert sollte 255 nicht überschreiten. Sie können die 
Ausgabe durch eine beliebige Taste abbrechen. 

m. Cls 

Löscht das linke Fenster.<C> eingeben genügt. 

n. Zusatz 

Mit <Z> können Sie zwischen RAM und dem ROM in 
&0000 - &3FFF und &C000 - &FFFF umschalten. Somit 
können Sie sich z.B. mit dem Disassembler das ROM an¬ 
schauen. Um ins RAM zurückzuschalten, drücken Sie er¬ 
neut <Z>. 

Anhang: 

Adresse Inhalt 


8EB0 - 8F07 
8F08 - 8F1E 
8F1F- 8F84 
8F85 - 8F92 
8F93 - 9002 
9003 - 9020 
9021 -903E 
903 F - 9081 
9082 - 90A9 
90AA - 90CE 
90CF-9102 
9103-9135 
9136 - 9377 
9378 - 97AC 
97AD - 97ED 
97EF - 9867 
9868 - 9979 
997A - 99B2 
99B3 - 99DB 
99DC - 9A45 
9A46 - 9A9B 
9A9C - 9AEF 
9AF0-9BFF 


Verschiedenes 

Drucker-Routinen 

Breakpoint 

Befehl interpretieren 3 

Verschiedenes 

Wort-Befehl beim Assembler 
Zahl-Befehl beim Assembler 
Befehl interpretieren 2 
<DEL> ausführen 
<CLEAR> ausführen 
Disassembler: Adresse holen 
Disassembler: Hauptschleife 
Disassembler: UPRO’s 
Disassembler: interpretieren 
Monitor: Adresse holen 
Monitor: Werte holen und drucken 
Monitor: Speicherinhalte ändern 
Fill 
Cls 
Run 

verschieben 

Verschieben - Sprunganpassung 
UPRO’s 


9C00 - 9CBF 

9CC0 - 9D68 

9D69 - 9EEB 
9DE6 - 9E8F 

9EEC - A047 
A048 - A268 

A269 - A394 

A395 - A41A 
A41B-A479 

A47A-A4B1 

A4B2 - AAFF 
A4EB - A57A 

A57B-A5D1 
A5D2 - AAFF 

AB00 - AB0F 


Zeichenketten einiger Z80-Befehle für 
den Disassembler 

Assembler: übersetzten Befehl in Speicher 

legen 

UPRO’s 


Hüll, 

::iqi 
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Eingegebene Zeichenkette in abarbeitbare 
Zahl oder Adresse wandeln 
Assembler: Interpretation des Operanden 
Zeichenketten zum Vergleichen und 'l'l 1 '!: 
Ausdrucken """!! 


Programmstart: Initialisierung und Bild¬ 
schirmaufbau 

Tastaturabfrage bzw. Befehlseingabe 
Cursorposition auf nächste Abfrage 
vorbereiten 

Assembler: aktivieren und aktuelle 
Adresse ausgeben 
Assembler: Befehlsinterpretation 
Assembler: Sprungtabelle zu Befehlen 
mit Operand 

Assembler: Befehle ohne Operand 
Assembler: Interpretation eines Befehls 
mit Operand 
Befehl interpretieren 1 
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10 DATA C3,69,A2,3A,37,AB,F5,CD,C0,8F,F1,3 

2.37, AB,C9,El,C3,C3,91,ED, 3246 

11 DATA 43,46,AB,ED,5B,3F,AB,D5,C3,87,9B,3 

A, 37,AB,FE,FF,C2,1B,A4,3E, 2808 

12 DATA 0D,CD,16,8F,3E,OA,CD,16,8F,C9,ED,4 
3,85,B2,CD,7A,9D,7D,CD,7A, 2577 

13 DATA 9D,CD,1B,A4,CD,1B,BB,FE,01 ,30,06 , F 
1,C1,E1,C3,BA,8F,E1,E1,C3, 3109 

14 DATA 95,A3,CD,7A,99,C3,8E,99,3E,FF,32,3 
7,AB,C3,D4,90,FE,FF,C0,3A, 3185 

15 DATA 35,AB,CD,2E,BD,38,FB,CD,31,BD,C9,3 
E,29,32,15,98,AF,32,8F,9A, 2463 

16 DATA 3A,D9,91 ,FE,00,C8,AF,32,D9,91 ,ED,5 

B, EB,8F,21,DA,91,01,03,00, 2567 

17 DATA ED,B0,C9,21,6D,AB,CD,87,9B,21,00,0 
0,B7,ED,42,3A,D9,91,38,OB, 2428 

18 DATA FE,00,CA,61,A4,CD,2E,8F,C3,95,A3,F 
E,00,28,05,C5,CD,2E,8F,CI, 2701 

19 DATA 3C,32,D9,91,ED,43,EB,8F,60,69,11,D 
A,91,00,01,03,00,C5,ED,B0, 2349 

20 DATA ED,5B,EB,8F,CI,21,ED,8F,ED,B0,C3,9 
5,A3,FE,4B,28,B6,FE,50,CA, 3319 

21 DATA 08,8F,FE,53,C2,61,A4,CD,7A,99,79,2 

A, 46,AB,ED,5B,44,AB,B7,ED, 2814 

22 DATA 52,18,13,El,C3,61,A4,3E,01,32,3A,A 

B, C9,CD,C0,8F,3E,OB,32,37, 2067 

23 DATA AB,C9,23,44,4D,EB,ED,B1,E5,C3,F0,9 

A, 11,0A,00,ED,52,22,51,AB, 2651 

24 DATA 7B,32,37,AB,E5,CD,78,93,D1,2A,51,A 

B, ED,4B,44,AB,B7,ED,42,2A, 2682 

25 DATA 51 ,AB,28,06,38,EA,ED,53,51,AB,AF,3 

2.37, AB,C9,DO,07,C3,EF,99, 2614 

26 DATA AF,32,37,AB,C3,95,A3,3A,37,AB,FE,0 
0,CA,18,BB,C3,1E,BB,00,23, 2356 

27 DATA 7E,FE,3A,C2,E0,9E,06,0D,ED,5B,5E,A 

B, 23,7E,FE,3A,28,04,12,13, 2180 

28 DATA 10,F6,42,4B,00,00,C3,89,A4,23,7E,F 
E,3A,C2,E0,9E,23,E5,CD,E6, 2647 

29 DATA 9D,E1,2A,5E,AB,71,23,AF,B8,28,02,7 
0,23,44,4D,00,C3,89,A4,FE, 2280 

30 DATA 01,CA,B2,A4,3A,6B,AB,FE,41,CA,7A,A 
4,FE,42,CA,1F,8F,00,FE,44, 2706 

31 DATA CA,D4,90,FE,4D,CA,AD,97,FE,46,CA,0 
2,8F,FE,56,CA,46,9A,FE,52, 3188 

32 DATA CA,DC,99,FE,43,CA,B3,99,FE,45,CA,A 
3,9B,FE,55,CA,2C,9B,FE,5A, 3357 

33 DATA CA,A2,97,C3,85,8F,3A,60,AB,FE,01,2 
8,0A,3A,5B,AB,FE,00,CA,AE, 2566 

34 DATA A3,18,08,3A,60,AB,FE,05,CA,AE,A3,3 

D, 32,5B,AB,21,57,AB,35,2E, 2081 

35 DATA 5C,35,21,86,B2,35,2A,85,B2,E5,2A,5 

C, AB,3E,7F,95,47,54,5D,13, 2035 

36 DATA 1A,77,00,CD,5A,BB,00,13,23,10,F5,3 

E, 20,CD,5A,BB,E1,22,85,B2, 2088 

37 DATA C3,AE,A3,C8,E1,C3,C3,91,21,6D,AB,C 

D, 87,9B,2A,3D,AB,ED,43,44, 2946 


[4834 ] 
[3160 ) 
[53001 
[3022 1 
[3673] 
[37781 
[17501 
[2371 1 
[3690 1 
[3114] 
[2985 1 
[2991 ] 
[3709 1 
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[3304] 
[3895 ] 
[3746 1 
[35731 
[18951 
[2795 1 
[3199] 
[4776 1 
[4036 1 
13629 1 
[2835 1 
[34141 
[2905 1 
13772 1 
[4623 1 
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38 DATA AB, 7E,FE,20,28,11,FE,2D,C2,61,A4,2 
3,7E,01,FF,FF,FE,20,28,03, 2395 

39 DATA CD,87,9B,2A,44,AB,ED,43,53,AB,CD,B 
3,8E,06,0A,ED,5B,56,AB,ED, 2698 

40 DATA 53,85,B2,C5,2A,51,AB,7C,CD,7A,9D,7 
D,CD,7A,9D,00,CD,44,9B,CD, 2735 

41 DATA 78,93,CD,CF,8E,21,52,AB,3A,54,AB,C 
1 ,BE,DA,F0,8F,3A,53,AB,2B, 2759 

42 DATA BE,DA,F0,8F,10,CD,CD,F7,8F,06,0A,C 
D,E0,9D,FE,53,20,CI,C3,F0, 3206 

43 DATA 8F,32,35,AB,3A,37,AB,FE,00,C2,1 0,8 
F,3A,35,AB,C3,5A,BB,CD,CB, 2470 

44 DATA 91 ,CD,6A,93,E6,07,1 8,OB,CD,CB,91 ,C 
D,6A,93,E6,38,0F,0F,0F,FE, 2471 

45 DATA 06,47,20,17,3A,39,AB,FE,00,78,20,0 
8,3A,3C,AB,FE,00,C2,97,92, 1866 

46 DATA 21,35,A2,CD,9E,91 ,C9,3E,07,90,21 ,F 

7, Al,85,6F,06,01,18,IC,06, 1920 

47 DATA 02,18,18,21 ,73,AI,06,03,18,1 1 ,06,0 
4,18,OD,06,04,CD,AF,91,3E, 1053 

48 DATA 20,CD,45,91,C9,06,09,3A,37,AB,CD,4 
9,A2,00,7E,FE,2E,20,02,D6, 2065 

49 DATA OE,23,CD,45,91,10,F3,2A,51,AB,23,2 
2,51,AB,C9,2A,51,AB,2B,22, 1914 

50 DATA 51 ,A3,C9,32,8F,9A,C3,95,A3,00,C9,0 
0,00,00,3E,26,CD,45,91,79, 2148 

51 DATA CD,7A,9D,C9,21,2F,9C,CD,93,91 ,CD,C 
B,91,CD,6A,93,CD,7A,9D,18, 2937 

52 DATA CA,3E,2C,CD,45,91 ,CD,C3,91 ,3E,26,C 
D,45,91,CD,6A,93,57,2B,CD, 2584 

53 DATA 6A,93,5F,7A,CD,7A,9D,7B,CD,7A,9D,1 

8, AA,CD,27,92,3E,2C,CD,45, 2525 

54 DATA 91 ,C9,3E,2C,CD,45,91 ,3E,28,CD,4 5,9 

1, CD,FE,91,3E,29,CD,45,91 , 2518 

55 DATA C9,2A,51,AB,CD,6A,93,CD,C3,91 ,16,0 
0,FE,80,30,0F,5F,19,3E,26, 2185 

56 DATA CD,45,91,7C,CD,7A,9D,7D,C3,7A,9D,E 

D, 44,5F,B7,ED,52,18,EB,CB, 2990 

57 DATA 3F,CB,3F,CB,3F,07,07,85,6F,C9,CD,C 

B, 91,CD,6A,93,E6,38,0F,0F, 2381 

58 DATA OF,47,3E,08,90,47,21,OD,A2,07,85,6 
F,78,FE,03,DA,8F,91,FE,05, 1972 

59 DATA DA,93,91,CB,40,CA,93,91,C3,8F,91 ,3 

E, 05,BD,C2,93,91 ,18,35,21 , 2606 

60 DATA 41,A2,FE,FD,28,03,21,45,A2,CD,9E,9 
1,3A,38,AB,FE,00,20,06,CD, 2331 

61 DATA CB,91,CD,CB,91,CD,6A,93,4F,CD,DE,9 
1,3E,29,CD,45,91,3A,38,AB, 2817 

62 DATA FE,00,CC,C3,91,CD,C3,91,C9,CD,CB,9 
1 ,21,05,A2,3A,3C,AB,FE,00, 2840 

63 DATA 28,0A,21,0B,A2,FE,FD,28,03,21,0D,A 

2, C3,93,91,3A,3C,AB,FE,00, 2044 

64 DATA C8,E1,E1 ,18,DF,CD,F3,92,C3,93,91 ,C 

D, CB,91,CD,6A,93,E6,30,0F, 3282 

65 DATA 0F,0F,0F,47,3E,04,90,32,3B,AB,FE,0 
2,CC,E3,92,3A,3B,AB,21 ,01 , 1761 

66 DATA A2,07,85,6F,C9,BE,C8,23,10,FB,05,C 

9, CD,AF,91,3A,3C,AB,FE,00, 2580 

67 DATA C8,41,21,86,B2,35,10,FD,18,9B,3A,3 

C, AB,FE,00,C4,C3,91,C9,3A, 2449 

68 DATA 3C,AB,FE,00,C4,CB,91,C9,3E,07,CD,4 
5,91,21,AD,9C,C3,9A,91,CD, 2779 

69 DATA C3,91,32,3C,AB,C9,11,06,00,CB,3F,C 
B,3F,CB,3F,3C,47,19,10,FD, 2068 

70 DATA C9,3E,C4,BD,DA,9A,91,C3,9E,91,3A,3 
6,AB,FE,00,28,05,01 ,82,7F, 2503 

71 DATA ED,49,7E,C9,AF,32,39,AB,32,38,AB,3 
2,3C,AB,2A,51,AB,CD,6A, 93 , 2400 

72 DATA FE,DD,CC,4B,93,FE,FD,CC,4B,93,CD,6 
A,93,FE,CB,CA,81,96,FE,ED, 3721 

73 DATA CA,Dl,96,21,FD,AO,06,0D,CD,15,93,2 
O,OD,3E,0D,90,O7,O7,26,AO, 1875 

74 DATA C6,C9,6F,C3,9E,91 ,FE,40,D2,D2,94,F 

E, 02,21 ,00,9C,CA,AD,91 ,21 , 2892 

75 DATA 09,9C,FE,08,CA,AD,91,21,12,9C,FE,0 
A,CA,AD,91,FE,10,20,09,21, 2282 

76 DATA 7B,A1,CD,A2,91,C3,35,92,21,1B,9C,F 
E,12,CA,AD,91,FE,18,20,09, 2517 

77 DATA 21,77,AI,CD,9A,91 ,C3,35,92,FE,1A,2 
1,24,9C,CA,AD,91,FE,22,21 , 2557 

78 DATA 05 , A2 ,CA ,*42,97, FE, 2A,CA ,66,97,FE, 3 
2,20,OC,CD,97,91,CD,19,92, 2562 

79 DATA 3E,41,CD,45,91,C9,FE,3A,20,OB,CD,9 
7,91 ,3E,41,CD,45,91,C3,22, 2378 

80 DATA 92,FE,10,38,04,D6,10,18,F8,FE,01,2 
0,09,CD,97,91 ,CB,ED,92,C3, 2558 

81 DATA F9,91,FE,03,20,09,21,8B,A1,CD,9E,9 
1,C3,ED,92,FE,09,20,11 ,21 , 2456 


[3420J 
[4367 1 
[2626 ] 
[2750 ) 
13686 1 
13751 ] 
[3412 ] 
[4620 ] 
[44491 
[2989 1 
[4551 1 
(3403 1 
(2056 1 
[2504 1 
[3740 1 
[4400 1 
[4051 ] 
[3126 1 
(3564 ] 
(2883 ) 

13092 1 
[4405 J 
(2362) 
[3957] 
[3442 ] 
[3763 1 
(5129 1 
[3352 1 
[3254 J 
[3233 J 
[4001 1 
126931 
12180 1 
[32401 
(3260 1 
[2129 1 
(3435 1 
(3360 J 
[4076 1 
(41491 
(38321 
(2122 1 
(3311 1 
(31451 


82 DATA AF,A1,CD,9E,91,CD,C9,92,3E,2C,CD,4 
5,91,C3,ED,92,FE,OB,20,05, 2801 

83 DATA 21,8F,A1,18,DC,06,02,FE,04,20,OC,2 
1,8B,A1,CD,9E,91,32,38,AB, 2009 

84 DATA C3,60,91,FE,05,20,05,21,8F,AI,18, 
E,FE,06,20,OC,CD,97,91,32, 2186 

85 DATA 38,AB,CD,60,91,C3,E8,91,FE,00,20,3 
3,21 ,77,AI ,CD,9A,91,CD,CB, 2807 

86 DATA 91,CD,6A,93,E6,18,OF,OF,OF,47,3E,0 
4,90,47,21,15,A2,11,02,00, 1489 

87 DATA 19,10,FD,CB,47,28,05,CD,8F,91,18,0 
3,CD,93,91,3E,2C,CD,45,91, 2155 

88 DATA C3,35,92,D6,08,10,9C,C3,40,93,FE,8 
0,30,48,32,38,AB,FE,78,30, 2395 

89 DATA 2C,FE,70,38,28,CD,97,91 ,32,38,AB,C 

D, 60,91 ,CD,37,93,CD,37,93, 2544 

90 DATA 3E,2C,CD,45,91,32,39,AB,3A,3C,AB,F 

E, 00,CA,56,91,CD,6A,93,CD, 2442 

91 DATA C3,91 ,C3,5C,91,CD,97,91 ,32,38,AB,C 
D,60,91,3E,2C,CD,45,91,AF, 2696 

92 DATA 32,39,AB,C3,56,91,FE,AO,30,13,D6,8 
0,21,2B,9C,CD,52,93,06,06, 2205 

93 DATA CD,AF,91 ,32,38,AB,C3,56,91 ,FE,CO,3 
0,11,D6,A0,21,BF,A1,CD,5B, 2794 

94 DATA 92,CD,61 ,93,32,38,AB,C3,56,91 ,FE,C 
3,20,0C,21,87,AI,CD,9A,91, 2624 

95 DATA CD,A7,8F,C3,FE,91,FE,D3,20,1B,21,A 
3,AI,CD,9E,91,21,2D,9C,CD, 2937 

96 DATA 93,91 ,CD,CB,91 ,CD,6A,93,CD,D3,91 ,2 
1,06,9C,C3,9A,91,FE,DB,20, 3058 

97 DATA 19,21,49,9C,06,07,CD,AF,91,2A,51,A 
B,CD,6A,93,CD,D3,91,3E,29, 2241 

98 DATA CD,45,91,C3,C3,91,FE,CD,20,OC,21,7 

F, A1,CD,A2,91,CD,A7,8F,C3, 3000 

99 DATA FE,91,06,OA,OE,02,21,50,9C,FE,E3,C 
A,IC,93,21,83,AI,FE,C9,CA, 2540 

100 DATA 9A,91,06,07,0C,21,5A,9C,FE,E9,CA, 
IC,93,04,21,61,9C,0D,FE,F9, 2273 

101 DATA CA,IC,93,21,69,9C,FE,EB,CA,AF,91, 
D6,CO,FE,10,38,04,D6,10,18, 2672 

102 DATA F8,FE,01,20,13,21,97,AI,CD,9E,91, 
CD,F3,92,3E,03,BD,20,02,2D, 2334 

103 DATA 2D,C3,93,91,FE,05,20,08,21,93,AI, 
CD,A2,91,18,E7,06,02,FE,00, 2201 

104 DATA 20,09,21,83,AI,CD,9E,91,C3,66,92, 
FE,02,20,OF,21,87,AI,CD,9A, 2308 

105 DATA 91,CD,A7,8F,CD,66,92,C3,F9,91,FE, 
04,20,08,21,7F,AI,CD,A2,91, 2833 

106 DATA 18,EB,FE,07,20,15,21,9B,A1,CD,9E, 
91,CD,CB,91,CD,6A,93,E6,38, 2727 

107 DATA 4F,CD,C3,91,C3,DE,91,D6,08,1Q,B7, 
2A,51,AB,CD,6A,93,D6,C6,FE, 3025 

108 DATA 19,30,OE,21,2B,9C,CD,52,93,06,05, 
CD,AF,91,C3,E8,91,21,BF,A1, 2246 

109 DATA D6,20,CD,5B,92,CD,61,93,2A,51,AB, 
CD,6A,93,4F,CD,C3,91,C3,DE, 2930 

110 DATA 91,CD,C3,91,CD,2E,93,CD,6A,93,FE, 
40,30,19,FE,37,38,04,D6,08, 2528 

111 DATA 18,05,FE,2F,D2,40,93,21,CF,AI,CD, 
5B,92,CD,9E,91,C3,56,91 ,21 , 2561 

112 DATA E7,AI,CB,3F,CB,3F,CB,3F,CD,5B,92, 
CD,9E,91,CD,CB,91,CD,6A,93, 3151 

113 DATA E6,38,OF,OF,OF,C6,30,CD,45,91,3E, 
2C,CD,45,91,CD,C3,91 ,C3,56, 2347 

114 DATA 91,CD,C3,91,CD,6A,93,21,5E,A1,06, 

15,CD,15,93,20,0D,3E,15,90, 2108 

115 DATA 07,07,26,AI,C6,0A,6F,C3,9E,91,21, 
9B,9C,06,07,CD,15,93,20,13, 1811 

116 DATA 3E,07,90,47,04,21,6B,9C,11,06,00, 
19,10,FD,0 6,0 6,C 3,AF,91,FE, 1682 

117 DATA 40,DA,40,93,FE,71,CA,40,93,FE,70, 
CA,40,93,FE,80,D2,40,93,D6, 3069 

118 DATA 40,FE,10,38,04,D6,10,18,F8,FE,02, 
20,OB,21,A2,9C,06,07,CD,AF, 1939 

119 DATA 91,C3,ED,92,FE,03,2A,51,AB,20,11, 
CD,F6,92,E5,CD,97,91,CD,19, 2880 

120 DATA 92,CD,CB,91,E1,C3,8F,92,FE,OA,20, 
OB,21,B8,9C,06,07,CD,AF,91, 2626 

121 DATA C3,ED,92,FE,OB,20,11,CD,F6,92,E5, 
CD,97,91,El,CD,8F,92,CD,CB, 3346 

122 DATA 91 ,C3,22,92,06,02,FE,00,20,12,21 , 
9F,A1,CD,9A,91,CD,60,91,CD, 2340 

123 DATA CB,91,21,A9,9C,C3,9E,91,FE,01,20, 
OB,21,B0,9C,06,08,CD,AF,91, 2406 

124 DATA C3,60,91,D6,08,10,D7,C3,40,93,3A, 
36,AB,EE,01„32,36,AB,C3,95, 2436 

125 DATA A3,21,6D,AB,7E,FE,20,CA,5C,98,E5, 
CD,E6,9D,ED,43,44,AB,2A,3D, 2801 


(2543 1 
[3723 1 
(45681 
[4146 1 
[2919 1 
(3206 1 
[3095 1 
[2368 1 
(2275 1 
(2628 1 
(3746 1 
(2694 1 
[3032 1 
(3093 1 
( 3375 ) 
[36031 
[2886 1 
(38521 
[3741 ] 
(36431 
[2999 1 
(42183 

[ 3237 ] 
14049 ] 
[3331 1 
(39601 
(3829 1 
[35231 
(3148 1 
(3510 1 
(31791 
(3749 1 
(35261 
(2924 1 
(32971 
(2628 ] 
[36631 
[28381 
[3730 ) 
(2481 1 
(2790 1 
(20401 
(3011 1 
(4548 1 
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3 '86 Sonderheft 


I 








Praktische Textverarbeitung mit 


JOYCE 

Sch reib-Praxis Paket* 

Buch & Diskettenpaket zur praxisnahen Anwendung von LocoScript 


Ein Novum unter den Computerbüchern! 


Bunt gemischtes Anwender-Paket für den 
Joyce-Texter: Buch + Diskette mit Wort-Ex¬ 
perimenten, Tips und Tricks, einem Layout- 
Archiv, dem LocoScript-Software-Training, 
literarischen Text-Beispielen, »historischen 
Simulationen, Insider-Plaudereien und feuille- 
tonistischen Abwegen«, theoretischen Notizen 

und vieles mehr. 

Ein Wegweiser durch die Welt der Textver¬ 
arbeitung. 

Abwechslungsreicher Lesestoff für Neulinge 
und Fortgeschrittene, der über die Grenzen 
des Computerschreibtischs hinausführt. 


Auf Diskette: 

1. Der »LocoScript-Zettelkasten« bietet 
direkten Zugriff auf zahlreiche LocoScript- 
Standard-Schablonen in über 50 Dateien. 
Dazu: Mustertexte, Editierübungen, Schrift¬ 
beispiele, Serienbriefe, Spaltendruck, 
Tabellen, Telefonregister, typographische 
Experimente, Text-Kostproben, 
und vieles mehr. 
2. WordStar-Tastendefinitionsdatei 
mit Referenzkarte, WS-Stapeldatei für 
Startdiskette (beides individuell 
anzupassen). 
3. LOGO- und BASIC-Programme zur 
Erstellung computergenerierter Sätze und 

Gedichte. 



*Buch + Diskette für LocoScript und WordStar-Autoren von DMV 

Ca. 200 Seiten, Einband: Leinen-Hardcover 
Buch und 3”-Diskette zum Preis von 89,- DM 

Lieferbar ab Ende September 1986. 

Zu beziehen überden Computerhandel und den guten 
Fachbuchhandel oder direkt beim Verlag. Händleranfragen erwünscht. 

DMV Verlag, Fuldaer Str. 6, Postfach 250, 3440 Eschwege 
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126 DATA AB,7E,FE,20,28,13,FE,2D,C2,61 , A4 , [34611 
23,7E,01,FF,FF,FE,20,28,05, 2399 

127 DATA E5,CD,E6,9D,El,ED,43,46,AB,06,08, [2692] 
2A,28,AB,AF,BC,20,03,21 ,02, 2291 

128 DATA 29,22,85,B2,C5,2A,44,AB,7C,CD,7A, [3454] 
9D,7D,CD,7A,9D,11,86,B2,06, 2416 

129 DATA 08,2A,44,AB,1A,3C,1 2,CD,71 ,9B, 1 0, [4987] 
F8,CD,4A,9B, 1 B,1A,FE,16,20, 1925 

130 DATA 1B,04,78,21,02,29,11,16,4F,CD,50, [3071] 
BC,3E,29,32,86,B2,3E,20,06, 1383 

131 DATA 27,CD,5A,BB,10,FB,18,07,30,32,28, [3111] 
AB,32,85,B2,3E,29,32,86,B2, 1966 

132 DATA 32,29,AB,00,CI,21,45,AB,3A,47,AB, [46933 
BE,38,15,2B,3A,46,AB,BE,38, 1883 

133 DATA 0E,10,9D,CD,18,BB,06,08,CD,E0,9D, [44961 
FE,53,20,91,00,CD,1A,9B,26, 2141 

134 DATA 2E,CA,61,A4,2D,22,85,B2,CD,8A,BB, [5318] 
CD,18,BB,F5,CD,8D,BB,F1,2A, 2906 

135 DATA 85,B2,FE,FO,CA,38,99,FE,Fl,CA,41, [2870] 
99,FE,F2,CA,4F,99,FE,F3,CA, 3760 

136 DATA 64,99,CD,BA,9B,FE,53,CA,95,A3,FE, [4379] 
30,38,D2,FE,47,30,CE,FE,3A, 3109 

137 DATA 38,OB,FE,41,38,C6,CD,20,9B,D6,07, [3748] 
18,03,CD,20,9B,D6,30,32,30, 2032 

138 DATA AB,E5,CD,DB,9B,18,OF,00,00,00,00, [3096] 
00,00,00,00,00,00,00,00,00, 1018 

139 DATA 00,00,El,22,85,B2,7C,D6,2E,06,03, [3711] 
OE,00,B8,38,06,OC,04,04,04, 1247 

140 DATA 18,F7,06,00,2A,44,AB,09,E5,21,86, [2958] 
B2,34,CD,60,BB,FE,20,20,16, 2021 

141 DATA 00,35,35,CD,60,BB,34,34,34,CD,03, [36341 
9B,07,07,07,07,2A,30,AB,B5, 1583 

142 DATA 18,0C,CD,03,9B,67,3A,30,AB,07,07, 13465] 
07,07,B4,El,00,00,77,32,30, 1429 

143 DATA AB,3A,31,AB,FE,00,CA,68,98,3E,48, [3118] 
81,2A,85,B2,32,86,B2,3A,30, 2245 

144 DATA AB,FE,20,30,02,3E,2E,CD,5A,BB,22, [3565] 
85,B2,C3,68,98,3E,02,BD,CA, 2348 

145 DATA 68,98,2D,18,08,3A,28,AB,2C,BD,CA, [3770] 
68,98,22,85,B2,C3,68,98,3E, 2151 

146 DATA 2E,BC,CA,68,98,25,22,85,B2,CD,60, [3662] 
BB,FE,20,C2,68,98,25,18,E5, 2588 

147 DATA 3E,46,BC,CA,68,98,24,22,85,B2,CD, [4328) 
60,BB,FE,20,C2,68,98,24,C3, 2614 

148 DATA 49,99,El,22,3F,AB,21,6D,AB,CD,79, [4134] 
9B,ED,43,44,AB,CD,79,9B,C3, 2732 

149 DATA C3,8E,AF,B8,C2,61 ,A4,2A,44,AB,ED, [4112] 
5B,46,AB,7A,BC,DA,61,A4,20, 2822 

150 DATA 05,7B,BD,DA,61,A4,71,23,7C,BA,38, [30251 
FA,7B,BD,30,F6,C3,95,A3,21 , 2706 

151 DATA 02,00,22,85,B2,OE,16,3E,20,06,28, [34891 
CD,5A,BB,10,FB,2C,22,85,B2, 1661 

152 DATA OD,41,10,Fl,21,02,00,22,56,AB,AF, [2812] 
32,58,AB,22,5A,AB,C3,95,A3, 1947 

153 DATA 21,6D,AB,CD,87,9B,C3,AB,9B,00,21 , [3746] 
ED,99,71,23,70,CD,DO,07,32, 2482 

154 DATA 10,AB,22,16,AB,22,14,AB,21,11,AB, [3372] 
ED,73,5B,AB,31,F0,BF,00,CD, 2159 

155 DATA 8B,9B,23,23,CD,94,9B,DD,22,44,AB, C3279 ] 
ED,4B,44,AB,FD,22,44,AB,ED, 2680 

156 DATA 5B,44,AB,CD,8B,9B,ED,4B,5B,AB,CD, [3592 1 
8B,9B,D9,08,32,1 F,AB,22,23, 2448 

157 DATA AB,22,25,AB,00,21,20,AB,CD,8B,9B, [4487] 
23,23,CD,94,9B,Fl,08,CI ,Dl , 2377 

158 DATA El,D9,C3,69,A2,00,21,6D,AB,CD,79, [2328] 
9B,ED,43,6B,AB,CD,79,9B,ED, 2998 

159 DATA 43,6D,AB,CD,87,9B,ED,43,7E,AB,2A, [3640] 
6D,AB,ED,5B,6B,AB,B7,ED,52, 2873 

160 DATA 23,44,4D,2A,7E,AB,ED,52,22,78,AB, [3828] 
38,1 1 ,ED,42,30,0D,2A,7E,AB, 1939 

161 DATA 09,2B,EB,2A,6D,AB,ED,B8,18,07,EB, [2714] 
ED,5B,7E,AB,ED,BO,18,05,00, 2363 

162 DATA 64,00,C8,00,3A,8F,9A,FE,00,CA,95, [4025) 
A3,2A,90,9A,22,44,AB,CD,AD, 2414 

163 DATA 8F,AF,32,3A,AB,CD,78,93,3A,3A,AB, [2794] 
FE,00,C4,CE,9A,2A,51 ,AB,ED, 2697 

164 DATA 5B,92,9A,B7,ED,52,38,E5,00,00,00, [38851 
00,AF,32,37,AB,32,3A,AB,C3, 2103 

165 DATA 95,A3,2A,51 ,AB,2B,56,2B,5E,2A,6B, [4167] 
AB,2B,ED,52,D0,2A,6D,AB,B7, 2267 

166 DATA ED,52,D8,2A,78,AB,19,EB,2A,51,AB, [4022] 
2B,72,2B,73,C9,00,00,E2,FE, 2418 

167 DATA 8E,C5,F5,ED,4B,56,AB,7C,C3,E2,8E, [25731 
00,CD,60,BB,D6,30,FE,OA,D8, 3070 

168 DATA D6,07,C9,CD,00,9B,07,07,07,07,57, [2516] 
34,CD,00,9B,B2,34,C9,2A,28, 1822 

169 DATA AB,AF,BC,C9,47,3E,46,BC,78,C2,5A, [48821 
BB,E1,C3,68,98,3A,31,AB,EE, 2909 

170 DATA 01,32,31,AB,FE,00,28,08,3E,4F,32, [3271] 


18.98, C3,95,A3,3E,45,18,F6, 1848 

171 DATA 3E,20,CD,45,91 ,C9,22,44,AB,3A,31, 
AB,FE,00,C8,3E,48,32,86,B2, 2215 

172 DATA 01,08,00,B7,ED,42,41,C5,CD,6A,93, 
CI,FE,20,30,02,3E,2E,CD,5A, 2147 

173 DATA BB,23,10,EF,C9,C5,CD,6A,93,C1,C3, 
79,9D,CD,E6,9D,2A,3D,AB,7E, 2991 

174 DATA FE,2C,C2,A3,8F,23,C9,CD,E6,9D,C9, 
70,23,71,23,72,23,73,23,C9, 2622 

175 DATA 3E,01,36,00,30,01,77,23,36,00,20, 
01,77,23,C9,21,6D,AB,CD,79, 1401 

176 DATA 9B,18,45,D9,E5,D5,C5,D9,08,F5,08, 
31,D0,BF,C3,E6,99,O0,CD,E0, 3037 

177 DATA 9D,FE,OD,CO,D1,3A,28,AB,3D,BD,C2, 

68.98, CD,DB,9B,2A,44,AB,11 , 2671 

178 DATA 08,00,19,22,44,AB,44,4D,C3,D9,97, 
26,29,22,85,B2,21,86,B2,CD, 1988 

179 DATA OB,9B,32,45,AB,CD,OB,9B,32,44,AB, 
C9,ED,43,90,9A,CD,87,9B,ED, 2651 

180 DATA 43,92,9A,7C,C3,D3,91,00,4C,44,2E, 
28,42,43,29,2C,41,45,58,2E, 1758 

181 DATA 41,46,2C,41,46,27,4C,44,2E,41,2C, 
28,42,43,29,4C,44,2E,28,44, 1164 

182 DATA 45,29,2C,41,4C,44,2E,41,2C,28,44, 
45,29,28,26,2C,26,41,44,44, 1097 

183 DATA 2E,41,2C,41,44,43,2E,41,2C,53,55, 
42,2E,41,2C,53,42,43,2E,41, 1226 

184 DATA 2C,49,4E,2E,41,2C,28,26,45,58,2E, 
28,53,50,29,2C,48,4C,4A,50, 1221 

185 DATA 2E,28,48,4C,29,4C,44,2E,53,50,2C, 
48,4C,45,58,2E,44,45,2C,48, 1276 

186 DATA 4C,49,4D,2E,30,2E,2E,4C,44,2E,49, 
2C,41,4C,44,2E,41,2C,49,49, 1229 

187 DATA 4D,2E,31,2E,2E,49,4D,2E,32,2E,2E, 
4C,44,2E,52,2C,41,4C,44,2E, 1173 

188 DATA 41,2C,52,46,47,57,56,5E,4F,5F,53, 
42,43,2E,48,4C,2C,2C,28,43, 1378 

189 DATA 29,3F,3F,3F,4F,55,54,2E,28,43,29, 
2C,41,44,43,2E,48,4C,2C,00, 1154 

190 DATA FE,04,C2,E0,9E,78,FE,04,D2,E0,9E, 
OF,OF,OF,OF,B4,OE,ED,47,18, 2390 

191 DATA 6D,2A,5E,AB,77,23,C3,4F,9D,FE,01, 
20,03,7C,18,44,FE,03,20,09, 1805 

192 DATA AF,B8,C2,E0,9E,41,4D,18,51,FE,0D, 
C2,E0,9E,AF,B8,C2,E0,9E,41, 3025 

193 DATA 4A,18,48,16,CB,FE,01,20,06,7C,BO, 
47,4A,18,37,FE,OD,C2,E0,9E, 2055 

194 DATA AF,B8,C2,E0,9E,43,18,1E,CB,08,CB, 
08,CB,08,CB,08,18,06,CB,20, 2165 

195 DATA CB,20,CB,20,BO,ED,4B,5E,AB,02,03, 
ED,43,5E,AB,C3,89,A4,3A,41, 2416 

196 DATA AB,2A,5E,AB,77,23,72,23,18,0D,2A, 
5E,AB,18,08,2A,5E,AB,3A,41, 1587 

197 DATA AB,77,23,71,23,70,23,22,5E,AB,44, 
4D,C3,89,A4,FE,01,C2,DF,9E, 2390 

198 DATA 78,FE,01,C2,DF,9E,06,03,C9,OA,FE, 
00,C8,CD,5A,BB,03,18,F6,13, 2398 

199 DATA ED,53,85,B2,7E,23,4F,0F,0F,0F,0F, 
E6,OF,CD,8B,9D,79,E6,OF,CD, 2248 

200 DATA 8B,9D,C9,FE,0A,38,02,C6,07,C6,30, 
CD,45,91,C9,21,C8,B8,11,C8, 2524 

201 DATA 00,06,08,C5,01,EB,07,09,01,15,00, 
ED,BO,C1,10,F3,3E,01,47,21, 1517 

202 DATA 02,00,11,16,27,CD,50,BC,21,C8,00, 
11,F4,BE,06,08,C5,01,EB,07, 1691 

203 DATA EB,09,EB,01,15,00,ED,BO,CI,10,Fl, 
11,16,14,ED,53,85,B2,3E,20, 2148 

204 DATA 06,14,CD,5A,BB,10,FB,C9,FE,60,D8, 
D6,20,C9,E5,7E,FE,2F,38,03, 2704 

205 DATA 23,18,F8,FE,26,28,F9,54,5D,22,3D, 
AB,El,7E,FE,26,20,16,23,7B, 2186 

206 DATA 95,FE,05,D4,7F,9E,AF,32,50,AB,DD, 
21,00,00,FD,21,48,AB,18,IE, 2218 

207 DATA FE,30,DC,7F,9E,FE,3A,D4,7F,9E,3E, 
01,32,50,AB,7B,95,FE,06,D4, 2724 

208 DATA 7F,9E,DD,21,00,00,FD,21,61,AB,1B, 
1A,FE,30,28,26,3A,50,AB,FE, 2089 

209 DATA 01,28,0C,1A,CD,71,9E,FE,3A,38,08, 
D6,07,18,04,1A,CD,78,9E,D6, 1903 

210 DATA 30,D5,FD,56,01,FD,5E,00,47,DD,19, 
10,FC,Dl,FD,23,FD,23,7B,BD, 2630 

211 DATA 20,CC,DD,22,51,AB,ED,4B,51,AB,3E, 
OB,C9,FE,47,30,OA,FE,40,DO, 2490 

212 DATA FE,3A,30,03,FE,2F,D0,3A,42,AB,D1, 
Dl,FE,01,C2,60,A4,AF,32,42, 2585 

213 DATA AB,C3,61,A4.FE,01,CO,78,FE,07,3E, 
00,C9,11,14,AB,1A,BE,CO,13, 2353 

214 DATA 23,10,F9,C9,C5,E5,41,CD,99,9E,El, 
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CI,08,59,16,00,19,10,Fl,AF, 2694 

215 DATA B9,C9,FE,04,CO,78 ,FE,02,3E,00,C9, [3354] 
21,14,AB,3E,2E,06,08,77,23, 1975 

216 DATA 10,FC,2A,5C,AB,11,14,AB,06,09,7E, [3721 J 
FE,20,C8,FE,2C,08,12,23,13, 1978 

217 DATA 10,F4,D1,D1 ,3E,07,CD,5A,BB,ED,4B, [44431 
5E,AB,C3,89,A4,CD,BF,9E,3E, 2918 

218 DATA 09,90,32,43,AB,FE,00,C8,23,22,5C, [2830] 
AB,FE,01,28,26,FE,02,28,53, 1939 

219 DATA FE,03,CA,87,9F,FE,04,CA,9F,9F,FE, [3865] 

05,20,08,CD,F4,9F,CD,OC,AO, 2815 

220 DATA 18,34,CD,C4,9F,3A,43,AB,CD,F4,9F, [4210] 
C3,DF,9E,21,F7,A1,06,08,4F, 2650 

221 DATA CD,A4,9E,20,04,05,3E,01 ,C9,06,02, [2971] 
CD,A4,9E,20,03,3E,06,C9,21 , 1704 

222 DATA OF,A2,06,08,OC,CD,A4,9E,20,04,05, [4387] 
3E,02,C9,21,14,AB,CD,E6,9D, 1852 

223 DATA 3E,03,C9,21 ,01 ,A2,06,05,OE,02,CD, [2841] 
A4,9E,20,04,05,3E,04,C9,06, 1330 

224 DATA 02,CD,A4,9E,20,OE,3E,02,B8,28,04, [3424] 
OE,DD,18,02,OE,FD,3E,05,C9, 1663 

225 DATA 06,08,CD,A4,9E,20,CB,05,3E,02,C9, [3878] 
CD,0C,A0,06,02,OE,03,CD,A4, 1817 

226 DATA 9E,20,04,78,C6,08,C9,3A,43,AB,CD, [3044] 
F4,9F,18,AF,21,29,A2,06,06, 2072 

227 DATA OE,04,CD,A4,9E,20,OE,05,78,FE,02, [3077] 

20,05,3E,01,06,06,C9,3E,0C, 1359 

228 DATA C9,CD,OC,AO,3A,43,AB,CD,F4,9F,18, [4150] 

8A,21,41,A2,06,02,0E,04,CD, 2135 

229 DATA A4,9E,CO,CB,40,28,04,3E,DD, 1 8,02, [3480] 
3 E,FD,32,41 ,AB,3A,4 3,AB,21 , 2064 

230 DATA 13,AB,85,6F,7E,FE,29,El,C2,DF,9E [3772] 
21 ,18,AB,CD,E6,9D,3E,OD,C9 , 2751 

231 DATA 3D,21,14,AB,5F,16,00,7E,FE,28,CO, [3783] 
19,7E,FE,29,CO,El,21,15,AB, 2102 

232 DATA CD,E6,9D,C9,21,1F,A2,06,02,48,CD, [3179] 
A4,9E,CO,78,C6,06,32,53,AB, 2446 

233 DATA El,21,16,AB,CD,E6,9D,AF,B8,DA,DF, [3886] 
9E,3A,53,AB,57,FE,07,28,0A, 2711 

234 DATA 3E,81,B9,DA,DF,9E,OD,OD,7A,C9,3E, [2686] 
7E,B9,DA,DF,9E,AF,OC,OC,91, 2640 

235 DATA 4F,7A,3C,C9,2A,2A,2A,00,43,50,43, [2938] 

2D,4D,6F,6E,2E,00,76,6F,6E, 1530 

236 DATA 00,50,2E,42,65,6E,65,73,00,41 ,2E, [3141] 

42,43,2E,44,45,2E,48,4C,2E, 1286 

237 DATA 43,2E,5A,2E,53,50,00,5B,41,5D,3D, [2364] 
41,73,73,65,6D,62,6C,65,72, 1648 

238 DATA 2E,5B,44,5D,3D,44,69,73,61,73,73, [3753] 
2E,5B,4D,5D,3D,4D,6F,6E,2E, 1686 

239 DATA 5B,52,5D,3D,52,75,6E,2E,5B,56,5D, [3590] 

3D,56,65,72,73,63,68,69,65, 1838 

240 DATA 62,65,6E,2E,5B,46,5D,30,46,75,65, [4302] 
6C,6C,65,6E,2E,5B,42,5D,3D, 1742 

241 DATA 42,61,73,69,63,00,46,65,68,6C,65, [2666] 
72,00,43,43,46,2E,43,50,4C, 1553 

242 DATA 2E,44,41,41,2E,44,49,2E,2E,45,49, [2813] 
2E,2E,45,58,58,2E,48,41,4C, 1261 

243 DATA 54,4E,4F,50,2E,52,4C,41,2E,52,4C, [2636] 
43,41,52,52,41,2E,52,52,43, 1432 

244 DATA 41 ,53,43,46,2E,3F,2F,27,F3,FB,D9 , [2344] 
76,00,17,07,1F,0F,37,43,50, 1587 

245 DATA 44,2E,43,50,44,52,43,50,49,2E,43, [4024] 
50,49,52,49,4E,44,2E,49,4E, 1395 

246 DATA 44,52,49,4E,49,2E,49,4E,49,52,4C, [3668] 
44,44,2E,4C,44,44,52,4C,44, 1422 

247 DATA 49,2E,4C,44,49,52,4E,45,47,2E,4F, [4678] 
54,44,52,4F,54,49,52,4F,55, 1 477 

248 DATA 54,44,4F,55,54,49,52,45,54,49,52, [3697] 
45,54,4E,52,4C,44,2E,52,52, 1530 

249 DATA 44,2E,A9,B9,AI,B1,AA,BA,A2,B2,A8, [5027] 
BÖ,AO,B0,44,BB,B3,AB,A3,4D, 3035 

250 DATA 45,6F,67,4C,44,2E,2E,4A,52,2E,2E, [4358] 
44,4A,4E,5A,43,41,4C,4C,52, 1443 

251 DATA 45,54,2E,4A,50,2E,2E,49,4E,43,2E, [3391] 
44,45,43,2E,50,55,53,48,50, 1 359 

252 DATA 4F,50,2E,52,53,54,2E,49,4E,2E,2E, [2861] 
4F,55,54,2E,49,4D,2E,2E,45, 1348 

253 DATA 58,2E,2E,41,44,44,2E,41,44,43,2E, [2245] 
53,55,42,2E,53,42,43,2E,41, 1280 

254 DATA 4E,44,2E,58,4F,52,2E,4F,52,2E,2E, [4378] 
43,50,2E,2E,52,4C,43,2E,52, 1332 

255 DATA 52,43,2E,52,4C,2E,2E,52,52,2E,2E, [2542] 
53,4C,41,2E,53,52,41,2E,53, 1330 

256 DATA 52,4C,2E,42,49,54,2E,52,45,53,2E, [2628] 
53,45,54,2E,41,A3,4C,48,45, 1480 

257 DATA 44,43,42,49,52,41,46,53,50,48,4C, [3992] 
44,45,42,43,49,59,49,58,40, 1472 

258 DATA 2E,50,2E,50,45,50,4F,43,2E,4E,43, [2612] 
5A,2E,4E,5A,24,2B,24,2D,41 , 1267 


259 DATA 46,27,28,43,29,28,49,59,29,28,49, [2901] 
58,29,28,53,50,29,28,48,4C, 1174 

260 DATA 29,28,44,45,29,28,42,43,29,28,49, [2485] 
59,2B,28,49,58,2B,FE,00,C8, 1416 

261 DATA FE,FF,C3,CF,90,41,2E,42,43,2E,44, [3624] 
45,2E,48,4C,2E,43,2E,5A,2E, 1971 

262 DATA 49,58,2E,49,59,2E,53,50,2E,AF,21, [4188] 
28,AB,06,58,77,23,10,FC,21, 1592 

263 DATA 01,00,22,61,AB,22,48,AB,2E,OA,22, [2663] 

63,AB,2E,64,22,65,AB,21,E8, 1657 

264 DATA 03,22,67,AB,21,10,27,22,69,AB,26, [3565) 
00,2E,10,22,4A,AB,21,00,01, 1122 

265 DATA 22,4C,AB,26,10,22,4E,AB,3E,02,32, [25821 

56,AB,32,5A,AB,3E,02,CD,OE, 1583 

266 DATA BC,21,00,1D,22,85,B2,01,48,AO,CD, [2250] 
69,9D,21,86,B2,34,03,CD,69, 2005 

267 DATA 9D,34,01,48,AO,CD,69,9D,36,45,01, [3155] 
55,AO,CD,69,9D,34,CD,9C,BB, 2345 

268 DATA 01,59,AO,CD,69,9D,CD,9C,BB,21,04, [1058] 
48,06,09,22,85,B2,11,51,A2, 1994 

269 DATA 1A,FE,2E,28,08,E5,CD,5A,BB,El,13, [47951 

18,F3,23,22,85,B2,13,10,EC, 2247 

270 DATA E5,CD,9C,BB,El,3A,59,AB,FE,00,20, [3215] 
OB,3E,01,32,59,AB,00,23,06, 2031 

271 DATA 06,18,CF,AF,32,59,AB,21 ,.04,4A,22, [3170] 
85,B2,06,10,3E,3D,CD,5A,BB, 1805 

272 DATA 3E,26,CD,5A,BB,23,22,85,B2,1 0,FO, [3731] 
21,0D,4A,22,85,B2,3E,20,CD, 1982 

273 DATA 5A,BB,CD,5A,BB,21,10,AB,11,04,4C, [4226] 
ED,53,85,B2,CD,78,9D,06,03, 2198 

274 DATA CD,73,9D,CD,78,9D,10,F8,06,02,CD, [4243) 
73,9D,10,FB,06,03,CD,73,9D, 2461 

275 DATA CD,78,9D,10,F8,13,CD,73,9D,06,03, [3795] 
CD,73,9D,CD,78,9D,10,F8,CD, 2679 

276 DATA 73,9D,CD,73,9D,CD,9C,BB,01,73,AO, [4009] 
11,18,00,ED,53,85,B2,CD,69, 2555 

277 DATA 9D,CD,9C,BB,3E,20,32,1C,AB,3E,20, [3558] 
21,6B,AB,06,15,77,23,10,FC, 1902 

278 DATA 21,6B,AB,22,5C,AB,ED,5B,56,AB,ED, [4425) 
53,85,B2,CD,8A,BB,CD,18,BB, 2770 

279 DATA F5,CD,8D,BB,Fl,FE,OD,28,58,FE,7F, (4116) 

CA,82,90,FE,10,CA,AA,90,FE, 3311 

280 DATA F2,28,20,FE,F3,28,31,FE,1F,38,DB, [4533] 
CD,5A,BB,2A,5C,AB,77,23,22, 2435 

281 DATA 5C,AB,3A,5B,AB,3C,FE,14,28,2F,32, (2601) 
5B,AB,18,C3,3A,5B,AB,FE,00, 2109 

282 DATA 28,BC,21,86,B2,35,3D,32,5B,AB,21, [3491] 
5C,AB,35,18,AE,3A,5B,AB,FE, 2120 

283 DATA 14,28,A7,21,86,B2,34,3C,32,5B,AB, [3556] 
21,5C,AB,34,18,99,CD,1B,A4, 1917 

284 DATA C3,FD,AA,3A,5A,AB,3C,FE, 1 7,38,1 4, (3932] 
3A,58,AB,FE,00,28,25,CD,97, 2354 

285 DATA 9D,3E,14,32,57,AB,AF,32,5B,AB,C9, [3637] 
32,5A,AB,5F,16,00,3A,58,AB, 1980 

286 DATA FE,00,28,02,16,14,AF,32,5B,AB,ED, [3272] 
53,56,AB,C9,3C,32,58,AB,21, 2005 

287 DATA 02,14,22,56,AB,26,00,22,5A,AB,EB, [3470] 
C9,Dl,3E,07,CD,5A,BB,01,C2, 2037 

288 DATA AO,ED,5B,56,AB,ED,53,85,B2,CD,69, [2940] 
9D,CD,1B,A4,C3,95,A3,21,6D, 2888 

289 DATA AB,3E,01,32,42,AB,CD,E6,9D,AF,32, [3302] 
42,AB,ED,5B,56,AB,ED,43,5E, 2558 

290 DATA AB,ED,53,85,B2,78,41,CD,7A,9D,78, [2125] 
CD,7A,9D,3E,01,32,60,AB,2A, 2497 

291 DATA 85,B2,24,22,56,AB,3E,05,32,5B,AB, [3293] 
C3,95,A3,21,6B,AB,7E,FE,57, 2302 

292 DATA CA,03,90,FE,5A,CA,21,90,FE,53,20, [2908] 
0E,23,7E,2B,FE,20,20,07,AF, 2159 

293 DATA 32,60,AB,C3,95,A3,E5,22,5C,AB,CD, [3030] 
BF,9E,23,22,5C,AB,El,21,73, 2609 

294 DATA AI,06,21,OE,04,CD,A4,9E,C2,7B,A5, [3031] 
78,FE,21,CA,85,A9,FE,20,CA, 2626 

295 DATA 32,A9,FE,1F,CA,14,A7,FE,1E,CA,5D, [4046] 
A8,FE, 1 D,CA,BA,A6,FE,1C,CA, 2961 

296 DATA DE,A8,FE,1B,CA,8B,A6,FE,1A,CA,80, [38251 
A6,FE,19,CA,39,A6,FE,18,CA, 3138 

297 DATA 30,A6,FE,17,CA,D4,A6,FE,16,CA,F5, [4339] 
A5,FE,15,CA,D2,A5,FE,14,CA, 3287 

298 DATA 59,A6,FE,13,CA,85,A8,FE,12,CA,CE, [3528] 
A7,FE,11,CA,37,A8,FE,10,CA, 3046 

299 DATA BA,A7,FE,OF,CA,E2,A6,FE,OE,CA,A4, [3823] 
A7,FE,0D,CA,09,A7,FE,0C,CA, 3130 

300 DATA D2,A8,FE,OB,CA,AF,A7,FE,03,CA,7E, [3056] 
A7,FE,02,CA,70,A7,FE,01,CA, 3133 

301 DATA 77,A7,D6,03,47,21,20,A7,11,OA,00, [2931] 
19,10,FD,E9,21,0A,AI,06,15, 1591 

302 DATA OE,04,CD,A4,9E,20,1B,21,5E,A1,3E, [3744] 
15,90,06,00,4F,09,7E,2A,5E, 1475 

303 DATA AB,36,ED,23,77,23,22,5E,AB,44,4D, [3856] 
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C3,89,A4,21,C9,A0,06,0D,0E, 2018 

304 DATA 04,CD,A4,9E,28,0C,3E,07,CD,5A,BB, [3007] 
ED,4B,5E,AB,C3,89,A4,21 ,FD, 2493 

305 DATA A0,3E,0D,90,06,00,4F,09,7E,2A,5E, [29131 
AB,77,23,22,5E,AB,44,4D,C3, 1699 

306 DATA 89,A4,CD,EC,9E,32,55,AB,ED,43,3F, [4402] 
AB,CD,EC,9E,FE,01,C2,E0,9E, 3174 

307 DATA 78,32,41,AB,ED,4B,3F,AB,3A,55,AB, 13871] 
2E,D3,26,41,18,13,CD,EC,9E, 2268 

308 DATA FE,01,C2,E0,9E,78,32,41,AB,CD,EC, [2537] 
9E,26,40,2E,DB,FE,09,20,1 2, 2516 

309 DATA 3A,41,AB,FE,06,CA,E0,9E,07,07,07, [3728] 
B4,47,0E,ED,C3,42,9D,FE,0B, 2344 

310 DATA C2,E0,9E,3A,41,AB,FE,07,C2,E0,9E, [3274] 
3E,03,C3,DD,9C,CD,EC,9E,16, 2965 

311 DATA CI ,IE,El ,18,07,CD,EC,9E,16,C5,IE, [3794] 
E5,FE,05,20,04,43,C3,42,9D, 2336 

312 DATA FE,04,C2,E0,9E,3D,B8,CA,E0,9E,30, [36881 
01,05,7A,C3,18,9D,CD,EC,9E, 2814 

313 DATA FE,03,C2,E0,9E,41,AF,OE,ED,B8,20, [3692] 
05,06,46,C3,42,9D,3C,B8,20, 2315 

314 DATA 05,06,56,C3,42,9D,3C,B8,C2,E0,9E, [3711] 
06,5E,C3,42,9D,CD,EC,9E,21 , 2485 

315 DATA OB,05,11 ,2B,35,18,09,CD,EC,9E,21 , [40181 
03,04,11,23,34,FE,01,20,04, 1196 

316 DATA 7C,C3,22,9D,FE,04,20,08,E8,CA,EO, [3390] 
9E,7D,C3,18,9D,FE,OD,20,05, 2381 

317 DATA 41,4A,C3,47,9D,FE,05,C2,EO,9E,43, [3582] 
C3,42,9D,CD,EC,9E,FE,00,20, 2767 

318 DATA 05,3E,C9,C3,29,9D,FE,02,C4,5B,9D, (3418) 
78,07,07,07,F6,C0,C3,29,9D, 2333 

319 DATA CD,EC,9E,FE,03,C2,EO,9E,3E,C7,41, [4018] 
C3,28,9D,CD,EC,9E,FE,01,20, 3036 

320 DATA 12,3E,07,B8,C2,EO,9E,CD,EC,9E,26, [2678] 
98,2E,DE, 1 6,9E,C3,DD,9C,CD, 2861 

321 DATA B6,9E,C2,E0,9E,CD,EC,9E,26,42,C3, (43391 
CO,9C,CD,EC,9E,21,EE,A8,16, 3222 

322 DATA AE,C3,DD,9C,CD,EC,9E,1E,10,FE,03, 12902] 
CA , 3B,A9,FE,08,00,C2,E0,9E, 2916 

323 DATA 41,OE, 1 0,C3,42,9D,CD,EC,9E,26,38, [36101 
1E,3E,C3,FF,9C,CD,EC,9E,26, 2541 

324 DATA 28,1E,2E,C3,FF,9C,CD,EC,9E,26,20, [3686] 

1 E,26,C3,FF,9C,CD,EC,9E,26, 2702 

325 DATA 18,IE,IE,C3,FF,9C,CD,EC,9E,26,1 0, [35451 
1 E,16,C3,FF,9C,CD,EC,9E,26, 2638 

326 DATA 08,1E,OE,C3,FF,9C,CD,EC,9E,26,00, [27551 
1 E,06,C3,FF,9C,CD,EC,9E,16, 2558 

327 DATA 80,18,0C,CD,EC,9E,16,CO,18,05,CD, [33151 
EC,9E,16,40,FE,03,C2,E0,9E, 2524 

328 DATA 79,FE,08,D2,E0,9E,07,07,07,B2,32, (3240] 
54,AB,CD,EC,9E,F5,3A,54,AB, 2636 

329 DATA 67,F6,06,5F,Fl,C3,FF,9C,CD,EC,9E, [2990] 
21,E6,AO,16,A6,C3,DD,9C,CD, 3284 

330 DATA EC,9E,21,FE,B8,16,BE,C3,DD,9C,CD, [28791 
EC,9E,CD,90,9E,C2,E0,9E,CD, 3536 

331 DATA EC,9E,21,D6,90,16,96,C3,DD,9C,CD, [3237] 
EC,9E,CD,90,9E,20,OB,CD,EC, 3119 

332 DATA 9E,21 ,C6,80,1 6,86,C3,DD,9C,CD,B6, [36001 
9E,20,13,CD,EC,9E,FE,04,C2, 2892 

333 DATA EO,9E,78,FE,04,CA,E0,9E,3E,09,C3, [4647] 
18,9D,FE,05,C2,E0,9E,79,32, 2797 

334 DATA 3F,AB,CD,EC,9E,FE,04,20,1 1 ,3E,02, [4504 1 
B8,CA,EO,9E,87,B8,CA,EO,9E, 2875 

335 DATA 3A,3F,AB,4F,18,OE,FE,05,C2,EO,9E, [4185] 
3A,3F,AB,B9,C2,E0,9E,06,02, 2305 

336 DATA CB,08,CB,08,CB,08,CB,08,3E,09,BO, [23731 
47,C3,42,9D,CD,EC,9E,FE,01, 2434 

337 DATA 20,11 ,3E,07,B8,C2,EO,9E,CD,EC,9E, (32681 
21,CE,88,16,8E,C3,DD,9C,CD, 2793 

338 DATA B6,9E,C2,E0,9E,CD,EC,9E,26,4A,C3, (48491 
CO,9C,CD,EC,9E,FE,03,20,05, 3063 

339 DATA 3E,CD,C3,D5,9C,FE,02,C4,5B,9D,78, [3957] 
07,07,07,F6,C4,32,54,AB,CD, 2624 

340 DATA EC,9E,FE,03,C2,E0,9E,3A,54,AB,C3, [38281 
D5,9C,CD,EC,9E,FE,04,20,25, 3030 

341 DATA 78,FE,01,20,OE,CD,EC,9E,CD,B6,9E, [46641 
C2,EO,9E,3E,EB,C3,29,9D,FE, 3085 

342 DATA 04,C2,EO,9E,CD,EC,9E,FE,0A,C2,EO, [41691 
9E,3E,08,C3,29,9D,FE,OC,C2, 2942 

343 DATA EO,9E,78,FE,03,C2,EO,9E,CD,EC,9E, [2760] 
57,CD,B6,9E,3E,E3,CA,29,9D, 3255 

344 DATA 47,7A,FE,05,C2,EO,9E,C3,42,9D,CD, [2618] 
EC,9E,26,BO,2E,F6,16,B6,C3, 2950 

345 DATA DD,9C,CD,EC,9E,FE,02,20,14,78,07, [2491] 
07,07,F6,C2,32,41,AB,CD,EC, 2592 

346 DATA 9E,FE,03,C2,EO,9E,C3,47,9D,FE,03, [4009] 
20,05,3E,C3,C3,D5,9C,FE,01, 2784 

347 DATA 20,11,78,C6,02,FE,03,28,D9,FE,08, [22821 
C2,E0,9E,3E,E9,C3,29,9D,FE, 2663 


348 DATA OC,C2,EO,9E,78,06,E9,FE,05,20,05, [4195] 
OE,FD,C3,42,9D,FE,04,C2,EO, 2604 

349 DATA 9E,OE,DD,C3,42,9D,CD,EC,9E,FE,03, [3468] 
IE,18,20,21,60,69,ED,4B,5E, 2393 

350 DATA AB,ED,42,2B,2B,3E,80,BD,38,07,AF, [2860] 

BC,C2,EO,9E,18,06,3E,FF,BC, 2476 

351 DATA C2,E0,9E,4B,45,C3,42,9D,FE,08,20, [4614] 

05,41,4B,C3,42,9D,FE,02,C4, 2447 

352 DATA 5B,9D,78,07,07,07,F6,20,32,54,AB, [34011 
CD,EC,9E,ED,5B,54,AB,FE,08, 2416 

353 DATA 28,E2,FE,03,28,B9,C3,EO,9E,CD,EC, [2716] 
9E,ED,43,3F,AB,FE,04,20,53, 2835 

354 DATA B8,CA,E0,9E,CD,EC,9E,ED,5B,3F,AB, [4984] 
FE,03,20,0A,7A,0F,0F,0F,0F, 2410 

355 DATA F6,01,C3,D5,9C,FE,OB,20,1A,3A,40, [3727] 
AB,FE,02,20,05,3E,2A,C3,D5, 2232 

356 DATA 9C,7A,1E,4B,OF,OF,OF,OF,B3,57,3E, [2980] 
ED,C3,39,9D,67,7A,FE,03,C2, 2093 

357 DATA EO,9E,7C,CD,B6,9E,20,05,3E,F9,C3, [33031 

29,9D,FE,05,C2,EO,9E,06,F9, 2882 

358 DATA C3,42,9D,FE,OB,20,39,CD,EC,9E,CD, (21961 
90,9E,20,09,3E,32,ED,4B,3F, 2406 

359 DATA AB,C3,D5,9C,FE,04,20,1 5,78,FE,04, [4898 1 
CA,EO,9E,FE,02,ED,4B,3F,AB, 2810 

360 DATA 1E,43,20,B0,3E,22,C3,D5,9C,FE,05, [3659] 

C2,E0,9E,79,16,22,ED,4B,3F, 2352 

361 DATA AB,C3,39,9D,FE,0C,20,18,78,FE,02, [37691 
D2,EO,9E,CD,EC,9E,CD,90,9E, 2976 

362 DATA C2,EO,9E,ED,4B,3F,AB,3E,02,C3,1 8, [22921 
9D,FE,05,20,IC,CD,EC,9E,FE, 2734 

363 DATA 03,20,08,3A,3F,AB,16,21,C3,39,9D, [3283] 
FE,OB,C2,E0,9E,3A,3F,AB,16, 1954 

364 DATA 2A,C3,39,9D,FE,06,20,1B,CD,EC,9E, [3796] 
CD,90,9E,C2,E0,9E,3A,40,AB, 2745 

365 DATA FE,01,20,04,06,4F,18,02,06,47,OE, (3010] 
ED,C3,42,9D,FE,0D,20,26,CD, 1690 

366 DATA EC , 9E, FE ,03,20,0F,16,36 ,-AF, B8 , DA, (3753 1 
EO,9E,3A,3F,AB,41,4F,C3,36, 2418 

367 DATA 9D,FE,01,C2,EO,9E,78,F6,70,4F,3A, [1952] 
3F,AB,47,C3,47,9D,FE,01,C2, 2780 

368 DATA EO,9E,3A,40,AB,07,07,07,32,40,AB, [3824] 
CD,EC,9E,5F,3A,40,AB,57,FE, 2309 

369 DATA 38,20,2E,7B,FE,OB,20,05,3E,3A,C3, [2902] 

D5,9C,FE,OC,20,OB,78,FE,02, 1928 

370 DATA D2,E0,9E,3E,OA,C3,18,9D,FE,06,20, [3293] 
11,0E,ED,78,FE,01,20,05,06, 2018 

371 DATA 5F,C3,42,9D,06,57,C3,42,9D,3E,40, [3665] 
B2,67,3E,06,B2,6F,3E,46,B2, 2098 

372 DATA 57,7B,C3,DD,9C,21,6B,AB,06,14,7E, [4954] 
CD,EO,9D,77,23,10,F8,3A,60, 2403 

373 DATA AB,C3,3F,90,00, 573 (10931 

374 MEMORY &8EAF:dat=0:sz=0:dz= 10:CLS:PRI (3476) 
NT"Bitte etwas Geduld" 

375 FOR adr=-29008 TO-21744 [2002] 

376 READ b$:byte=VAL(" ä"+ b$):dat=dat+1 :sz= [4614] 
sz+byte:POKE adr,byte 

377 IF dat< 20 AND adr<-21 744 TUEN 380 [2336 ] 

378 READ chksum:IF chksum <>sz THEN PRINT [4000] 
"Fehler in Zeile :";dz 

379 dz=dz+ 1 :sz=0:dat=0 (8931 

380 NEXT [350] 

381 PRINT"Fertig. Wurde kein Fehler anzeig [5737] 
t , so speichern Sie zuerst die Data-Zeile 

n ab.":END 
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r Erstellen Sie Ihre 

eigenen 

Grafik-Abenteuert 


Mit dem flexiblen, leicht anzuwendenden 
Grafik-Adventure-Creator. 





Flexible Textgestaltung 

erlaubt Ihnen umfangreiche Beschreibungen Ihrer Lokationen 
und das Erstellen Ihrer eigenen Kommentare. GAC formiert diese 
Kommentare und Texte nach Textverarbeitungsprinzip, so daß 
Ihr eigenes Adventure "professionell” aussieht. 

Der "Graphik-Adventure-Creator” wurde speziell für die Schneider 
CPC Rechner entwickelt, um es Ihnen zu ermöglichen, schnelle 
und kompakte Grafik-Abenteuerspiele mit voller Ausnutzung der 
Rechnermöglichkeiten und einem minimalen Aufwand an Pro¬ 
grammierkenntnissen zu erstellen. 

Kompletter, intelligenter Kommando-Interpreter (Parser) 

Der Parser versteht komplexe Sätze und Mehrfach-Kommandos. 
Sie werden nicht auf Zwei-Wort-Kommandos wie "geh Nord” be¬ 
schränkt. GAC "versteht” auch Eingaben wie z.B. "nimm die 
Truhe und öffne sie vorsichtig. Untersuche das Medallion und leqe 
es in die Truhe.” 

Der Parser erkennt bis zu fünf Buchstaben eines Kommandos und 
kann auch ähnlich klingende Worte unterscheiden. 


P.S.: 

Abenteuer, die Sie mit GAC erstellt haben, laufen völlig unabhän¬ 
gig vom Creator. Das heißt, daß Sie Ihre Abenteuer verschenken 
oder vermarkten können. 

GAC-Abenteuer können einfach mit Run gestartet werden, also 
ohne den eigentlichen Creator zu benötigen. Außerdem enthält 
der GAC eine komplette deutsche Bedienungsanleitung. 

Geld verdienen mit dem GAC 

Mit diesem Programm ist es möglich, Abenteuer professioneller 
Qualität zu entwickeln. Programme, die mit dem GAC erstellt 
wurden, laufen ohne den Creator "Stand allone”. Sie können 
Ihre Programme also professionell vermarkten und verkaufen. 
Lassen Sie Ihrer Phantasie freien Lauf mit dem Graphic-Ad- 
venture-Creator. 

Wenn Sie ein spannendes, lustiges oder gruseliges Abenteuer 
mit dem GAC geschrieben haben, lassen Sie es uns wissen. 

Vertrieb in Deutschland, Österreich und der Schweiz 
über: DMV-Verlag -Leserservice-, Fuldaer Str. 6 
3440 Eschwege, Telefon: (0 56 51 ) 87 02 
Telex 993 210 dmvd 


Bitte benutzen Sie die Bestellkarte! 


Händleranfragen willkommen! 


Mit dem GAC ist das 
Erzeugen von Grafiken, 
wie diesen, auf einfach¬ 
ste Art möglich. 

Im Grafik-Editor sind 
Funktionen wie Line, 
Dot, Circle, Ellypse und 


765 Verben und Sub¬ 
stantive in ein Abenteu¬ 
er einzubauen, alphabe¬ 
tisch zu überprüfen und 
zu sortieren. 


Fast Fill enthalten. Es 
ist möglich, Bilder mit¬ 
einander zu kombinieren 
oder in einem Bild Schritt 
für Schritt vor- und zu¬ 
rückzublättern. 
Weiterhin ist es möglich, 
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In letzter Minute (der Layouter war 
hocherfreut) haben wir noch Platz für 
diesen Artikel im Heft angemeldet. 
Der Grund allerdings rechtfertigt die 
aufgetretene Hektik: Die Gerüchtekü¬ 
che hat (bis auf weiteres) ausgekocht; 
der mit Spannung erwartete Schneider 
PC ist „aus dem Sack”. 

Leider sind die zur Zeit zur Verfü¬ 
gung stehenden Informationen recht 
knapp, so daß Sie sich zunächst mit 
einigen Fotos und Auszügen aus 
einem Presseblatt, gemischt mit er¬ 
sten eigenen Eindrücken, begnügen 
müssen. Heft 10 der CPC Internatio¬ 
nal wird jedoch eine ausführliche 
Soft- und Hardwarebeschreibung 
präsentieren. 


Die Hardware 


Der Schneider PC ist, wie die meisten 
Geräte der PC-Klasse. dreigeteilt. 
Der Monitor(wahlweise monochrom 
'grey level' - oder als Farbmonitor er¬ 
hältlich). enthält auch die komplette 
Stromversorgung des Rechners. Ein 
sehr nützliches Feature ist der sehr 
gelenkige Schwenkfuß des Monitors 
(Bild 3), der sich den Bedürfnissen 
des Bedieners gut anpaßt. Der 
Monitor kann in eine passende 
Mulde im Zentralgehäuse gestellt 
werden, ebenso ist eine Aufstellung 
neben diesem, dank ausreichend lan¬ 
ger Kabel, möglich. 

Das Zentralgehäuse enthält die 
eigentlich interessanten Details des 
neuen Rechners, wie die Prozessor¬ 
platine, die Schnittstellen und in der 
Standardversion ein 5.25"-Laufwerk. 
Die in Bild2 gezeigte, uns zur Ansicht 
zur Verfügung gestellte Version war 
schon mit zwei Laufwerken bestückt; 
die Standardversion enthält anstatt 
des linken Laufwerkes eine Blind¬ 
platte. Die doppelköpfigen Lauf¬ 
werke bieten eine maximale Spei¬ 
cherkapazität von je 360 kB: zusätz¬ 
lich kann über einen der drei auf der 
Hauptplatine vorhandenen Slots 
eine Harddisk mit Controller ange¬ 
schlossen werden. 

Auf der Geräterückseite sind zwei 25- 
polige. sogenannte Min.-D-Sub- 
Steckverbindungen vorhanden, über 
die die von je einer seriellen und einer 
parallelen Schnittstelle erzeugten 
Signale zu ihren Adressaten gelan¬ 
gen. 

Das Herz des Rechners ist die be¬ 
kannte 8086 CPU. die im Schneider 
PC mit 8 MHz-Takt getrieben wird. 
Direkt neben der CPU wartet ein lee¬ 
rer Sockel auf den Arithmetik- 
Coprozessor 8087, der eine um ein 
Vielfaches erhöhte Rechengeschwin- 
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Der Monitor ist sehr anpassungsfähig 


Die Tastatur ist in der Anordnung der 
Tasten der IBM-PC-Tastatur nach¬ 
empfunden; zwei Füße am hinteren 
Ende des Keyboards erlauben eine 
leichte Vorwärtsneigung. 

Last, not least, steht dem User eine 
Maus mit zwei Tasten zur komforta¬ 
blen Bedienung des Desktops und ver¬ 
schiedener Anwenderprogramme zur 
Verfügung, sogar der obligatorische 
9-polige Joystickport ist vorhanden. 


Die Software... 


wird auf vier Disketten bereitgestellt 
(Bild 4) und einfach der Farbe der 
Diskettenhüllen nach gebootet (rot, 
blau, grün) - eine nützliche Hilfe für 
den Anwender. 

Der Schneider PC kann unter den mit¬ 
gelieferten Betriebssystemen MSDOS 
3.2 und DOS Plus arbeiten, wodurch 


eine weitgehende Kompatibilität zu 
digkeil und -genauigkeit ermöglicht. 
Dieser ist im freien Handel in der 8 
MHz-Version für etwa 450.- DM zu 
haben, kann seine Leistungsfähigkeit 
aber nur in Zusammenarbeit mit pas¬ 
sender Software unter Beweis stellen. 
Ein weiterer erfreulicher Umstand ist 
das Vorhandensein einer Farb- 
Grafikkarte, die schon in der Stan¬ 
dardversion verfügbar ist und eine 16- 
Farb-Darstellung bei einer Auflö¬ 
sung von 640 x 200 Punkten ermög¬ 
licht. 

Weiterhin ist eine batteriegepufferte 
Hardware-Uhr vorhanden, die jeder¬ 
zeit vom Desktop aus bedient werden 
kann; die Batterien versorgen gleich¬ 
zeitig einen nicht flüchtigen RAM- 
Block. in dem der Benutzer die ge¬ 
wünschte Einschaltkonfiguration ab- 
legen kann. 


CP/M 86 und PC-DOS erreicht wird. 
Diese Betriebssysteme unterstützen 
die hardwaremäßige Netzwerkfähig¬ 
keit des Schneider PC, ebenso ist laut 
Herstellerangaben ein Multitasking 
möglich. 

Auf einer weiteren Diskette wird die 
von Digital Research entwickelte 
GEM-Software bereitgestellt, die die 
Maus und ein sogenanntes "Icon- 
Operating-System" verwaltet. GEM- 
Desktop stellt eine mausbetriebene 
Verwaltung der Computcroperatio- 
nen mittels Pull-down-Menues zur 
Verfügung, leider können nur maxi¬ 
mal drei Fenster geöffnet werden. Die 
GEM-Software kann jedoch vom 
selbstprogrammierenden Anwender 
voll genutzt werden, so auch GEM- 
Paint. mit dem in Zusammenarbeit 
mit der Grafikkarte komfortable 
Farbgrafiken erstellt werden können. 
Locomotive Basic 2 schließlich ist ein 
neuer Basie-Interpreter. der struktu¬ 
rierte Programmierung durch Wegfall 
der Zeilennummern und namentlich 
aufrufbare Programmodule erleich- 
• tert. 

Leider ist hier schon das Ende der 
Aufzählung; auf die Beigabe nützli¬ 
cher Anwendersoftware wie etwa 
einer Textverarbeitung und einer Da¬ 
teiverwaltung wurde (wohl aus 
Preisgründen) verzichtet. 


Zusammenfassung der Daten 

- wahlweise Monochrom- oder Farb¬ 
monitor verfügbar 

- Textbildschirm 16 Farben, 40 x 25 
Zeichen oder 80 x 25 Zeichen 

- Grafikbildschirm: drei Vierfarbpa- 
letten, 320 x 200 Punkte oder zwei¬ 
farbig, 640 x 200 Punkte oder 16- 
farbig, 640 x 200 Punkte 

- Prozessor 8086/8MHz. Sockel für 
Coprozessor 8087 vorhanden 

-512 kB Speicher, auf max. 640 kB 
auf der Hauptplatine aufrüstbar 

- wahlweise ein oder zwei 5,25”- 
Doppelkopflaufwerke je 360 kB 

- batteriegepufferte Hardwareuhr 

- batteriegepuffertes Anwender-RAM 

-je eine Standard-Schnittstelle seriell 

und parallel 

- drei PC-Slots 

- IBM-PC-kompatible Tastatur 

- Maus mit eigenem Port 

- Joystickport 

- Software: GF.M, GEM-Desktop. 
GEM-Paint (Digital Research); 

- DOS Plus (Digital Research); 

- MSDOS (Microsoft) 

- Locomotive Basic 2 

- Preis der Standardversion (Mono¬ 

chrom-Monitor, ein Laufwerk, 512 
kB): unter DM 2000,- (ME) 



Schön bum-die mitgelieferte Software ist farblich gekennzeichnet. 



iihii" 
n ill ■■ i 
... 


liilln 

nun 




... 

..I, 

um : 
Willi 1 

llllllll 

IIIIMII 

:::n. 

iiiiiji 

ii::n:i 



iiiiiiii 

•iiii'ii 


Sonderheft 3 '86 


cpc 131 


ARTIKEL 











MWENDUIIG 


tiiimmiiimiMii mmiiiiiiimi' 


M M 111 11 11111 III 11M 11H11 11I I l| III 11111 11 N «, 


MUMMIMII 


... 


I I H I M 11111 11111 11111 M 1111111111111 11 I 11 


II11IIII111 11IIII111 



nun 


o;: 

'•iüii: 



mmll 


■lill'll 

mimi 

llnlli! 
11111111 


'i/ii 

,i"i. 


ilulln 

''in«: 

mm 

HIHI 

lllllll 


11111II 


'l.ll'll 

null. 

um 

uiiiil 

II,llJl 

lllllll I 

imlll, 

11,11,11 

,i:!ii:: 



Häufig werden Listen aller Art benötigt: Kegellisten, Kaf¬ 
feelisten, Klassenlisten, Vereinslisten, Teilnehmerlisten 
usw. Es gibt zwar jede Menge Sortierroutinen aller Art, 
aber sie allein bilden noch kein komfortables Listen- 
Programm. 

Die veröffentlichten Sortierroutinen sind in der Regel so 
allgemein gehalten, daß sie zwar das Prinzip des Sortie¬ 
rens verdeutlichen, jedoch nicht für den Anwender unmit¬ 
telbar brauchbar sind. 

Weiterhin haben sie alle den entscheidenden Fehler, daß 


sie bei dem Sortiervorgang die Umlaute im "deutschen" 
Sinne nicht berücksichtigen. Sie werden - wegen der 
ASCII - noch hinter "z” eingeordnet. 

Deshalb habe ich ein Programm entwickelt, das für dieses 
Problem eine - so hoffe ich - brauchbare Lösung bietet. 
Ein "ä" z.B. wird beim Sortieren als "ae” behandelt und 
auch so einsortiert. Analog dazu erfolgt die Sortierung bei 
11 , 11 'Ij den anderen Umlauten. 

illlli,, Das Programm wurde für die Erstellung von Klassenlisten 
jjm"! entwickelt. Daher ist die Anzahl der zu erfassenden Na- 
"»"II men auf maximal 42 beschränkt. Im Prinzip könnte die 
Siülü Anzahl der Namen erhöht werden, lediglich die Bildschirm- 
ilüijii ausgabe müßte abgeändert werden. 

11,11 1* In einem Menue wird dem Anwender die Möglichkeit er¬ 
öffnet, auch Überschriften nach freier Wahl einzugeben. 
HU"; So wird eine Nutzung des Programms auch außerhalb des 
illil Schulbereichs ermöglicht. 

jjl'ljjl Wer eine Festeinstellung auf "freie Überschrift" wünscht, 

, ''Ü! braucht nur die Remarks in 265 und 3465 entfernen. Es er- 
scheinen dann nur noch die auf die "freien Überschriften" 
,3 zugeschnittenen Menues. 

SU; Das Programm ist sofort lauffähig auf dem 664 und 6128. 
'l/li Wegen einig e r Befehle, die in dem Programm Verwen- 
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düng finden, wie z.B. "clear input" und "derr", müssen für 
den 464 einige Streichungen vorgenommen werden. Dies 
hat keine wesentlichen Auswirkungen auf den Programm¬ 
ablauf. Man sollte nur bei kleinen Wartezeiten nicht unge¬ 
duldig auf irgendwelche Tasten hauen. Diese Tastenbetä¬ 
tigungen werden nämlich intern gespeichert und erschei¬ 
nen dann als unliebsame, scheinbar unerklärliche 
Eingaben auf dem Bildschirm. Bei den neueren CPCs 
werden diese Tastendrücke durch "clear input" abgefan- 
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gen. Eine nähere Erklärung zu den nötigen Änderungen 
erfolgt weiter unten. 


Die Druckroutine wurde für den NLQ 401 geschrieben. 


Leistungen des Programms 


- geeignet für Listen bis zu 42 Namen 

- Alle Eingaben erfolgen in Kleinschrift. Das lästige 
<shift>-Drücken bei den Anfangsbuchstaben entfällt 
daher. Eine Umwandlung erfolgt automatisch. 

- Eine bündige Ausgabe der Nach- und Vornamen erfolgt 
automatisch. Bei der Eingabe braucht keine Rücksicht 
auf diese Formatierung genommen werden. 

- Umlaute dürfen original eingegeben werden. 

- Sortieren der Namen. Umlaute werden nach "deutscher 
Norm" einsortiert. 

- Abspeichern und Laden der Listen. 

- Löschen und Hinzufügen von Namen jederzeit möglich. 
Der Löschvorgang ist dabei auf dem Bildschirm sichtbar. 

- Drucken mit oder ohne Vornamen. 

- Beliebig viele Kopien möglich. 
ijnai - Freie Wahl der Überschriften auf der Druckliste. 

-Trennstriche zwischen den Namen. Daher besonders 
gut geeignet für Eintragungen aller Art. 



Beschreibung des Programms 


Nach dem Starten des Programms erscheint der Name 
des Programms und nach kurzer Wartezeit die Wahl der 
Überschrift (Bild Nr. 1). 


i Ji 1 der Überschriften 
auf“ der Druck-Liste 


Klassenliste.. 
Pflegschaft... 
Freie Mali 1 . . . . 


Bitte passende Taste drücken 


Bild Nr. 1 
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Drückt man z.B "F" für "freie Überschrift", so kann man 
den eigenen Namen, die Überschrift der Liste und das 
Datum der Ausgabe der Liste eingeben. Wenn man eine 
von den drei Möglichkeiten nicht ausfüllen will, kann 
man <enter> drücken (Bild Nr. 2)! 



Bild Nr. 2 


Alle Eingaben - auch die der folgenden Programmteile - 
erfolgen in Kleinschrift. Eine Routine im Programm 
sorgt für die richtige Umwandlung in Großbuchstaben an 
den passenden Stellen. Der Computer muß sich also vor¬ 
her in dem Kleinschrift-Modus befinden! Dies ist aber 
wohl normalerweise der Fall. 
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Man kann nun zwischen den Möglichkeiten "alte Liste" 
oder "neue Liste" wählen (Bild Nr. 3) 



Alte 

Liste 

vor» Disc 

Neue 

L i ste 

erste 1 1 eri 


Bitte passende Taste drücken 
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Bild Nr. 3 


Beim Drücken von "A" für "alte Liste" kann man eine "i|jj|i 
schon abgespeicherte Liste von Disk (Kassette) einiesen, jjljjljj 
Beim Drücken von "N" für "neue Liste” erscheint die 
Bildschirm-Maske für die Eingabe der Liste (Bild Nr. 4). li'll'll 
Die Eingabe geschieht im folgenden Format: nachname,- 
vorname. Das Programm ist so geschrieben, daß es einige j| ||!|j 
Eingabefehler ab fängt. Z.B. werden die Eingaben "Schulz, || ll |||| 
Heinrich" oder "schulz. Heinrich" anstandslos übernom- j|'ir|i 
men und richtig verarbeitet. 
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l| l ||.ll Nach der Eingabe werden die Namen, formatiert nach den 
jjjljjjl jeweils längsten Namen, auf dem Bildschirm in einem 
speziellen Window ausgegeben. Eine Lücke von drei Leer- 
jiüll!! Zeichen hebt den Nach- und Vornamen optisch voneinan- 
der ab. Beim Druck später werden die Namen nach dem 
längsten Nachnamen ausgerichtet. Man kann also unbe- 
il,li , |i kümmert die Namen - so wie sie kommen - eingeben. Für 
ilnjjl 1 eine säuberliche Auflistung sorgt das Programm! 

iMiimi 

Zum Schluß gibt man den Pfeil <C> so ein, als ob er ein 
!|/Ii Name wäre. 

iiiiiin 
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8 4 

Umlaute können eingegeben werden. Dabei gilt folgende 
Tastenbelegung:(a>-> ß. [-> a, ] -> ö,/-> ü. Da man ja im 
tjj!! Kleinschrift-Modus arbeitet, werden nur die "Klein- 
i|jji|ji Umlaute" benötigt. 

"m!"' Nach der Eingabe des Pfeils und <enter> wird die 
Liste geordnet. 


'Ul'll _ 

•imii| 

» Zu dem Sortiervorgang 

iiihIii ™~~ 

""■l. 

ninlli 

!| l il,|j Wegen der ASClI-Norm würden Namen mit Umlauten 
inll!! falsch eingeordnet. Um dieses Problem in den Griff zu be¬ 
kommen, muß man zu einem kleinen Trick greifen. Er be¬ 
steht darin, daß vor dem eigentlichen Sortiervorgang z.B 
der Umlaut ”ä" in "ae" umgewandelt wird. Gleichzeitig be¬ 
kommt der Name, der diesen Umlaut enthält, die 
Feldnummer als Kennzahl ans Ende angehängt. Vorher 
wird der ursprüngliche Name in ein anderes Feld mit der 
gleichen Feldnummer umgeschaufelt. Gleiches geschieht 
mit den anderen Umlauten. 


Nun findet mit diesem veränderten Namen ein Sortiervor¬ 
gang statt. Nach dem Sortieren werden die ursprünglichen 
H ijij, Namen mit Umlauten - unter Verwendung der Kennzah- 
ili'lli,, len - wieder in das alte Feld zurückgeholt. Die "Anhäng- 
jP"! sei” an den Namen werden entfernt. 

Ü..I.II Um die Zeit der Schleifendurchgänge zu verkürzen, wer- 
'lljjijj den die Namen, die einen Umlaut beinhalten, schon bei 
ilüli,, der Eingabe der Namen mit einem am Ende versehen. 
, M |l ll Dadurch erreicht man, daß nicht alle Namen auf Umlaute 
hin durchsucht werden müssen. Die Wartezeit beim Sor- 
.. deren wird dadurch wesentlich verkürzt. 

Illllll 


’llJll 


Dies hat aber den Nachteil, daß der Programmieraufwand 
erhöht wird, insofern daß vor allen Bildschirm- und 
Druckerausgaben diese Sterne entfernt werden müssen. 
Auf dem Bildschirm erscheint nun die geordnete Liste. 
Nach all dem Mühsal, die der Computer mit den Umlau¬ 
ten hatte, übrigens in beachtenswerter Geschwindigkeit! 
In der untersten Zeile erscheint das Hauptmenue, das 
mannigfaltige Auswahl zuläßt. Z.B. ist hier Laden und Ab¬ 


speichern der Liste möglich (Bild Nr. 5). 
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Bild Nr. 5 


Eine der interessantesten Möglichkeiten, ist das "Verän¬ 
dern". Drückt man "V" so erscheint ein Untermenue: 

Löschen - Hinzufügen - Beides. 

Wählt man eine der drei Möglichkeiten, so wird man in 
einem Window in den untersten Zeilen durch Abfragen 
geführt. 


Bei der Wahl "Hinzufügen" erscheint in einem Window 
der letzte Name der aktuellen Liste. Der weitere Ablauf ge¬ 
staltet sich genauso wie bei der Eingabe der Namen. 
Dabei werden die Namen bündig zu dem letzten Namen 
ausgegeben. Ist jedoch der neue Nachname länger als der 
längste, bisher vorgekommene Name, so werden die nun 
folgenden Namen nach diesem neuen Format ausgerich¬ 
tet. Die gesamte Liste wird - für den Anwender unmerklich 
- umformatiert, so daß bei den späteren Bildschirm- bzw. 
Druckausgaben wieder alles im Lot ist. 

Bei der Wahl "Löschen" wird nach Eingabe des zu 
löschenden Namens und nach einer Sicherheitsabfrage 
ein breiter Balken über den betreffenden Namen gezogen 
(Bild Nr. 6). 
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Bild Nr. 6 


In allen Fällen erscheint am Schluß wieder die Liste in 
Mode 2 mit dem Hauptmenue. 

Nach der Wahl "Drucken" erscheint das Menue der 
Druckparameter, welches die Auswahl zwischen folgen¬ 
den Optionen zuläßt: 

Mit/ohne Vornamen. Anzahl der Kopien, Schönschrift/ 
Normalschrift. 

Die Normalschrift ist dabei so eine Art Schnelldruck. Der 
Umgang mit diesem Menue wird im unteren Window er¬ 
klärt (Bild Nr. 7). 

Nach dem Druck hat man dann die Möglichkeit, noch¬ 
mals zu drucken, zu beenden oder ins Hauptmenue 
zurückzukehren. 

Bei "Neu-Druck” kann man per Menue die Überschriften 
und die Druck-Parameter verändern. Die Liste bleibt 
dabei unverändert. Auch hier wird das weitere Vorgehen 
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durch einen erklärenden Text im unteren 
erläutert. 

Bleibt noch das Einlesen von schon abgespeicherten 
Listen zu erklären. Zu Beginn des Programms oder per 
Haupl-Menue hat man ja diese Wahl. 

Im oberen Teil des Bildschirms erscheinen die aktuellen 
Dateien der eingeschobenen Disk - und zwar nur diese! 
Andere Einträge dieser Disk werden nicht angezeigt. Lei¬ 
der sind sie nicht alphabetisch geordnet. Das liegt an dem 
CP/M-Befehl "dir" Die Alternative "caf, die bekanntlich 
alphabetisch sortiert, läßt die Beschränkung "*.dat" 
nicht zu. 

Im unteren Window gibt man den Namen der aufzurufen¬ 
den Datei ein. Nach <entcr> wird sie geladen und er¬ 
scheint aut dem Bildschirm. Die weitere Verarbeitung er¬ 
folgt dann per Menue. ._ 

wmmmmmmmmmmmmmkrn 



Anpassung an den CPC 464 


Alle "clear input" müssen entfernt werden. Die Zeile 4370 
muß gelöscht werden. Die Zeile 200 muß lauten: On error 
goto 4380. 

1. 464 mit Kassetten-Recorder 

Folgende Zeilen müssen gelöscht, bzw. verbessert 
werden: 

Delete 1530 - 1570 / Delete 1690 - 1750 
1580 openin ’ / 1760 openout " 

Die Kassette muß schon auf den Anfang der zu ladenden 
Datei eingestellt sein. 

2. 464 mit Diskettenstation 

Die Zeilen 1540 und 1700 müssen verändert werden. 

1540 al$= *.daf':ödir,(5)l$:print stlS 

1700 pn nt st2S:al$="*.daf‘:ödir.@l$:print st2$ 

Das ö vor dem Dir ist der senkrechte Strich <shift> 

< >. 


Bemerkungen 

Das Programm ist auf dem CPC 664 sofort ohne Änderun¬ 
gen lauffähig. Es wird gestartet mit run ”listenlq”. 

(Wolfgang Tebes) 


'********************m**x* tt **x t ** 

'******** LISTE ******** 

'******** Vers. 2.0 NLQ 401 ******** 

'*******************^*^** ;( .^ ;t;; , :;f .^ ;(; 

******** Wolfgang Tewes ******** 

;********************************** 


1 

2 

3 

4 

5 

6 
9 
11 
12 

13 **** Vers, vom 21.5.86 fuer NLQ 401 ** 

**** 

20 GOSUB 4190:GOSUB 4120:GOTO 190 
30 mi=UPPERi(INKEYi): IF mi="" THEN 30 ELSE 
RETURN 
40 ' 

50 '******************* Initialisierung M 
ode 1 ***************** 

60 ' 

70 MODE 1: INK 0,1; INK 1,24: INK 2,0: INK 3,6 
:PAPER 0: PEN 1:BORDER 1: WINDOW #1,1,40,1,3 
: WINDOW #2,4,37,5,21:WINDOW #3,1,40,23,25: 
PAPER#1,1:PAPER#2,2:PAPER#3,3:PEN#1,3:PEN# 
2,1:PEN#3,2:RETURN 


[1460] 

C1068] 

[1163] 

[1460] 

[117] 

[1634] 

[117] 

[1391] 

[117] 

[2079] 

[1999] 

[1498] 

[117] 

[2748] 

[117] 

[12680] 


Klassenliste 
Pf1 egsehaft. 
Freie Mahl.. 


Bitte passende Taste drücke: 


80 ' 

90 **************** Umrandung Window 2 ** 

********************** 

100 ' 

110 en=0:xl=46:y2=338:x2=592:y1=62:GOSUB 2 
700:RETURN 
120 ' 

130 '************** Meldung Window 3 ***** 
**************** 

140 ' 

150 CLS#3:LOCATE #3,7,2:PRINT#3, »Bitte pas 
sende Taste dr]cken !":RETURN 
160 ' 

170 ******************** Beginn Programm 

****************** 

180 ' 

190 CLEAR INPUT:CLS:DEFINT a-z:DIM ai<50>, 
bi(50) 

200 ON ERROR GOTO 4370 
210 GOSUB 70:CLS 
220 ' 

230 '****** MEN) IBERSCHRIFTEN ****** 

240 ' 

250 DATA "Name. "Klasse"Fa 

.Datum.:","Jberschrift:" 

260 FOR m=l TO 5:READ x$<m):NEXT 
265 'mi="F”:GOTO 310 
270 GOSUB 1410:'Welche ]berschrift 
280 GOSUB 30 

290 IF mi="K" THEN uberi="Klassenliste" : GO 
TO 330 

300 IF m$="P" THEN uber$="Klassenpflegscha 
ft":xi<3)=xi<4>:GOTO 330 

310 IF mi="F” THEN x$(2)=xS<5>:xi(3)=xi<4> 

:freie=l:GOTO 330 
320 GOTO 280 

330 CLS#2:z=7:FOR m=l TO 3:LOCATE#2,2,z:z= 
z+2:PRINT#2,xS<m):NEXT: GOSUB 4080 
340 z=7:FOR m=l TO 3:LOCATE#2,14,z:z=z+2:C 
LEAR INPUT:LINE INPUT#2,,eini<m) 

350 IF eini<m)="" OR LEN<eini<m)) = 1 THEN 3 
70 

360 mi=eini(m>:GOSUB 890:eini(m)=mi 
370 NEXT 
380 ' 

390 ****************** Men] alte oder neu 

e Liste **************** 

400 ' 

410 CLS#1:CLS#2:LOCATE #2,8,8:PEN#2,3:PRIN 
T#2,"A";:PEN#2,1:PRINT#2,"lte Liste von Di 
sc":LOCATE #2,8,10:PEN#2,3:PRINT#2,”N";:PE 
N#2,1:PRINT#2,"eue Liste erstellen":GOSUB 
150 

420 GOSUB 30 

430 IF ml="A” THEN 1500 

440 ' 

450 '****** Eingabe der Namen ****** 

460 ' 

470 CLS#1: PRINT#1, TAB<3)"K eine Gro~bu 
chstaben benutzen!" 

480 PRINT#1 

490 PRINT#1,TAB(4)"EINGABE-FORMAT: nachna 
me,vornarae" 

500 KEY DEF 31,0,44,44 
510 i=l:n=l:flag=l 
520 CLS#2 

530 WHILE al<i-1> <>" "" 

540 CLS#3:PRINT CHRi<7J:LOCATE#3,1,2:CLEAR 
INPUT:LINE INPUT#3,;ai(i] 

550 IF flag=l THEN GOSUB 660 ELSE GOSUB 73 
0 
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560 PEN#2,3:PRINT#2,USING ”##";i;:PRINT#2, 
”i:PEN#2.1:PRINT#2,LEFT® (a®(i),29) 

570 IF 11111=1 THEN a® (i ) =a$ C i )+"*": um=0*** 
* Markieren falls Umlaut 
580 i=i+l:n=n+l 
590 VEND 

600 KEY DEF 31,1,46,46 
610 a$< 1 - 1 )=””•i=i-2:n=n-2 
620 GOTO 1020 
630 ' 

640 '********* Ermitteln der L>cke im erst 
en Namen ******** 

650 ' 

660 CLS#1: PRINT#1, TAB(15)”Die Taste < ** >" 

: PRINT#1:PRINT#1,TAB(3)"beendet als letzte 
Eingabe die Liste." 

670 m$=a$(i):GOSUB 890:a$(i)=m* 

680 p=INSTR(a®<i: IF p<>0 THEN ref=p- 
1: :a$ <i> =MID®(a$ <i),1,p-l)+" "+MID$(a®(i 

> , p+1) : lang=ref+3:p=0 
690 flag=0:RETURN 
700 ' 

710 '********** Ermitteln der Licken der a 
nderen Namen ******* 

720 ' 

730 m*=a®(i):GOSUB 890;a®(i)=m® 

740 p=INSTR(a$(i),",”): IF p=0 THEN 780 
750 IF p<>0 THEN kom=p-l:neu=kom+3 
760 IF neu>lang THEN ers=lang:lang=neu: ku= 
i-1:GOSUB 820 

770 a® ( i)=MID$(a® (i > ,1, p-1>+SPACE®<lang-ko 
m)+MID®(a®(i) , p+1):p=0 
780 RETURN 
790 ' 

800 '************** Neuordnen falls 1 (nge 

rer Name ************ 

810 ' 

820 FOR m=l TO ku 

830 a®(m)=LEFT$(a*(m) , ers)+SPACE®(lang-er 

s)+MID®(a®(m) , ers+1) 

840 NEXT 
850 RETURN 
860 ' 

870 '******* Umwandlung in Großbuchstaben 
************ 

880 ' 

890 FOR k=l TO LEN(m®)-l 

900 zei=ASC(MID*(m®, k+1, 1)) : z$=MID$<m$, k, 1 
):uml=ASC<KID$(mS, k, 1)1 

910 IF k=l THEN IF<uml>47 AND uml<91> THEN 
950 ELSE MID$(m®,k,1)=CHR$(uml-32):GOTO 9 
50 

920 IF zS="," AND MID®(m$, k+1, 1>=" » THEN 
P0=k:le=l; GOTO 950 

930 IF z®=”," THEN IF zei>47 THEN IF zei<9 
1 THEN 950 ELSE MID$(m$,k+1,1)=CHR$Czei-32 
):GOTQ 950 

940 IF z®=" ” OR z*="-" OR z$="/" THEN IF 
zei>47 THEN IF zei<91 THEN 950 ELSE MID®(m 
S,k+1,l)=CHR®(zei-32) 

950 IF (uml>90 AND uml<94) OR <uml>122 AND 
uml<127) THEN um=l 
960 NEXT 

970 IF le=l THEN m$=KID®(m®, 1, PO)+MID*(m$, 
PO+2):le=0 
980 RETURN 
990 ' 

1000 '********* Ver<nderung der Umlaute ** 
****** 

1010 ' 

1020 CLS#3:L0CATE#3,13,2:PRINT#3,"Liste wi 
rd geordnet." 
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[3335] 

[117] 

[6389] 


[1080] 

[4947] 


[999] 

[117] 

[3132] 

[117] 

[1080] 

[1564] 

[1614] 

[3360] 

[1954] 

[555] 

[117] 

[4083] 

C117] 

[909] 

[4362] 

[350] 

[5553 

[117] 

[2762] 

[117] 

[1436] 

[3094] 

[3143] 


[3025] 

[5597] 


[5831] 


[3318] 

[350] 

[12611 

[555] 

C1173 
[39163 

[117] 

[3392] 


1030 FOR i=l TO n 

1040 IF RIGHT*(a$(i> , 1)0"*» THEN 1210 
1050 b® (i)=a$ <i) 

1060 SU=1 

1070 pl=INSTR(su,a$Ci),"["): IF pl<>0 THEN 
aS <i>=MID® (a$(i),1,pl-1)+"Ae"+MID®(a$(i), p 
1+1):su=pl+2:GOTO 1070 
1080 SU=1 

1090 p2=INSTR(su,a$(i),"\") : IF p2<>0 THEN 
a$ <i)=MID®(a®(i ) ,1,p2-l)+"0e"+MID*(a$(i) , p 
2+1):su=p2+2:GOTO 1090 
1100 SU=1 

1110 p3=INSTR(su,a®(i),"]”>: IF p3<>0 THEN 
a®(i)=MID$(a®(i),1,p3-l)+"Ue"+MID®(a*(i) , p 
3+1):su=p3+2:GOTO 1110 
1120 SU=1 

1130 p4=INSTR(su,a®(i),"(">:IF p4<>0 THEN 
a®(i)=MID*(a*(i),1,p4-1)+"ae"+MID*(a®<i),p 
4+1):su=p4+2:GOTO 1130 
1140 SU=1 

1150 p5=INSTR(su,a®<i>,"!”): IF p5<>0 THEN 
a* <i)=MID* < a$ <i), 1 ,p5-l)+"oe"+MID* < a* <i),p 
5+1):su=p5+2:GOTO 1150 
1160 SU=1 

1170 p6=INSTR<su,a*(i>,">"):IF p6<>0 THEN 
a®(i)=MID* <a* <i),1,p6-l)+"ue"+KID*<a*<i),p 
6+1):su=p6+2:GOTO 1170 
1180 su=l 

1190 p7=INSTR<su,a*<i),"~"): IF p7<>0 THEN 
a®(i)=KID$ <a*(i>,1,p7-l)+"ss”+MID*(a*<i>,p 
7+1);su=p7+2:GOTO 1190 
1200 a® <i)=a*<i)+STR* <i) 

1210 NEXT 
1220 " 

1230 ' ********* Sortieren ******** 

1240 ' 

1250 FOR i=l TO n-1 

1260 IF a* <i)<a®<i + 1) THEN 1310 

1270 a® < 0)=a® <i+1):c=i 

1280 a® <c+l)=a* <c):c=c-l 

1290 IF a*(0)<a®(c) THEN 1280 

1300 a*(c+1)=a®<0) 

1310 NEXT 
1320 ' 

1330 '************* R]CKVANDLUNG DER UMLAU 
TE ************* 

1340 ' 

1350 FOR 1=1 TO N 

1360 p=INSTR< A$ <I>,”*"> : IF p=0 THEN 1380 
1370 zahl*=MID®(a® <i),p+1):a=VAL(zahl*):a* 
(i)=b*(a):p=0 
1380 NEXT 

1390 GOSUB 2370:GOTO 2480 
1400 ' 

1410 '****** Abfrage welche Jberschrift ** 
******** 

1420 ' 

1430 CLS#1:PRINT#1,TAB(11)"Wahl der >bersc 
hriften":PRINT#1,TAB(13)"auf der Druck-Lis 
te" 

1440 GOSUB 110 

1450 CLS#2:LOCATE#2,11,7:PEN#2,3: PRINT#2, ” 
K";:PEN#2,1:PRINT#2,"lassenliste.." 

1460 LOCATE#2,11,9:PEN#2,3:PRINT#2,"P"j:PE 
N#2,1:PRINT#2,"flegschaft..." 

1470 LOCATE#2,11,11:PEN#2,3:PRINT#2,"F"j : P 
EN#2,1:PRINT#2, "reie Wahl...." 

1480 GOSUB 150:RETURN 
1490 ' 

1500 -■****** LADEN VON DISK ****** 

1510 ' 

1520 CLS 

1530 ST1®=STRING®(39,CHR®(208)) 

1540 IDIR,"*.dat”:PRINT ST1® 

1550 CLS#3:LOCATE #3,2,2: INPUT #3, "Name de 

r Datei < ohne .dat > ..";al® 

1560 IF RIGHT*(al®,4)=”.dat” THEN 1580 
1570 al®=al*+".dat" 

1580 OPENIN al® 

1590 CLS#3:LOCATE #3,3,2:PRINT#3,"Die Date 
i " CHR®(24)a1$CHR®(24)" wird geladen." 

1600 INPUT #9,n 

1610 FOR i=l TO n:LINE INPUT#9,a$(i):NEXT 
1620 INPUT#9,lang 
1630 CLOSEIN 

1640 GOSUB 2370:GOTO 2480 
1650 ' 

1660 '******** Sichern auf Disk ****** 


[456] 

[1669] 

[4253 

[2193 

[4791] 


[219] 

[63181 


[219] 

[6041] 

[219] 

[5195] 

[219] 

[5410] 


C219] 

[5001] 


[2193 

[6537] 


(8583 

[3503 

[117] 

[19903 

C117] 

[4523 

[3663 

[14653 

[917] 

[15091 

[637] 

[350] 

[117] 

[2763] 

[117] 

[456] 

[927] 

[3263J 

[350] 

[975] 

[117] 

[3329] 

[117] 

[6919] 


[9353 

[5740] 

[43763 

[36393 

[13213 

[117] 

[1125] 

[117] 

[91] 

[1164] 

[26203 

[40593 

[1598] 

[12853 

C601] 

[41063 

[698] 

[880] 

[12653 

[752] 

[9753 

[117] 

[13433 
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1670 ' 

1680 CLS 

1690 ST2*=STRING*(79, CHR*(131>) 

1700 PRINT ST2S:!DIR,"*.dat":PRINT ST2* 
1710 CLS#1 

1720 LOCATE #1,2,2:PRINT#1,CHR*<24)" Unter 
welchem Namen abspeichern < ohne .dat >.. 
"CHR*(24);:INPUT#1,al$ 

1730 IF LEN(al*) >8 THEN CLS#1:L0CATE#1,2,1 
!PRINT#1,"Bitte nur ”;CHR*(24);"8";CHR*<24 
);" Buchstaben f]r den Datei-Namen eingebe 
n!"j:GOTO 1720 

1740 IF RIGHT*(al*,4>=”.dat" THEN 1760 
1750 al*=al*+”.dat" 

1760 OPENOUT al* 

1770 CLS#1:LOCATE#l,2,2:PRINT#1, "Die Datei 
";CHR*(24)al*CHR*(24)" wird abgespeichert 


1117] 

191) 

C1273] 
12041] 
1373] 
[9079] 


[10420] 


[1642] 

[1285] 

[804] 

[4447] 


1780 PRINT#9, n [81 0 ] 

1790 FOR i=l TO n [456] 

1800 PRINT#9,a*(i) [995] 

1810 NEXT [350] 

1820 PRINT#9,lang [1158] 

1830 CLOSEOUT: GOSUB 2370:GOTO 2480 [2363] 

1840 ' [117] 

1850 '******** Hinzuf]gen ******* [1588] 

1860 ' [117] 

1870 GOSUB 70:GOSUB 110 [1376] 

1880 CLS#1:PRINT#1,TAB(6)"Gib den (die) ne [7689] 

uen Namen ein":PRINT#1:PRINT#1,TAB<9>"'~" 
beendet die Eingabe."; 

1890 CLS#2 [372] 

1900 i=i-l [440] 

1910 IF RIGHT*(a* <i>,1 > =" *" THEN PRINT#2.U [4487] 
SING"##";i;:PRINT#2,". ”;LEFT®< a*(i),LEN(a 
*<i))-l>:GOTO 1930 

1920 PRINT#2,USING"##";i;:PRINT#2,». »;a*< [1759] 
i) 

1930 i=i+l:n=n+l [659] 

1940 KEY DEF 31,0,44,44 [1001] 

1950 VH ILE a®(i-1)<>"[1118] 
1960 CLS#3:PRINT CHR*(7) : LOCATE#3,1,2:CLEA [4054] 
R INPUT:LINE INPUT#3,;a*(i) 


1970 GOSUB 730 

1980 PEN#2,3:PRINT#2, USING "##”;i;:PRINT#2 
,". ";:PEN#2,1:PRINT#2,LEFT*(a*(i),29) 

1990 IF UM=1 THEN A*<I)=a*<i)+”*":um=0 
2000 i=i+l:n=n+l 
2010 VEND 

2020 KEY DEF 31,1,46,46 
2030 a*(i-l)="»:i=i-2:n=n-2 
2040 GOTO 1000 
2050 ' 

2060 '***** LIschen ******* 

2070 ' 

2080 CLS#1:LOCATE #1,1,2:PRINT#1,CHR*<24>” 
Welche Nummer soll gell seht werden "CHR*< 
24);:INPUT #1,” i 

2090 IF 1=0 OR i>n THEN CLS#1:PRINT CHRS<7 
) : LQCATE#1,2,2:PRINT#1,"Falsche Eingabe !" 

:FOR k=l TO 2000:NEXT:GOTO 2080 
2100 IF RIGHT*(a*(i),1)="*" THEN CLS#l:LOC 
ATE #1,1,2:PRINT#1,i;". ”;LEFT*<a*<i),LEN< 
a*(i))-l>;" ";CHR* <24);" ";CHR*(242);" 

richtig ? < J/N >";CHR*<24>;:GOTO 212 

0 

2110 CLS#1:LOCATE #1,1,2: PRINT#1,i;". »;a* 
<i>;" ";CHR* <24);" ";CHR*(242);" ri 

chtig ? < J/N >";CHR*<24); 

2120 GOSUB 30 

2130 IF M*="N" THEN 2080 

2140 IF LEN(A*(I))>35 THEN LOSCH=39 ELSE L 
OSCH= LEN < A*(I)> +5 

2150 IF i<22 THEN sp=2:zei=i+l:ELSE sp=40: 
zei=i -20 
2160 ' 

2170 '***** LI sehen auf Bildschirm ***** 
2180 ' 

2190 LOCATE sp.zei:PRINT STRING*<losch,143 
>> 

2200 a*(i)="" 

2210 CLS#1:LOCATE #1,1,2:PRINT#1,CHR*(24)” 
Noch einen Namen 1I sehen ? < J/N > "CHR* 

(24);:GOSUB 30 

2220 IF <M*="N” AND h=l> THEN GOSUB 2270: G 
OTO 1870 


[939] 

[4461] 

[1851] 

[659] 

[390] 

[719] 

[967] 

[339] 

[117] 

11255] 

[117] 

[7001] 



iiiiiin 


iiiI'"i 



||llllll 

llllllll 


llllllj 

llllllll 

1111111 


Mn " 

[5903] •lil 1 ' 1 ' 


[8327] ""m|| 


"'l.'ll' 

'lill'll 


[ 6688 ] 


[852] 

[837] 

[2987] 


lill'li 


[2587] 


[117] 

C3430] 

[117] 

[3213] 

[229] 

[4624] 
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2230 IF mS='N" THEN GOSUB 2270:GOSUB 2370: [23013 
GOTO 2480 

2240 IF mS="J" THEN 2080 [9313 

2250 GOTO 2210 [3613 

2260 ' [117] 

2270 '***** Durchschieben der Namen *** [23293 

2280 ' [117] 

2290 1=1 [4233 

2300 VHILE iOn+1 [9633 

2310 IF a$<i)=”" THEN GOSUB 2350:i=i-l:n=n 117123 

-1 

2320 i=i+l [4443 

2330 VEND [3903 

2340 RETURN [5553 

2350 FOR m=i TO n:a$ <m)=aS <m+1):NEXT:RETUR [26243 

N 

2360 ' [1173 

2370 '***** Liste auf Schirm ****** [7983 

2380 ' [1173 


2390 MODE 2:INK 0,13:INK 1,0:PAPER 0:BORDE [39343 
R 13:WINDOW #1,1,80,24,25:PAPER#1.0:PEN#1, 

1:CLS#1 

2400 en=l:xl=0:y2=398:x2=638:yl=34:GOSUB 2 [25973 
700 

2410 FOR i=l TO n [4563 

2420 IF i>21 THEN sp=40:zei=i-20:ELSE sp=2 [19373 
:zei=i+l 

2430 IF RIGHTS<aS <i) ,1) =" *" THEN LOCATE sp [68523 
,zei:PRINT CHRS<24)USING"##";i;:PRINT"."CH 
RS <24)" "j LEFTS C a$ <i>,LEN(aS(i))-l):GOTO 2 
450 

2440 LOCATE sp,zei:PRINT CHRS<24)USING"##" [41323 
;i;:PRINT"."CHRS<24)" "LEFTS<aS<i>,35) 


2450 NEXT [3503 

2460 RETURN [5553 

2470 ' [1173 

2480 ' ******* Haupt-Menue ****** [11853 

2490 ' [1173 

2500 CLS#1:LOCATE#l,3,2:PRINT#1,CHRS(7)CHR [91763 
$<24>i" (A)bspeichern (L)aden (V)er< 
nderung <E)nde (N)eu <D)rucken "; 

CHRS<24>; 

2510 GOSUB 30 [8523 

2520 IF MS=”A" THEN 1660 [5833 

2530 IF mS="L" THEN GOSUB 70:GOTO 1500 [7863 

2540 IF MS="V” THEN 2600 [12933 

2550 IF MS="E" THEN CLS:END [13383 

2560 IF MS="N" THEN CLEAR:GOSUB 70:GOTO 19 [24503 
0 

2570 IF MS="D" THEN 2790 [7643 

2580 GOTO 2510 [3413 

2590 ' [1173 

2600 '******** VER[NDERUNGS-MEN3 ******* [11113 

2610 ' [1173 

2620 H=0 [4163 

2630 CLS#1:LOCATE#l,21,2:PRINT#1,CHRS <7)CH [56863 
RS<24>" <L)'sehen <H)inzuf]gen <B)e 

ides "CHRS <24> j 

2640 GOSUB 30 [8523 

2650 IF mS="L" THEN 2060 [6233 

2660 IF m$=”H" THEN 1870 [11573 

2670 IF mS="B” THEN H=l:GOTO 2060 [5833 

2680 GOTO 2640 [3633 

2690 ' [1173 

2700 '***** Umrahmung ****** [5903 

2710 ' [1173 

2720 FOR rr=0 TO en:PLOT xl+rr,yl,l [14903 

2730 DRAW xl+rr,y2,l [6633 

2740 DRAW x2-rr,y2,l [5153 

2750 DRAW x2-rr,yl,l [5033 

2760 DRAW xl+rr,yl,1:NEXT [15283 


2770 RETURN 
2780 ' 

2790 '******* Drucken ******** 

2800 ' 

2810 GOSUB 70:GOSUB 110 

2820 CLS#1;LOCATE#l,15,1:PRINT#1,"Einstei1 
ung":LQCATE#1,19,2:PRINT#1,"der":LOCATE#l, 
14,3:PRINT#1,"Druckparameter" 

2830 GOSUB 3790 

2840 CLS:CLS#1:LOCATE#1, 17,2: PRINT#1, "Druc 
ken" 

2850 druck=VAL <MIDS<BINS< INP<&F500>, 8), 2, 1 
>>-l 

2860 IF druck THEN 2890 

2870 CLS#3:LOCATE#3,7,1:PRIKT#3,CHRS<7>CHR 
S<24>" Bitte Drucker einschalten! LOCATE 
#3,5,3:PRINT#3, "dann irgendeine Taste dr> 
cken! "CHRS<24) 

2880 CALL &BB06:CLS#3 

2890 CLS#2:GOSUB 110 

2900 anzahl=VAL <drckeinS<2)> 

2910 IF drckeinS<1)<>"M" THEN ohne=l 
2920 IF anzahlOl THEN endlos=l: seite=l EL 
SE PRINT#8,CHRS <27)j CHRS <56)i :' *** Papiarm 
angel Ibergehen ***** 

2930 IF drckeinS <3><>"S" THEN PRINT#8,CHR$ 
<27>;CHRS<120);CHRS<0>; :ELSE PRINT#8,CHRS< 
27);CHRS <120);CHRS<1); :'**** NLQ aus bzw. 
ein 

2940 PRINT#8,CHRS<27);CHR$<65);CHRS<10); CH 
RS <27)j CHRS <50); :' **** Zeilenabstand 10/72 
***** 

2950 PRINT#8,CHRS<27);CHRS<67):CHRS<0);CHR 
S< 12);:'**** FarmularhI he 12 ZOLL ****** 
2960 

2970 PRINT#8,CHRS<27);CHR$<87) ; CHRS<1) ; : '* 
****** Gedehnte Schrift ein ******* 

2980 IF freie=l THEN uber$=einS<2) 

2990 zent=<42-LEN<uberS))/2 

3000 CLS#2:zentbild=zent-3:LOCATE#2,zentbi 

ld,2:PRINT#2,uberS 

3010 PRINT#8:PRINT#8,TAB<ZENT);uberS:'**** 
* Iberschrift auf Drucker ******* 

3020 IF freie=l THEN PRINT#8:G0T0 3070:'** 
** erst bei Fach wieder **** 

3030 ersatzS=LEFT$<xS<2),6) 

3040 zent= <42-< LBN<ersatzS)+LEN<einS <2))+1 
> )/2 

3050 zentbild=zent-3: LOCATE#2, zen.tbild, 4: P 
RINT#2,ersatzS;" ”jeinS<2) 

3060 PRINT#8,TAB<ZENT);ersatzS;" ”;ein$<2> 

:'**** Klasse bei Zentrierung auf Drucker 
** 

3070 PRINT#8,CHRS <27);CHRS<45) ; CHRS<1) ; : '* 
**** Unterstreichen ein ***** 

3080 zent= <42-LEN<ein$ <3 >))/2 

3090 zentbild=zent-3:LOCATE#2,zentbild,6:P 

RINT#2,ein$ < 3) 

3100 PRINT#8:PRINT#8,TAB<ZENT);einS<3) 

3110 PRINT#8,CHRS <27);CHRS<45) ; CHR$<0) ; :'* 
**** Unterstreichen aus ****** 

3120 PRINT#8,CHR$<27);CHRS<87);CHR$<0);:'* 
**** Gedehnt aus ****** 

3130 PRINT#8:PRINT#8 

3140 PRINT#8," ”j :PRINT#8,CHRS<27);CHR 

$<61); :PRINT#8,STRINGS <72, CHRS <26)) ; :PRINT 
#8,CHR$<0); 

3150 FOR i=l TO n 

3160 L0CATE#2,2,12:PRINT#2,CHR$<18);:PEN#2 
. 3 

3170 IF ohne=l THEN q=INSTR<a$<i),” "):IF 

q<>0 THEN LOCATE#2,2,12:PRINT#2,CHRS<24); 
USING”##";i;:PRINT#2,”. LEFTS<aS<i),q);C 
HRS <24):PEN#2,1:GOTO 3200 

3180 IF RIGHTS <aS <i),1)="*” THEN LOCATE#2, 
2,12:PRINT#2,CHRS<24);USING"##”;i;:PRINT#2 
,". ";LEFTS <a$ <i),LEN<aS <i))-1);CHRS<24):P 
EN#2,1:GOTO 3210 

3190 LOCATE#2,2,12:PRINT#2,CHR$<24);USING" 
##”;i;:PRINT#2,". ";a$<i);CHRS<24):PEN#2,1 
3200 IF ohne=l AND q<>0 THEN PRINT#8,TAB<6 
);USING"##";i;:PRINT#8,". ";LEFTS<aS<i),q) 

:q=0:GOTO 3230 

3210 IF RIGHTS <aS <i),!)="*" THEN PRINT#8,T 
AB<6);USING"##"; i; :PRINT#8,". ";LEFTS <a$ <i 
),LEN<a$ <i))-1):GOTO 3230 

3220 PRINT#8,TAB<6);USING"##";i;:PRINT#8," 

. ";a$ <i) 

3230 PRINT#8," ";:PRINT#8,CHRS<27);CHR 


[5551 

[117] 

[9401 

[117] 

[13763 

[8648] 


[995] 

[32013 

[2608] 

[8153 

[78483 


[6081 

[6763 

[15073 

[18363 

[62461 


[7183] 


[42463 


[35273 

[03 

[59513 

[13503 
C1114] 
[1497] 

[3494] 

[34983 

[474] 

[22073 

[33993 

[32173 


[3634] 

[1477] 

[22831 

[2270] 

[4042] 

[4239] 

[13141 

[4395] 


[4563 

[30041 

[94803 


[61353 


[5236] 

[47551 


[5177] 


[29043 

[43951 
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$<61); :FRINT#8,STRINGS(72, CHRS(26)); :PRINT 
#8,CHRS(O); 

3240 IF i=35 THEN PRINT#8,CHR$<12);:'**** 
ab 35 Namen Seitenvorschub ***** 

3250 NEXT 

3260 IF endlos=l THEN PRINT#8,CHRS(12) ; : EL 
SE GOTO 3280:'****** Seitenvorschub ****** 
3270 IF seite<anzahl THEN seite=selte+l:GO 
TO 2960: 

3280 endlos=0:freie=0:seite=0; ohne=0:'**** 
Flags zurlcksetzen ****** 

3290 PRINT#8,CHRS(13);:PRINT#8,CHRS(27);CH 
RS(120)jCHRS<1);:'**** NLQ einschalten *** 
*** 

3320 ' 

3330 '***** Ken] f]r Druck-Wiederholung ** 
*** 

3340 ' 

3350 GOSUB 70:GOSUB 110 

3360 CLS#2:LOCATE #2,11,7:PEN#2,3:PRINT#2, 

”N"j:PEN#2,1:PR INT#2,”eu-Druck. .":LOCATE # 
2,11,9:PEN#2,3:PRINT#2,"E” ; :PEN#2, 1:PRINT# 

2,"nde.":LOCATE #2,11,11:PEN#2,3:PRI 

NT#2,"H";:PEN#2,1:PRINT#2,"auptmen)..":GOS 
UB 150 

3370 GOSUB 30 

3380 IF mS="N” THEN GOSUB 3430:GOTO 2790 

3390 IF m$="E” THEN CLS:END 

3400 IF m$="H" THEN GOSUB 2370:GOTO 2480 

3410 GOTO 3370 

3420 ' 

3430 ******* Neueingabe Druck-]berschrift 

en ******** 

3440 ' 

3450 RESTORE 250 

3460 FOR m=l TO 5:READ xS(m):NEXT 
3465 'm$="F":GOTO 3510 

3470 GOSUB 1410:'**#** Abfrage welche >ber 
schrift ****** 

3480 GOSUB 30 

3490 IF m$="K" THEN uber$="Klassenliste":G 


£4221) 

C350] 

[3680] 

[2680] 

[3758] 

[4888] 


[117] 

[2135] 

[117] 

[1376] 

[15653] 


OTO 3560 

3500 IF roS="P" THEN uber$="Klassenpflegsch 

aft" : xSC3)=x$<4):GOTO 3560 

3510 IF mS="F" THEN x$(2)=x$(5):xS(3)=x$(4 

):freie=l:GOTO 3560 

3520 GOTO 3480 

3530 ' 

3540 '******* Ken) Druck-Iberschriften <nd 
ern ******** 

3550 ' 

3560 CLS#2 

3570 z=7:FOR m=l TO 3:LOCATE#2,15,z:z=z+2: 

PRINT#2, einS(m):NEXT 

3580 rev=l:losch=7 

3590 GOSUB 4050 

3600 GOSUB 3750 

3610 a=240 

3620 VHILE a<>224:'*** Copy *** 

3630 aS=INKEYS:IF aS="" THEN 3630 
3040 a=ASC(a$) 

3650 IF a=13 THEN GOSUB 3710:'***Enter*** 
3660 IF a=241 THEN rev=MIN(rev+l,3) : losch= 
MIN(losch+2, 11) :'** runter ** 

3670 IF a=240 THEN rev=XAXCrev-1, 1) : losch= 
MAX(losch-2,7):'*** rauf ** 

3680 GOSUB 3750 
3690 VEND 
3700 RETURN 

3710 GOSUB 4080:L0CATE#2,15,losch:PRINT#2, 
CHRS(18)j:LOCATE#2,15,losch: CLEAR INPUT:LI 
NE INPUT#2,,einS(rev) 

3720 IF einS(rev)="" OR LENCeinS(rev))=1 T 
HEN 3740 

3730 mS=einS(rev):GOSUB 890:einS(rev)=m$ 
3740 GOSUB 4050:RETURN 
3750 z=7:FOR m=l TO 3 

3760 IF m=rev THEN LOCATE#2,1,z:PRINT#2,CH 
RS<24); M "; x$(m>;CHRS(24) ; : z=z+2:ELSE LOCA 
TE#2,1,z:z=z+2:PRINT#2," ”;x$(m>; 

3770 NEXT:RETURN 
3780 ' 

3790 '******* Druck-Parameter ******** 

3800 ' 

3810 drckS(1>="(M)it / (O)hne Vornamen.... 

. " : drckS <2)="Kopien.» 

:drckS(3)="(S)chIn- / <N)ormal-Druck...":d 
rckeinS(l)="M": drckeinS (2)=" 1" : drckeinS<3) 
="S" 


[852] 

[1988] 

[1338J 

[1476] 

[455] 

[117] 

[2336] 

[117] 

[785] 

[1421] 

[5921 

[4248] 

[852] 

[3908] 

[4239] 

[3102] 

[481] 

[117] 

[3106] 

[117] 

[372] 

[4920] 

[855] 

[1015] 

[1035] 

[592] 

[1553] 

[1443] 

[1036] 

[24421 

[3800] 

[3982] 

£1035] 

[390] 

C 555) 
[6120] 


£1894] 

[ 2210 ] 

[1309] 

(13831 

[6063] 


[940] 

[117] 

[1014] 

[117] 

[9752] 


3820 CLS#2 

3830 z=7:FOR m=l TO 3:LOCATE#2,33,z:z=z+2: 

PEN#2, 3:PRINT#2, drckeinS<m):PEN#2, 1: NEXT 

3840 rev=l:losch=7 

3850 GOSUB 4050 

3860 GOSUB 3990 

3870 a=240 

3880 VHILE a<>224 

3890 aS= INKEYS: IF aS = "" THEN 3890 
3900 a=ASC<aS) 

3910 IF a=13 THEN GOSUB 3970 

3920 IF a=241 THEN rev=KIN(rev+1,3); losch= 

MIN(losch+2,11) 

3930 IF a=240 THEN rev=MAX(rev-l,1):losch= 
MAX<losch-2,7) 

3940 GOSUB 3990 
3950 VEND 
3960 RETURN 

3970 GOSUB 4080:LOCATE#2,33,losch:PRINT#2, 
CHRS (18)i :L0CATE#2,33,losch:CLEAR INPUT: IN 
PUT#2, ,drckeinS(rev):drckeinS(rev)=UPPER 
S(drckeinS(rev)) 

3980 GOSUB 4060:GOSUB 4050:RETURN 
3990 z=7:FOR m=l TO 3 

4000 IF m=rev THEN LOCATE#2,2,z:PRINT#2,CH 
RS(24);" " ; drckS(m)jCHRS(24);:z=z+2:ELSE L 
OCATE#2,2,z:z=z+2:PRI NT#2, " "; drckS (m>; 
4010 NEXT:RETURN 
4020 ' 

4030 ***************** Meldungen ********* 
************** 

4040 ' 

4050 CLS#3:LOCATE #3.2,1:PEN#3,1:PRINT#3," 

[nderung:”j:PEN#3,2:PRINT#3,"Taste ";CHR$( 
240);” oder CHRS(241);" , dann (enter)": 
LOCATE#3,14,3:PEN#3,1:PRINT#3,"Copy "; : PE 
N#3,2:PRINT#3,CHRS(243);" Drucken”;:RETUR 
N 

4060 IF drckeinS(2)<>"1” OR n>35 THEN PEN# 
2,3:LOCATE#2,9,14:PRINT#2,CHRS(7)"Endlospa 
pier einlegen”;:PEN#2,1:ELSE LOCATE#2,9,14 
:PRINT#2,CHRS(18); 

4070 IF drckeinS(1)="0” THEN drckeinS(l)=" 
O":RETURN 

4080 CLS#3:LOCATE#3,4,2:PRINT#3,"Die Einga 
be mit (enter) abschlie^en":RETURN 
4090 ' 

4100 '************* Ausgabe Progr. Name ** 
************ 

4110 ' 

4120 INK 1,24: INK 2,20: INK 3,6: INK 4,0:BOR 
DER 1 

4130 KODE 0:VINDOV#l,3,18,2,4: VINDOV#2,2, 1 

9,11,15:PAPER#1,4:PAPER#2,2 

4140 CLS#1:PEN#1,3:LOCATE#l,6,2: PR INT#1,"L 

ISTE"; 

4150 CLS#2:PEN#2,4:L0CATE#2,7,2:PRINT#2, CH 
RS<164);" 1985":PRINT#2," Volfgang Tewes” 

4160 FOR k=l TO 1500:NEXT 
4170 RETURN 
4180 ' 

4190 '********* UMLAUTE ******* 

4200 ' 

4210 SYMBOL AFTER 90 

4220 SYMBOL 123,108,0,120,12,124,204,118,0 
4230 SYMBOL 91,102,24,60,102,126,102,102,0 
4240 SYMBOL 124,102,0,60,102,102,102,60,0 
4250 SYMBOL 92,102,56,108,198,198,108,56,0 
4260 SYMBOL 125,102,0,102,102,102,102,62,0 
4270 SYMBOL 93,102,0,102,102,102,102,60,0 
4280 SYMBOL 126,120,198,198,252,198,198,24 
8, 192 

4290 KEY DEF 17,1,123,123 
4300 KEY DEF 19,1,124,124 
4310 KEY DEF 22,1,125,125 
4320 KBY DEF 26,1,126,124 
4330 RETURN 
4340 ' 

4350 '********** Fehler-Routine ********** 

* 

4360 ' 

4370 IF DERR=146 THEN PRINT CHRS(7)CHRS(24 
)" Falscher Datei-Name! "CHRS(24):RESUME 1 
550 

4380 MODE 2:INK 0,13:INK 1,0:PAPER 0:BORDE 
R 13: VINDOV #1,1,80,24,25:PAPER#1,0:PEN#1, 

1:CLS#1 

4390 RESUME 2500:'******* zum Hauptmen) 
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Interrupts auf dem CPC 


Wer sich schon einmal gefragt hat, wie 
es in Spielprogrammen eigentlich ge¬ 
löst wird, daß neben dem laufenden 
Programm noch eine Melodie ertönt, 
oder woher der Rechner weiß, ob in 
einem laufenden Programm die ESC- 
Taste gedrückt wurde, der wird irgend¬ 
wann einmal auf den Begriff INTER¬ 
RUPT stoßen. Ein Interrupt ist den im 
Rechner periodisch auftretendes Er¬ 
eignis, welches zu Deutsch Unterbre¬ 
chung heißt und dazu verwendet wird, 
Unterprogramme anzuspringen. 

Die Programmierung eines Inter¬ 
rupts erfolgt über den Interrupt- 
Handler und kann beim CPC sehr 
einfach durch die Verwendung von 
Event-Blöcken vorgenommen wer¬ 
den. Auch unter Basic finden solche 
Ereignisse durch die Befehle EVERY. 
DI, EI und ON SQR Verwendung 
Da sich das Handbuch über die Ver¬ 
wendung dieser Befehle sehr ausführ¬ 
lich ausläßt, wollen wir uns nur mit 
der Programmierung unter M-Code 
befassen. 

Die Interrupt-Steuerung wird über 
Events und Chains vorgenommen. 
Zum eigentlichen Auslösen eines 
Interrupts ist jedoch zunächst einmal 
ein Signal der Hardware erforder¬ 
lich. 


Hardware Grundlagen 


Ein Interrupt ist, wie bereits eingangs 
erwähnt, ein Aufruf eines Unterpro¬ 
gramms. Im Gegensatz zu normalen 
Programmaufrufen startet man einen 
Interrupt jedoch nicht mit einem 
CALL, sondern läßt das von der CPU 
automatisch erledigen. Der Z80A hat 
nämlich unter seinen vielen Bein- 
chen auch eines, das die Bezeichnung 
IRQ (Interrupt Request) trägt. 

An diesem Beinchen wird nun von 
einem Timer, der sogenannten Inter¬ 
rupt-Quelle, von Zeit zu Zeit ein Sig¬ 
nal angelegt, das der CPU mitteilt, 
daß nun ein Interrupt freigegeben 
werden kann. Ist dieses Signal LOW 
(0 Volt), so arbeitet der Prozessor den 
letzten Befehl ab,und sieht danach an 
Speicherstelle &0038 nach, was für 
einen Interrupt er abarbeiten soll. 

Im Gegensatz zu anderen Z80-Syste- 
men kennt der Schneider nur eine 
solche Inerrupt-Quelle. das Gate 
Array. 

Deshalb arbeitet der CPC auch nur 
im Interrupt-Modus 1 (IM1) und be- 
arbeitet bei Auslösung auf jeden Fall 


zunächst einmal die Speicherstelle 
&0038. Dort kann dann natürlich ein 
CALL stehen, der den Interrupt 
weiterleitet. 

Der eigentliche Softwareteil der 
Interruptbehandlung geschieht im 
KERNEL, in der Firmware und bei 
der von Ihnen geschriebenen Inter¬ 
ruptroutine im RAM. 


Software Grundlagen 


Nachdem der Interrupt hardware¬ 
mäßig ausgelöst wurde und die 
Adresse &0038 erreicht hat, wechselt 
er zunächst einmal seinen Namen 
und heißt zum besseren Verständnis 
nunmehr EVENT (Ereigniss). Dabei 
unterscheidet man zunächst einmal 
zwei Sorten von Events. 


Der synchrone Event 


Ein synchroner Event steht im Kernel 
in einer verketteten Liste, dem SPQ 
(Synchron Pending Queue). 

Alle diese Events sind nach festgeleg¬ 
ten Prioritäten geordnet und haben 
keine andere Aufgabe, als zunächst 
einmal Wegweiser zum eigentlich ab¬ 
zuarbeitenden Event zu sein. Da 
diese Events zu Blöcken mit Priori¬ 
tätsmarkierungen und Koppeladres¬ 
sen zusammengefaßt sind und es de¬ 
ren mehrere geben kann, wird von 
einem Queue gesprochen. 

Ein Queue wird im Billard verwendet, 
und ist ein langer Stab, mit dem man 
Kugeln anschieben kann. Da auch 
die Interrupts "angeschoben" (man 
spricht vom An kicken) werden müs¬ 
sen, nahm man sinnigerweise diesen 
Namen. Weiterhin besteht der Begriff 
SPQ noch aus dem Wort Pending. 
was soviel wie schwebend heißt. 
Tatsächlich "schwebt" die Abarbei¬ 
tung dieser Interrupt-Liste so lange, 
bis vom Kontrollprogramm (Basic 
Interpreter usw.) die Erlaubnis zur 
Ausführung kommt. 

Die Events laufen also synchron 
zum Kontrollprogramm. 

Typisch für einen solchen synchro¬ 
nen Event ist beispielsweise der 
Break-Event, der auf den Keyboard 
Manager im Kernel losgelassen wird 
und abfragt, ob ESC gedrückt 
wurde. 

Dieser Interrupt-Block wird zwar lau¬ 
fend angesprungen, jedoch erst ab- 
gearbeitet, wenn der Interpreter mit 


der Abarbeitung seiner momentan 
laufenden Schleife fertig ist. 

Das heißt, daß die ESC-Taste nur 
zwischen zwei Basic-Befehlen zum 
Einsatz kommt und Sie nicht mitten 
in einer Sprunganweisung abbrechen 
können. 


Asynchrone Events 

Ein asynchroner Event ist zunächst 
einmal genau das gleiche wie ein 
synchroner Event. Auch diese Events 
sind in einer Liste miteinander ver¬ 
kettet. Allerdings heißt diese Liste 
nicht mehr SPQ. sondern APQ, was 
logischerweise Asynchronus Pen¬ 
ding Queue bedeutet. 

Asynchrone Events sind nicht kon¬ 
trollierbar. Sie werden zwar auch der 
Reihe nach abgearbeitet, lassen sich 
jedoch vom Kontrollprogramm nicht 
stören. Diese Events, die ungefähr 300 
mal pro Sekunde ausgelöst werden, 
bieten die Möglichkeit der Echt¬ 
zeitprogrammierung, können aber 
auch dazu führen, daß sie bei unge¬ 
schickter Programmierung nie wie¬ 
der zum Kontrollprogramm zurück¬ 
kehren. 

Dummerweise wird ein Event, der in 
einem PQ untergebracht ist, nach sei¬ 
ner Abarbeitung aus demselben 
entfernt. 

Das heißt im Klartext, daß die perio¬ 
dische Abarbeitung eines asynchro¬ 
nen Events ohne ständiges Erneuern 
des PQ nicht möglich ist. 

Um ein PQ im Takt von 300 Hz je¬ 
doch nach jeder Abarbeitung neu zu 
installieren, benötigt man wiederum 
einen Interrupt, der sich wiederum 
löscht. 

Um nun dennoch einen periodische 
PQ aufzubauen, verfügt der CPC 
über die sinnvolle Einrichtung von 
CHAINS. 


CHAINS und KETTEN 


Chains sind eine weitere Listenform, 
in der der Programmierer alle ge¬ 
wünschten PQ-Blöcke ablegcn kann. 
Eine solche Chain wird bei jedem 
Interrupt durchgegangen und die ent¬ 
sprechenden Blöcke in die PQ einge¬ 
hangen, von wo aus sie angekickt wer¬ 
den können. 

Genau genommen hat der CPC 
gleich drei solcher Chains. die ähn¬ 
lich w’ie die Events, unterschiedliche 
Prioritäten haben. Da ist zum ersten 
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die "Fast Ticker Chain” (FTC). Wie 
der Namensteil FAST schon vermu¬ 
ten läßt, ist dies der schnellste Event, 
den wir auslösen können. Tatsäch¬ 
lich kickt die FTC alle 300-steI Se¬ 
kunde einen Block in den PQ. 

Etwas langsamer ist dagegen schon 
die normale Ticker Chain" (TC). Sie 
kickt mit einer Frequenz von 50 Hz. 
die der deutschen Netzspannungsfre¬ 
quenz entspricht. Die Ticker Chain 
zählt dazu immer sechs Interrupts 
hoch und löst dann aus. 

Außerdem gibt es noch die "Frame 
Fly Chain”, die immer dann kickt, 
wenn der Bildschirm gerade einen 
VSYNC-Impuls abgeschlossen hat 
und der Elektronenstrahl des Moni¬ 
tors von der linken unteren Bild¬ 
schirmecke in die obere rechte 
zurückläuft. Mit dieser FFC ist es 
möglich, synchrone Events zu star¬ 
ten.ohne daß der Monitor anfängt zu 
flimmern. Eine solche Chain ist ähn¬ 
lich aufgebaut wie ein PQ. Sie besteht 
aus den Interrupt-Blöcken, die ihre 
Prioritätsmerkmale, ihre Destina¬ 
tionsadresse sowie eine Koppel¬ 
adresse, die auf den nächsten C'hain- 
Block hinweist, enthält. 

Die Blöcke für die TC enthalten noch 
einige Zähler. Der Header (Kopf) 
eines solchen Event-Blocks hat einen 
grundsätzlichen Aufbau, der eigent¬ 
lich auch schon das ganze Geheimnis 
der Interrupt-Programmierung aus¬ 
macht. 


Der Interrupt Block Header 


Ein Block-Header hat grundsätzlich 
folgenden Aufbau: 

BYTE 0 - 1 

Pointer auf nächsten Interrupt-Block 

BYTE 2 

Counter für den PQ 

BYTE 3 

Priorität des Blocks 

BYTE 6 

RO M-Konfigu ration (Optional) 

BYTE 7- 

Benutzerfeld 

Die Bits des Priorität-Bytes haben 
dabei folgende Bedeutung: 


Bit 

0 

0 

1 -4 

5 


Zust. Auswirkung 
0 Sprung nach einer 
NEAR ADRESS 
1 Sprung nach einer 
FAR ADRESS 
0/1 Priorität für synchrone 
Events 

0 SYNC EVENT ON 
1 SYNC EVENT OFF 
0 Standard-Event 


6 1 Express-Event 

0 synchroner Event 
1 Asynchroner Event 

Wie eingangs erwähnt, verzweigt der 
Pointer, also die ersten beiden Bytes 
des Block-Headers, auf den nächsten 
Block, für den wieder die gleichen 
Daten zutreffen. 

Diese Bytes errechnet Ihr CPC netter - 
weise automatisch und Sie sollten 
sich hüten, dort irgendwelche Anga¬ 
ben zu machen, da sie Ihren Interrupt 
nach Abarbeitung ganz schön “in die 
Wüste schicken" können. Wichtig ist 
nur noch das siebente Bit des Poin¬ 
ters. Ist dieses nämlich gesetzt (1). so 
ist dieser Event ausgeschaltet. Ist das 
Bit 0, so übernimmt der PQ-Counter 
die Verwaltung und gibt an, wie oft 
dieser Event ausgeführt werden soll. 
Zumindest hatten sich die Program¬ 
mierer von Locomotive das so ge¬ 
dacht! Durch einen ROM-Fehler 
klappt das allerdings nicht so ganz. 
Der Event wird überhaupt nur dann 
in den PQ übernommen, wenn der 
PQ-Counter leer ist. Sobald irgend 
etwas anderes darin steht, ist der 
Interrupt gesperrt. 

Das ist zwar schade, aber man kann 
den PQ-Counter ja immer noch als 
Flag benutzen. 

Eine “Near-Address" solltejedem As¬ 
semblerprogrammiere ein Begriff 
sein. Sie gibt an, ob die Inter¬ 
rupt rout ine im RAM von &4000 bis 
&BFFF steht .oder bei Angabe einer 
Far-Address in ein UPPER ROM ge¬ 
sprungen werden soll. 

Wurde ein FAR CALL ausgewählt, so 
muß in BYTE 6 noch eine ROM- 
KonFiguration nach den für FAR 
CALLs gültigen Bedingungen über¬ 
geben werden. Ab BYTE 6 steht dann 
das Benutzerfeld. Dieses Feld kann 
beliebig lang sein, die Entfernung 
zum nächsten Block errechnet der 
CPC ja von alleine. 

Dieses Benutzerfeld entspricht der 
eigentlichen Interruptroutine, die 
ausgeführt werden soll. 

Hier kann ein CALL, ein JUMP oder 
eine ganze Routine stehen. Der PQ 
arbeitet hier auf jeden Fall weiter. 
Eine Besonderheit des Benutzerfel¬ 
des ist noch, daß bei einem NEAR 
CALL vom Kernel ein Pointer nach 
DF, geschrieben wird, der auf die bei¬ 
den Bytes vor dem Benutzerfeld hin¬ 
weist. Hier können für die Inter- 
ruplroutine noch Parameter abgelegt 
werden. Bei einem FAR CALL steht 
dieser Pointer in HL und geht sogar 
drei Bytes vor das Benutzerfeld. 

Wie Sie sehen, geht das Einhängen 
von Interrupts auf sehr einfache 


Weise. Lediglich von den ersten bei¬ 
den Bytes für die Ankopplungsadresse 
des nächsten Blocks sollte man die 
Finger lassen. Die oben genannten 
Daten gelten jedoch nur für die FTC' 
und die FFC. Beim TC verhält sich 

das alles noch ein klein wenig . 

anders. 
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Ticker Chains 


Der Eleader eines TC-Blocks hat fol¬ 
genden Aufbau: 

BYTE 0/1 

Pointer auf nächsten Block 

BYTE 2/3 

TICKER COUNTER 
BYTE 4/5 

RELOAD COUNTER 
BYTE 6- 

siehe Block-Header 
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Byte 2 und 3 enthalten einen 16-Bit- 
Wert, der bei jedem auftretenden 
Ticker um 1 vermindert wird. Das 
heißt, daß alle50-stel Sekunde 1 abge- !!II!!P 
zogen wird. Ist der Counter leer, wird llüil 1 

gekickt. Steht also im Ticker-Counter ||.. 

eine 50, so müssen 50 Ticker ablaufen ;j||||J' 
(entspricht 50/50 also eine Sekunde), 
sodann wird der Interrupt ausgelöst. 

So ließe sich zum Beispiel auf einfach¬ 
ste Weise eine Echtzeituhr realisieren. ;;n;;| 
Damit der Zähler nach Ablauf der || l ll'| 
Ticker-Zeit auch wieder einen neuen 'KZ 
Startwert erhält, kann in den Bytes 4 U'li'ii 
und 5 ein sogenannter Reload-Wert C" 
eingesetzt werden, der die Counter |j'jj!|] 
Bytes wieder füllt. 


How to do it 


Um nun diese Interrupts auch so 
komfortabel wie möglich in die 
Chains und PQ’s einzubinden, hält 
das Betriebssystem noch eine Reihe 
von Firmware-Routinen bereit, über 
deren Handhabung Sie etwas in der 
Referenzliste 1 erfahren. 
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Interrupts Off!! üüüjj 

Der Autor meldet sich zu Wort "85 


Das soeben Gelesene macht auf den 
ersten Blick einen sinnverwirrenden || ^ 
Eindruck. Trotzdem sollten Sie sich "i||]|i 
von den Interrupts nicht abschrecken jjljjljj 
lassen. Bei näherer Betrachtung ipi 
kommt nämlich Struktur in das Gan- il'll'll 
ze, und so mancher Besitzer eines pW 
anderen Z80-Systems neidet dem |!||j!j| 
CPC bestimmt seine komfortablen 
Einrichtungen zur Behandlung dieser p<jj 
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doch sehr zeitkritischen Angelegen- werden bald Parallelen zur Inter- Firma Schneider empfohlen, 
heit. Befassen Sie sich zunächst ein- ruptbehandlung in Maschinenspra- Viel Spaß und Erfolg beim Program¬ 
mal mit der Behandlung von Inter- che linden. Als weiterführende Lite- mieren wünscht 

rupts in Basic (Absturzsicher) und Sie ratur sei das Firmwarehandbuch der (TM) 

Adresse 

Syntax 

Auswirkung 

&BCD7 

Einsprung: HL Adresse Bildblock. B-~1 .ventklussc. 

C—ROM-SelecL DE^fEvenirouiine. 
Aussprung: AF. DE. HL zerstört. 

Initialisierung und Übergabe eines Bildblock' an die 
Biidaufbaulislc. 

&BCDA 

Einsprung: HL=Bildaufbauhloek. 

Aussprung: AF. DE. HL zerstört. 

Übergabe eines Bildblocks an die Biidaufbaulislc ohne 
Initialisierung. 

&BCDD 

Einsprung: HL= Bildblock. 

Aussprung: AF. DE. HL zerstört. 

Löschen eines Bildblocks in der Bildaulhauliste. 

&BCE0 

Einsprung: H L= La sl-T i cke r- ß 1 ock. B—Evcnlklasse. 

C=ROM-Select. DE—Eventroutine. 
Aussprung: AF. DE. HL zerstört. 

Initialisierung und Übergabe eines Blocks an die Fast- 
Ticker-Liste. 

&BCE3 

Einsprung: HL=Fasl-Ticker-Block. 

Aussprung: AF. DE. HL zerstört. 

Übergabe eines Blocks an die L ast-Ticker-Liste ohne 

Initialisiert! ng. 

A;BC L6 

Einsprung: HL=Fast-Ticker-BIock. 

Aussprung: AF. DE. HL zerstört. 

Löschen eines Block' in der East- ricker-Lisie. 

&BCE9 

Einsprung: HL=Ticker-Block. DE- Start C ounter Value 
BL=Repeat Value. 

Aussprung: AF. BC. DL zerstört. 

Block an die normale Ticker-Liste übergeben. 

&BCEC 

Einsprung: HL=Tieker-Block. 

Aussprung: Block gefunden: carry on. 

DF.— Event Counter State. 

Block nicht gefunden: carry off. DE zerstört. 

Immer: A. HL. Flags zerstört. 

Löschen eines Blocks in der normalen I iekcr-Liste. 

&BCEF 

Einsprung: HI =Eventblock. B=Eventklasse. 

lC=ROM-Select. DE=Eyentroutine. 
Aussprung: HL enthält Adresse des Eventblocks plus 
einen Offset von +7. 

Initialisiere einen Eventblock. 

&BCF2 

Einsprung: HL.= Eventblock. 

Aussprung: AF. BC. DE. HL zerstört. 

Starten eines Eventblocks (kann über low Jump vom Interrupt- 
Pfad aus gestartet werden). 

«ABCF5 

Einsprung: Keine Bedingungen. 

Aussprung: AF. HL zerstört. 

Lösche die Warteliste für synchrone Events. 

&BCFS 

Einsprung: HL = Eventblock. 

Aussprung: AF. BC. DE. HE zerstört. 

Lösche ein synchrones Ereignis aus der Walteschlange für 
sy n ch ronc L reign isse. 

&BCFB 

Einsprung: keine. Hole den nächsten E vent aus der Warieselt lange 

Aussprung: Event gefunden: Carry on. EIL. = Eventblock. 

A = Priorität. 

Kein Event: Carry off. A. EIL zerstört. 

Immer: DE zerstört. 

&BCFE 

Einsprung: HL = Eventbjöck. 

Aussprung: AF. BC. DE. Hl zerstört. 

Bearbeite Event. 

&BD01 

Einsprung: C' = Priorität. HL Eventblock. 

Aussprung: AF. BC. DE. HL zerstört. 

Stoppe die Bearbeitung eines Events. 

&BD04 

Einsprung: keine. 

Aussprung: r i L zerstört. 

Sperren von synchronen Events. 

&BD07 

Einsprung: keine. 

Aussprung: EIL zerstört. 

1 reischalten der sy nchronen Events. 

&BD0A 

Einsprung: HL = Eventblock. 

Aussprung: AF zerstört. 

Sperre einen bestimmten Event. 

<ABDOD 

Einsprung: keine. 

Aussprung: DE. EIL = 4 By te Counter. 

Gib die /eit seit Ei lisch alten des Rechners in 1/300-siel 
Sekunden zurück. 

&BDIO 

Einsprung: keine. 

Aussprung: AF zerstört. 

Setzen des Time-CGunters 
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Tape Monitor 



Mit dem Programm Tape Monitor wird es dem User er¬ 
möglicht, einzelne Blöcke eines Programms zu laden, zu 
verändern und wieder abzuspeichern. Der Tape Monitor 
ermöglicht es auch, Programme mit Ladefehlern ohne 
großen Datenverlust wieder herzustellen, indem ein 
fehlerhafter Block bis zu seinem Ladefehler korrekt gela¬ 
den wird und die fehlenden Daten durch Nullbytes aufge¬ 
füllt werden. 


Der Tape Monitor ist sehr einfach zu bedienen. Im 
Window#2. in der rechten oberen Bildschirmecke, steht 
permanent das Menue bzw. der derzeit ausgewählte Me- 
nuepunkt. Wurde ein Programm geladen, zeigt das Win¬ 
dow #1 immer die aus dem Header errechneten Pro¬ 
grammdaten, wie Startadresse, Länge, Autostart usw. 

Ein Programmblock wird in acht Seiten zu je 256 Bytes 
unterteilt, die im Menuepunkt Ändern-Programm jeder¬ 
zeit direkt über die Tasten 0-7 oder über die Pfeiltasten 
aufgerufen werden können. Vor den ausgclisteten Zeilen 
steht jeweils die Adresse, ab der die Seite des derzeit gela¬ 
denen Blocks steht, wenn das Programm regulär geladen 
wird. Beim Header wird einfach von Null an gezählt. Im 
Editor kann man wahlweise die einzelnen Bytes hexadezi¬ 
mal verändern (wobei stets beide Nibble neu geschrieben 
werden müssen), oder die Bytes direkt im ASCII-Fcld ver¬ 
ändern. Der Cursor wird über die Pfeiltasten gesteuert. 
Über die TAB-Taste wird der Editor wieder verlassen, und 
die Seite des aktuellen Blocks noch einmal ausgelistet. 
Alle momentan möglichen Befehle werden im Window #1 
angezeigt. Zum Abspeichern stehen dem User, außer den 
normalen Geschwindigkeiten 0 und 1, noch eine dritte mit 
etwa 3000 Baud zur Verfügung. 

Der Header wird ab der Adresse &4E00, das Programm ab 
&5000 abgelegt. Dadurch wird es ermöglicht, ein zusätzli¬ 
ches Programm (z.B. Arnor A/D/E) zu laden. 

Der Tape Monitor ist überwiegend in Basic geschrieben. 
Die eingesetzten Maschinenprogramme dienen zum Spei¬ 
cherbereich löschen, Programm ladcn/sichern und zum 
Setzen der Bandgeschwindigkeit. 


Variablenliste: 


(A. Stolzenberger) 


me$ (1-3) 
muS (1-3) 
a$ 
a 
t 

b 

he 

hd 


s 


b 


Universelle Laufvariable 
Hauptmenuepunkte 
Untermenuepunkte 
Universalvariable für Tastaturabfrage 
ASCII-Wcrt von a$ 

Zweite universelle Laufvariable, falls i 
besetzt ist 

Enthält den Wert der aktuellen Seite 
eines Blocks. Trägt Werte von 0-7 
Enthält den Wert &4e00 ab dem der Hea¬ 
der im Speicher steht 
Header Flag; Information für Dump- 
Unterprogramm, ob der Header oder das 
Programm gelistet wird 
(Header=-1 Programm=0) 

Enthält bei Programmlisting den Wert, 
ab welchem die Seite des Blocks norma¬ 
lerweise im Speicher stünde 
(Header: s=0) 

Enthält den Wert, ab dem die Seite des 
Programmblocks oder der Header tat¬ 
sächlich im Speicher steht 


y Zeile des Cursors 

x Spalte des Cursors 

xx Tatsächliche Spalte des Cursors, errech¬ 

net sich aus x 

fl Flag; enthält den Wert-1, wenn der obere 

Nibble eines Bytes beschrieben wurde 
r Enthält den von der Tastatur übernom¬ 

menen Wert, der in den Speicher ge¬ 
schrieben wird 

rr Hilfsvariable für r, übernimmt den obe¬ 

ren Nibble-Wert, bis der untere eingege¬ 
ben wurde und in r vorliegt 

Unterprogramme: 


:n::n. 

XI' 


",K 

ini'ii 


l|iiiiu 
um j ii 



110- 230 
240- 360 
370 - 500 

540- 590 
630 - 730 
770 - 880 

920 - 1050 

1130-1160 
1200- 1310 

1350 - 1430 


Schreibt das Maschinenprogramm 
in den Speicher 

Setzt Mode, Farbe und baut den 
Bildschirm auf 

Hauptmenue, verzweigt in die 
Routinen für Ändern, Laden und 
Speichern 

Ruft das Maschinen UP zum Lesen 
eines Blockes auf 
Wertet die Header-Information aus 
und zeigt diese im Window 1 
Setzt die Bandgeschwindigkeit und 
ruft die Maschinenroutine zum 
Speichern auf 

Untcrmenue, verzweigt zum Pro¬ 
gramm bzw. Header-Dump und 
Editor oder zurück zum Menue 
Listet den Header und verzweigt 
zum Editor oder zum Untermenue 
Listet die erste Seite des Pro¬ 
grammblocks, verzweigt zum Editor 
oder zum Untermenue, oder wählt 
eine neue Seite eines Blocks an 
Listet eine Programmseite oder den 
Header 


imn 



ini'ii 


Mim 

IIIJIIII 



• 11111M 
! nun 

* 1111111 


Ii 


1470- 1610 
1650- 1710 
1750 - 1800 

1840 - 1950 


&BC6E 

&BCA1 

&BC9E 

&BC68 

&BB81 


Editor für Programm oder Header 
Berechnet tatsächliche Cursorspalte 
Liest einen Wert zwischen 0 und F 
von der Tastatur 

Liest den ASCII-Wert einer Taste 
von der Tastatur 


CAS START MOTOR 
CAS READ 
CAS WRITE 
CAS SET SPEED 
TXT CUR ON 


nillii 

|l"li 



10 

20 ' * TAPE - MONITOR * 

30 1 * by Andi Stolzenberger * 

40 '* (c) Februar 1986 

50 

60 ' 

70 ’ 

80 ' 

90 ' 

ioo 

110 '* Mpg einiesen * 

120 
130 ' 

140 ' 

150 MEMORY &4CFF 

160 FOR i=&4D00 TO &4D00+52:READ a$:POKE i 
,VAL("&"+a$):NEXT 

170 DATA cd,6e,bc,21, 00,4e,11,ff,00,3e,2c, 



11111111 

[12851 
[329 ] 

i!iin|| 

IMIIIII 

[2212] 

"'Hü 1 

[11741 
[1285 ] 
[117] 

. . 

[117] 

ilji’ii 

[117] 

"Mül 1 

[117] 

IMIIIII 

[1285 3 

P'll 

[1299 3 

jjllllll 

[1285 3 

P'll 

[117] 


[117] 

[114) 

ii n i 

[4176 ) 

IlHllI 

II 

nun | 

[37103 

ll'ii'll 

. I! 
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TIPS & TRICKS 




u um 





IM II lll 

iimil! 


i null 
iimil 



iniliii 

inllin 





IIIH' 

llllll 



i II l in 


Hill 



iitiiii 

Inh, 

'lill'l. 


lüllü 


niiiiii 

.iüiii. 


cd,a1,bc,21,00,50,ed,5b, 1 3,4e 

180 DATA 3e,16,cd,a1,bc,cd,71 ,bc,c9 
190 DATA 21,00,50,11,01,50,01,00,08,36,00, 
ed,b0,c9,21,82,00,3e,01,cd,68,bc,c9 
200 me$(1 )="<!> Laden":me$(2)="<2> Spe 
ichern":me$(3)="<3> Aendern":mu$(1 )="<1 > 
Header":mu$(2)="<2> Programm":mu$(3)= 
<3> Menue" 

210 * 

220 * 

230 ........ 

240 '• Bildschirm aufbauen * 

250 ...... 

260 ' 

270 * 

280 MODE 2:INK 0,13:INK 1,0:BORDER 13:CALL 

44D2C 

290 PRINT CHR$(150)STRINGS(78,154)CHR$(156 

); 

300 FOR i-2 TO 6:LOCATE 1,i:PRINT CHR$(149 
);:LOCATE 80,i:PRINT CHR$(149);:NEXT 
310 LOCATE 1,7:PRINT CHR$(151)STRING$(78,1 
54)CHR$(157);:LOCATE 58,1:PRINT CHR$(158); 
:LOCATE 58,7:PRINT CHR$(155);:FOR i=2 TO 6 
:LOCATE 58,i:PRINT CHR$(149);:NEXT 
320 FOR i»8 TO 24:LOCATE 1,i:PRINT CHR$(14 
9);:LOCATE 80,i:PRINT CHRS(149);:NEXT:LOCA 
TE 1,25: PRINT CHR$ (147 )STRING$ (78,154)QHR'S 
(153); 

330 WINDOW 2,79,8,24 : WINDOW# 1,2,57,2,6: WIN 
DOW #2,59,79,2,6 
340 ' 

350 ' 

360 

370 1 * Hauptmenue * 

380 ...... 

390 ' 

400 * 

410 CLS #2 : PRINT#2 , " Menue" : PRINT#2 : FOR 

i-1 TO 3: LOCATE#2,2 , i +2: PRINT#2,me$( i ): NEX 
T 

420 a$="":WHILE a$="":a$=INKEY$:WEND 

430 IF a$<"1" OR a$>"3" THEN 420 

440 i*VAL(a$):LOCATE#2,2,2+i:PRINT#2,CHR$( 

24)me$(i)CHR$(24) 

450 LOCATE #2,12,1 : PRINT//2 , " «ENTER >" ; 

460 a$*"":WHILE a$="":a$=INKEY$:WEND:IF a$ 
<>CHR$(13) THEN 410 

470 LOCATE#2,12,1:PRINT#2," ":FOR t= 

1 TO 3:IF t=i THEN 480 ELSE LOCATE#2,2,2+t 
:PRINT#2," 

480 NEXT 
490 b-0 

500 ON i GOTO 540,770,920 
510 ' 

520 * 

530 ..... 

540 ' * Block lesen * 

550 ... 

560 ' 

570 • 

580 POKE &4D0C,ÄA1:POKE &4D18,&A1:CALL &4D 

IE:CALL &4D00 

590 GOSUB 6 30 :GOTO 410 

600 ' 

610 ' 

620 .. 

630 ’ • Header auswerten * 

640 ..*.. 

650 ' 

660 ' 

670 CLS#1 .-PRINT# 1 , "Name : ";:FOR i = &4E00 T 
O &4E0F:PRINT#1,CHR$(PEEK(i));:NEXT:LOCATE 
#1,25,1:PRINT#1 /'Block: ";PEEK(&4E10):he= 
&4E00:IF PEEK(he+23)< >0 THEN LOCATE #1,40, 
1:PRINT#1/'First Block 

680 IF PEEK(he + 17)< >0 THEN LOCATE#1,40,1 :P 
RINT#1,"Last Block " 

690 LOCATE#1,1 ,2:PRINT#1/'File Loc.: &";H 
EXS(PEEK(he+ 22 )*256 +PEEK(he +21 )-(PEEK(he + 1 
6)-1)*5800,4);:LOCATE #1,20,2:PRINT#1,"Fil 
e len.: 5";HEXS(PEEK(he +25)*256 +PEEK{he+ 2 
4),4);:LOCATE #1,40,2:PRINT#1,"Boot : &";H 
EXS(PE£K(he+27)*2 56 + PEEK(he + 26),4); 

700 LOCATE#1,1,3:PRINT#1/'Block Loc.: 5";H 
EX$ (PEEK( he+22) *256 +PEEK( he +21 ), 4 );: LOCATE 
#1,20,3:PRINT#1/'Block len.: 5";HEX$(PEEK 
(he + 20)*256+PEEK(he + 19 ), 4 );:LOCATE #1,40,3 
:PRINT#1/'Blocks :";INT( PEEK(he+25)»256+P 


[1969 J 
[42661 

[10979 ] 


1117) 
[117] 
[1285 ) 
[1920 1 
[1285 ] 
[117] 
[117] 
[2503 ] 

[2155] 

[4350 1 

[11 743 1 


[7093] 


[2774 ] 

[117] 
[117] 
[1285 ] 
[1 375 ] 
[1285 1 
[117] 
[117] 
[6111] 


[2835] 
[2607 ] 
[3076 ] 

[2318] 
[4246 ] 

[50961 


[350 ) 
(438 ] 

[1 332 ] 

[117] 

[117] 

[12851 

[9783 

11285) 

[117] 

[117] 

13100) 

[1160] 
[1 17 J 
[117] 
[1285] 
[1 565 ] 
(1 285 ) 
[117] 
[117) 
[11104] 


(3944] 
[16246 ) 


[11065 ) 


EEK(he+24)-1)/2048)+1 

710 LOCATE#1,1,4;PRINT#1 /'Type : 5X";BIN$( [12569 1 
PEEK(he + 18 ),8 ) ;" &";KEX$(PEEK(he + 18),2);" 

";:IF PEEK(he+18)=0 THEN PRINT#1,"3asic" E 
LSE IF PEEK(he + 18)=1 TUEN PRINT#1/'Protect 
ed Basic" 

720 IF PEEK(he+18)=2 THEN PRINT#1,"Binary" [5196] 
^ELSE IF PEEK(he+18)=8 TUEN PRINT#1,"Ascii 


730 RETURN 1555 1 

740 ' [117] 

750 ' [117] 

760 .. [1285] 

770 ’* Block sichern * [2234] 

780 ...... [ 1 285 J 

790 ' [117] 

800 ' [H7] 


810 LOCATE #1,1,5:PRINT#1," Speed ( 138351 

0), (1) oder (2)";SPC(10); 

820 a$="":WHILE a$="":a$=INKEY$:WEND:IF aS [4179] 
<"0" OR a$>"2" THEN 820 

830 IF a$="2" THEN CALL &4D2C ELSE SPEED W [3054] 
RITE VAL{a$) 


840 LOCATE#1,1,5:PRINT#1,STRINGS(54,32); [2221] 

850 LOCATE #1,16,5:PRINT#1 /'Press REC and [5069] 
PLAY then any key:":WHILE INKEY$="":WEND 
860 LOCATE #1,16,5:PRINT#1," [2336] 

870 POKE &4D0C,&9E:POKE &4D18,&9E:CALL &4D [2758] 
00 

880 GOTO 410 [450] 

890 ' [117] 

900 ' [117] 

910 ... (1285) 

920 '* Aendern * [8241 

930 [1285] 

940 ' [117] 

950 ' [117] 

960 CLS#2:PRINT#2," Aendern":PRINT#2:FOR [6321] 
i = 1 TO 3:LOCATE#2,2,i+2:PRINT#2,mu$(i):NE 
XT 

970 a$="":WHILE a$="":a$=INKEYS:WEND 12835] 

980 IF a$<"1" OR a$ >"3" THEN 970 [2671] 

990 i=VAL(a$):LOCATE#2,2,2+i:PRINT#2,CHR$( [30151 
24)mu$(i)CHR$(24) 

1000 LOCATE #2,12,1:PRINT#2,"<ENTER>"; [23181 

1010 a$="":WHILE a$=""fa$=INKEY$:WEND:IF a [4246] 
$ < >CI£R$ (13) THEN 410 

1020 LOCATE#2,12,1:PRINT#?," ":FOR t (5599) 

=1 TO 3:IF t=i THEN 1030 ELSE LOCATE#2,2,2 
+t:PRINT#2," 

1030 NEXT [350] 

1040 hd=-1 [754] 

1050 ON i GOTO 1090,1200,410 [1711] 

1060 ' [1171 

1070 ' [117] 

1080 .. [1285) 

1090 '* Header Editor * [988] 

1100 ... [1285 1 

1110 * [1171 

1120 ' [117] 

1130 CLS:hd=-1:GOSUB 1350:LOCATE#1,1,5:PRI [3761] 

NT#1,"<E>dit <M>enue"; 

1140 aS="":WHILE a$="":a$=INKEYS:KEND:a$=U (79751 


PPERS(a$):IF a$="M" THEN LOCATE#1,1,5:PRIN 
T#1,SPC(56);:GOTO 920 

1150 IF a$<>"E" TUEN 1140 (1441) 

1160 GOSUB 1470:GOSUB 630:GOTO 1090 [21651 


1170 ' [117] 

1180 ' (117) 

1190 .. [12851 

1200 1 * Programm Editor * [995 ] 

1210 [12851 

1220 ' [117] 

1230 ' [117] 


1240 CLS:hd=0:GOSUB 1350 11177] 

1250 LOCATE#1,1,5:PRINT#1,"<E>ditor <M>enu [6727] 
e <"CHR$( 240 )" > <"CHR$(241 ) " > "/'Seite " 

;b; 

1260 a$="":WHILE a$="":a$=INKEY$:WEND:a$=U (7975) 
PPERS(a$):IF a$="M" TH N LOCATE#1,1,5:PP TN 
T#1,SPC(56);:GOTO 920 

1270 IF a$=CHR$(240) THEN IF b>0 THEN b=b- (3579) 
1:CLS:GOSUB 1350 

1280 IF a$=CIIR$ (241) THEN IF b<7 THEN b=b+ [4147] 
1:CLS:GOSUB 1350 

1290 IF a$ > = ”0" AND a$<="7" THEN b=VAL(aS) [5329 1 
:CLS:GOSUB 1350:GOTO 1250 
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1300 IF a$ < >"E" THEN 1250 
1310 GOSUB 1470:G0T0 1200 
1320 ' 

1330 ' 

1340 '****»»******************»«»***** 

1350 '* Dump * 

1360 
1370 ' 

1380 ' 

1390 'hd;Flag fuer Header oder Pgm:b=Seite 
im Block 0-7 

1400 IF hd THEN s=0:p=&4E00 ELSE s=PEEK( he 
+22 )*256+PEEK(he+21)+b*256:p=&5000+b*256 
1410 FOR i=0 TO 255 STEP 16:PRINT"&";HEX$( 
i + s, 4 ); " " ; : FOR t=0 TO 15.-PRINT HEX$ (PEEK 

(p+t+i),2);" ";:IF t=7 THEN PRINT" 

1420 NEXT:PRINT" ";:FOR t=i TO i+15:PRIN 
T CHR$(1 ) CIIR$ (PEEK( t + p) ) ; :NEXT:PRINT:NEXT 


1430 
1 440 
1 450 
1460 
1 470 


RETURN 


Editor 


1480 '********»*********#*******»«**** 


1490 

1500 


1510 x=0:y=0:xx=8:LOCATE 8 , 1:PRINTtfl." <TA 
B > Exit";:CALL &BB81 


a $= 1 " : VJHILE a$= H " :a$=INKEY$:WEND 

IF a$=CHR$(9) THEN RETURN 

IF a$=CHR$(240) TUEN IF y>0 THEN y=y- 

IF a$=CHR$(241) 


Berechnung von XX 


B 

1520 
1530 
1540 
1 

1 550 
+ 1 

1560 IF a$=CHR$(242) THEN IF x>0 THEN x=x- 
1:GOSUB 1650 

1570 IF a$=CHR${243) THEN IF x<31 THEN x=x 
+1:GOSUB 1650 
1580 LOCATE xx,y+1 

1590 IF x >15 THEN GOSUB 1840:GOTO 1520 
E GOSUB 1750:IF NOT fl THEN GOTO 1520 
1600 fl = 0:rr=r:PRINT a$;:VJHILE fl=0:a$=INK 
EY$:GOSUB 1750:WEND:PRINT aS;:r*rr* 16+r:PO 
KE p+( 16*y+x),r:LOCATE x+61,y+1:PRINT CHR$ 
(1 )CHR $(r ); 

1610 IF x < > 15 THEN a$>CHR$(243):GOTO 1570 
ELSE x=0:GOSUB 1650:a$=CHR$(241):GOTO 154 

0 

1620 ' 

1630 1 

1640 '•*••******••****..*..»*..*..*•*, 

1650 
1660 
1670 
1680 
1690 
xx+2 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 ' 

1780 ' 

1790 a$=UPPER$(a$):f1=0:IF (a$>="0" AND aS 
<="9 n ) OR (a$>="A" AND a$<="F") THEN r=VAL 
(+a$):f1=—1 
1800 RETURN 
1810 ' 

1820 ' 

1830 ..*.*.. 

1840 
1850 
1860 
1870 
1880 


[1 435] 
[2321 ] 
[117] 
[117] 
[1 285 ] 
1549] 
(1285 ] 
[117] 
[117] 
[2520] 

[4555] 

[8123 ] 


13776] 


[555 ) 
[117] 
[117] 
(1285] 
1427 ) 
[1 285] 
[117] 
[117] 
[4781 ] 

[2835] 
[1 524 ] 
[1 599 ] 


IF x >1 5 
RETURN 


THEN xx=x+45 


THEN IF y<15 THEN y=y [1223] 

[3051 ] 

[2733 ] 

[1218 ] 
ELS 13707) 

[9838] 


[5876 ] 


[117] 
(117 ] 
[1285 ] 
11241 ] 
[1 285 ] 
(117) 
(117) 
13056] 

(512) 
(555 ] 
[117] 
[117] 
[1285 ] 
(1286) 
(1285) 
(117] 
(117) 
(4469 ] 


IF x<16 THEN xx=3*x+8:IF x>7 THEN 


Editor Input * 


Ascii Input 


IF a$ >CHR$(239 ) OR a$ = "" OR a$<CHR$(3 
2) THEN RETURN 

1890 a=ASC(a$):POKE p+((x-16)+16*y),a:PRIN 
T a$ ; 

1900 1=3 *(x-16)+8:IF (x-16)>7 TUEN 1 = 1+2 
1910 LOCATE l,y+1:PRINT IIEX$(a,2); 

1920 IF x«31 THEN x=x+1 ELSE IF y<15 THEN 

x=16:y=y+1 

1930 GOSUB 1650 

1940 LOCATE xx,y+1 

1950 RETURN 


(555 ] 
[117] 
[117] 
[1285] 
[1963 ] 
[1285 ) 
[117] 
1117] 
[1497 ] 

[2979] 

(1 379 } 
[2500 ] 
[3140 3 

[825 ] 
[1218 j 
(555 ) 


An alle 

Sternenkrieger 

Labyrinthspezialisten 

und 

sonstige Spiele-Fans 


Wer kennt das nicht, nach lan¬ 
gen Stunden intensiven Spie- 
lens ist es gelungen, alle Pro¬ 
bleme zu knacken, und das 
Spiel bis zum Schluß zu mei¬ 
stern. 

Viele andere Spieler waren 
nicht so clever wie Sie und 
hängen irgendwo fest. Eine Si¬ 
tuation, in der man, wie Sie si¬ 
cherlich wissen, nur zu leicht 
verzweifelt. 

Wenn Sie als erfolgreicher 
Spieler uns Ihre Lösungen mit- 
teilen, können wir zusammen 
allen Hilfesuchenden helfen. 

Also, halten Sie Ihre Spieletips 
nicht hinter dem Berg. 


Schreiben Sie uns 

DMV 

Daten & Medien 
Verlaggesellschaft mbH 
Postfach 250 ■ Fuldaer Str. 6 
3440 Esch wege 

z.H. Herrn Stiller 


Wir freuen uns 
schon heute auf Ihren Brief, 
und mit uns 
viele, viele Spiele-Fans. 
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Echtzeit-Uhr selbstgebaut 



Natürlich kann man eine Uhr auch per 
Software realisieren, doch wer will das 
Uhrenprogramm schon ununterbro¬ 
chen laufen lassen, um z.B. für einen 
Terminplaner immer die korrekte Zeit 
zur Verfügung zu haben? Viele Anwen¬ 
der, die ihren Computer vorwiegend für 
Terminplanung und organisatorische 
Aufgaben benutzen, schätzen darum 
sehr den Zugriff auf Echtzeit. 

Besonders interessant wird diese 
Option für CPC 6128-Anwender, weil 
CP/M Plus über einige Funktionen 
verfügt, in denen das Datum und die 
Uhrzeit erforderlich sind (DATE, 


DATE CONTINOUS, INITDIR). 
Weitere Gründe für die Notwendig¬ 
keit einer Echtzeit-Uhr ergeben sich, 
wenn der Computer mit Prozeßsteue¬ 
rungen betraut ist, die zeitabhängig 
arbeiten. Ein Beispiel hierfür wäre 
eine Heizungssteuerung mit Nacht¬ 
absenkung oder z.B. die berühmte 
automatische Fischfütterung im 
Urlaub. Diese und andere Gründe 
mögen den Leser bewegen, sich für die 
hier dargestellte Selbstbauanleitung 
zu interessieren. Bei der folgenden 
Beschreibung wurde nicht nur auf eine 
unkomplizierte Struktur der erforder¬ 
lichen Elektronik Wert gelegt, sondern 


es werden konkrete Hinweise zur oft 
lästigen aber notwendigen Mechanik 
geliefert. Die Bauanleitung schließt 
daher das Thema Gehäusekonstruk¬ 
tion mit ein. Auch hierbei wurde dar¬ 
auf geachtet, den mechanischen Auf¬ 
wand so gering wie möglich zu gestal¬ 
ten. Dennoch soll nicht verschwiegen 
werden, daß der interessierte Nach¬ 
bauer über Grundkenntnisse der not¬ 
wendigen Arbeitstechniken verfügen 
muß (zumindest löten und feilen). 
Doch nun zur Sache, zunächst in Form 
von Highlights zu der Bastelei. 

- Funktionen der Uhr: 

Uhrzeit in Stunden, Minuten und 
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Sekunden, 

Datum in Tag, Monat und Jahr, so¬ 
wie Wochentag. 

Uhrzeit kann dabei im landesübli¬ 
chen 24-Std.-Modus ausgegeben 
werden. 

- Automatische Schaltjahrkorrektur. 

- Versorgung der Uhr über eingebau¬ 
ten Akku bei ausgeschaltetem Com¬ 
puter (Gangreserve 3 Monate). 

- Automatisches Nachladen des Akkus 
bei eingeschaltetem Computer (La¬ 
dezeit für völlig entleerten Akku: 14 
Std.). 

- Passende Adapter für alle Schnei- 
der-CPC-Computer. 


Tabelle 1 


Position der 

Drahtbrücke I/O-Adressen des Uhren-Moduls 

A 

FBE2 

für Adressregister 


FBE3 

für Datenregister 

B 

FBE6 

für Adressregister 


FBE7 

für Datenregister 

C 

FBEA 

für Adressregister 


FBEB 

für Datenregister 

D 

FBFE 

für Adressregister 


FBEF 

für Datenregister 

E 

FBF2 

für Adressregister 


FBF3 

für Datenregister 

F 

FBF6 

für Adressregister 


FBF7 

für Datenregister 

G 

FBFA 

für Adressregister 


FBFB 

für Datenregister 

H 

FBFE 

für Adressregister 


FBFF 

für Datenregister 


Tabelle 1: Auswahl der I/O-Adressen 
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Bild 1: Der Schaltplan der Uhr 


- Installation des Moduls am Erwei¬ 
terungsstecker ohne Eingriff in den 
Computer. 

- Einfache Programmierung der Uhr, 
sogar aus dem BASIC-Direct-Com- 
mand-Mode. 

- Die Uhr läuft auch fehlerfrei weiter, 
wenn sie vollständig vom Computer 
getrennt wird. 

- Geringe Größe (100*50*25 mm). 

- Niedriger Preis (im Selbstbau unter 
DM 100,-). 


Schaltungsbeschreibung 


Im Schaltplan nach Bild 1 ist die ge¬ 
samte Elektronik des Uhrenzusatzes 
dargestellt. Kernstück des Ganzen ist 
ein integrierter Schaltkreis des japa- 


nischen Herstellers Suwa Seikosha, 
nämlich RTC-58321 Real Time Clock iüHü! 
Module. Dieser IC (im Schaltplan IC 1) 'In 1 ' 11 
beinhaltet alles, was die vorstehenden 
Highlights zur Uhrenfunktion aus¬ 
macht. Der IC ist für eine direkte 
Kommunikation mit einem Mikro¬ 
prozessorvorgesehen, und kann sich 
bei Ausfall der Versorgungsspannung 
"einigeln”, d.h., die Zeit läuft intern 
weiter, während die Ein- und Aus¬ 
gänge zum angeschlossenen Mikro¬ 
prozessor abgetrennt werden. Einziges 
Erfordernis ist eine Notstromversor- ;;ip 
gung. Zu diesem Zweck ist Batt. 1 vor- p'll 
handen. Das Netzwerk ausT1,T2, CI, '|C! 
RI, R2, R3 und R4 schaltet dabei zwi- p'j 
sehen Notstrom und Computerstrom i "U" 
um, und veranlaßt das Nachladen 'ij'jjljj 
von Battl, wenn der Computer 
eingeschaltet ist Die Verbindung zum 
Computer stellen die IC’s IC2, IC3, ;ü;;jj: 
IC4 und IC5 dar. Mit ihrer Hilfe er- jjHiül 
folgt das Decodieren eines zulässigen C"i 
Ein-/Ausgabe-Adressbereichs. Zu die- P'll 
sem Schaltungsteil gehört auch das 
Feld für Lötbrükken. Durch wahlwei- In!;, 
ses Setzen des Jumpers (Jl) kann der ,;!!!!!! 
Benutzer zwischen acht verschiede- |j|l!!|| 
nen Basisadressen für den Uhrenzu¬ 
satz wählen. Diese Wahlmöglichkeit 
ist nützlich, wenn man zusätzliche [jP 1 
Peripherie an seinem Computer be- „£!! 
treibt und deshalb eventuell eine ll' 11 '!! 
Doppelbelegung von E/A-Adressen üpj 
umgangen werden muß. Das Layout ]"!;"! 
der Platine kann so ausgelegt werden, 
daß anstelle der Drahtbrücke als Jum¬ 
per ein Achtfach-DIL-Schalter einge¬ 
setzt werden kann. Die Zuordnung 
von Jumper-Position und selektier- imüii 
tem Adressbereich ist Tabelle 1 zu jj|P 
entnehmen. ||<||i| 

Was "Adressregister” und "Datenre- 
gister in Tabelle 1 bedeuten, wird im ;j|üii 
Software-Teil dieser Bauanleitung de- üliül 1 
tailliert beschrieben. 

Besonders erwähnenswert ist auch !!„;.! 
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noch der Steckverbinder, über den die 
Uhr mit dem Computer verbunden 
wird. Die gewählte Bauform des Stek- 
kers gestattet den Anschluß der Uhr an 
alle CPC’s, indem auf diesen Stecker 
wahlweise ein Adapter für die 464/664, 
bzw. 6128 Expansion-Connectors auf¬ 
gesetzt werden kann. 


Das Handwerkliche 


Wer dem Vorschlag des Autors bezüg¬ 
lich des verwendeten Gehäuses folgen 
will, kann der Maßskizze nach Bild 2 
entnehmen, wie groß die verwendete 
Platine werden darf, welche Ausspa¬ 
rungen zu berücksichtigen sind und 
an welcher Stelle Bohrungen für die 
Befestigungsschrauben vorzusehen 
sind. Der Autor hat sich vorher davon 
überzeugt, daß die Elektronik auf der 
verbleibenden Fläche Platz findet, 
auch wenn man die Uhr auf einer 
Experimentierplatine aufbaut. 

Eine freie Verdrahtung auf 
einer Experimentierplatine erfüllt 
durchaus die notwendigen Vorausset¬ 
zungen zum einwandfreien Funktio¬ 
nieren der Uhr, wie der Prototyp des 
Autors beweist. Die Experimentier¬ 
version läuft seit mehr als einem hal¬ 
ben Jahr ohne Beanstandung, obwohl 
sie zu Demonstrationszwecken schon 
häufig herumgereicht (verliehen) und 
an unterschiedlichen CPC's betrie¬ 
ben wurde. 

Einzige Besonderheit bei der Montage 
der Bauteile ist der Akku. Die Bauhöhe 
des Akkus erfordert, daß er gewisser¬ 
maßen halb in die Platinenebene ab¬ 
gesenkt werden muß. Aus diesem 
Grunde weist die Platine den Aus¬ 
schnitt auf, der am rechten Rand der 
Maßzeichnung nach Bild 2 zu sehen 
ist. Auch die Position des Steckers 
muß entsprechend der im Bild 2 dar¬ 
gestellten Bemaßung gewählt werden, 
wenn die Platine in das vorgeschla¬ 
gene Gehäuse passen soll. Als Alter¬ 
native für alle Freunde großer Verar¬ 
beitungsqualität ist eine gedruckte 
Schaltung gemäß Bild 2 denkbar. Auf 
Anfrage ist beim Verlag die Quelle für 
diese Platine zu erhalten. 

Besondere Aufmerksamkeit wurde 
bei dieser Bastelei dem Gehäuse ge¬ 
schenkt. Einem selbstgebauten Zusatz 
muß ja nicht unbedingt anzusehen 
sein, daß hier "die Axt im Haus" den 
Zimmermann erspart hat. 
Hochwertige Elektronik gehört nun 
einmal nicht in eine Seifendose oder 
in Opas letzte Zigarren-Holzkiste. Es 
sind genügend Industriegehäuse im 
Handel, die ein ansprechendes Design 
besitzen, einfach zu beschaffen und 
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Gehäuse erfahren muß. Zu diesem 
Zweck eignet sich eine Laubsäge mit 
Sägeblatt für Metallbearbeitung. Die 


Bild 2: Layoutvorschlag der Platine 

preiswert sind. Die Daten des verwen¬ 
deten Gehäuses sind, wie alle anderen 
wichtigen Daten zu den Bauteilen, der 
Tabelle 2 entnehmen. 


Gehäusemechanik 


Der Illustration nach Bild 4 ist zu ent¬ 
nehmen, wie das Gehäuse-Oberteil 
mechanisch bearbeitet werden muß. 
damit der Steckadapter für den Com¬ 
puteranschluß hineinpaßt. Das Aus¬ 
sparen des Gehäusedeckels ist dann 
auch die einzige Veränderung, die das 



Bild 4: So wird der Schlitz im Gehäuse 
angebracht 


Stückliste für das Uhren-Modul 

Bau«ei!-Nr. Bezeichnung 

Beschreibung 

IC 1 

8-Kanal Demultiplexer 

SN74LSI38 (Texas Instruments) 

ic: 

vierfach NOR 

SN74LS02 (Texas Instruments) 

IC 3 

NAND 

SN74LSI33 (Texas Instruments) 

IC 4 

vierfach AND 

SN74LS08 (Texas Instruments) 

IC 5 

Uhr/Kalender 

RTC-58321 (Suwa Seikosha) 

R 1 

Widerstand 

100 Ohm. 0.25 W 

R 2 

Widerstand 

lt) kOhm. 0.125 W 

R 3 

Widerstand 

51 kOhm. 0.125 W 

R 4 

Widerstand 

11) kOhm. 0.125 W 

T 1 

Transistor 

2N2907 

T 2 

Transistor 

2N2222 (Texas Instruments) 

C I 

Tantal-Kondensator 

4.7 uF. 10V 

C 2 

Tantal-Kondensator 

22 uF. 25V 

C 3 

Abblock-Kondensator 

0.1 uF bipolar 

Bau. 1 

NiCd-Akkumulalor 

3.6 V 3/100 DKO (Varia) 

X 1 

Stiftstecker 

(lach, offen. 50-polig (z.B. Specdy 

ohne 

Federleiste 

G08 ITT-Cannon) 

für Stiftstecker X 1. 50-polig (z.B. 

ohne 

Flachkabel 

Speedy G8t) FIT-Cannon) 

50-polig. Raster 1.27mm Länge ca. 

oh ne 

Gehäuse 

50 mm 

Flachgehäuse Normalausführung 

ohne 

Platine 

100x50x25 mm (z.B. OKW Best. Nr. 

0010087 o. BOPLA Best.Nr. 

05410000) 

gedruckte Schaltung oder Experi- 

ohne 

2 Stck. Schrauben 

mentierplafinc (Maße wie in Bild 2) 
Linsenblechschraube 2.9x6.5 mm 

ohne 

nur CPC 6128! 

Flachkabel-Stecker 

mit Kreuzschlit/ DIN 7981 (zur Be¬ 
festigung der Platine) 

Delta-Ribbon 50-polig. verriegelbar 

ohne 

nur CPC 464/CPC 664 ! 
Flachkabel-Stecker 

(z.B. Scotch Ilex 3M) 

Steckkarten-Verbinder. Raster 

2.54 mm. 50-polig. ohne Hansell 
(z.B. Specdy G03 ITT-Cannon) 

Tabelle 2: Stückliste für das Uhren-Modul 
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Kontur des Ausschnitts wird damit 
grob vorgearbeitet. Danach kann man 
mit einer kleinen Feile die "Wogen” 
glätten, sowie die Ecken ausarbeiten. 
Etwas Sorgfalt sollte man bei dieser 
Arbeit walten lassen, weil ihre Ausfüh¬ 
rung sichtbar bleibt. Korrekte Aus¬ 
führung dieser Arbeit, sowie korrektes 
Positionieren des Steckers auf der 
Uhrenplatine hat zur Folge, daß das 
geschlossene Gehäuse relativ staub¬ 
dicht bleibt und daß der aufgesteckte 
Adapter eine mechanische Zugent¬ 
lastung erhält. 

Hält man sich an die Bemaßung der 
Platine, dann paßt sie ohne Probleme 
in die untere Gehäuseschale und kann 
hier mit zwei M3-Schrauben fixiert 
werden. Die obere Gehäuseschale wird 
von unten zugeschraubt, nachdem sie 
von oben aufgesetzt wurde (siehe Bild 
5). Eine Belüftung des Gehäuses ist 
auch bei Dauerbetrieb nicht erforder¬ 
lich, weil die Verlustleistung der Zu¬ 
satz-Hardware minimal ist. 



Bild 5: Der Zusammenbau des 
Gehäuses 


Die Adapter 


In Bild 6 sind die beiden Adapter dar¬ 
gestellt, mit denen die Uhr an den 
Computer angeschlossen wird. Die 
Bauteileliste (Tabelle 2) gibt Aufschluß 
darüber, welche Bauteile zu den un¬ 
terschiedlichen Versionen für CPC 
464/664 und CPC 6128 erforderlich 
sind. Die Adapterkabel sind in 
Quetschtechnik gefertigt. Beim Quet¬ 
schen ist darauf zu achten, daß die 
Lage der Stecker auf dem Kabel, sowie 
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die Orientierung der Stecker korrekt 
sind. Bild 6 gibt Hinweise zur richti¬ 
gen Montage der Quetschstecker. 



Bild 6: Steckerauswahlfür464/664/6128 


Der weiche Part 


Der Hardware-Teil ist relativ unpro¬ 
blematisch. wenn man sich vergegen¬ 
wärtigt daß keinerlei Angleicharbeiten 
anfallen. Der Hersteller des Uhren¬ 
bausteins hat werkseitig dafür gesorgt 
daß der Uhrenoszillator auf der rich¬ 
tigen Frequenz arbeitet um die Lang¬ 
zeitgenauigkeit zu erreichen, die wir 
von Seiko-Uhren gewohnt sind. Der 
Rest ist Digitaltechnik konventionell¬ 
ster All Ein wenig Arbeit bleibt jedoch 
bei der softwaremäßigen Installation 
der Uhr. Den CP/M Plus-Anwendern 
sei an dieser Stelle gesagt daß der vor¬ 
liegende Artikel noch keine Betriebs¬ 
system-Modifikation zum Ersatz der 
"alten” Uhrenroutinen des CP/M Plus 
enthält. Der Autor ist jedoch dabei, 
diese Option vorzubereiten, um sie zum 
Gegenstand eines speziellen Beitrags 
zu machen. Im folgenden Teil des 
Artikels ist eine Lösung dargestellt, 
um die Uhr unter Basic zu betreiben. 
Es sind zwei Möglichkeiten notwen¬ 
dig, nämlich das Stellen der Uhr und 
das Auslesen. Das Grundprinzip zum 
Lesen und Schreiben ist gleich. Als 
erstes muß das Adressregister der Uhr 
mit der Adresse des internen Zähler¬ 
registers adressiert werden, danach 
kann dieses interne Zählerregister ge¬ 
lesen oder beschrieben werden. 

» 


Auslesen der Uhr 


Um die Uhr schnell und sicher auszu¬ 
lesen, ist eine kurze Maschinenroutine 
erforderlich, die als DATA-Zeilen im 
Listing 1 steht. 

Sie ist für eine Basisadresse von 
&FBE2 geschrieben. Sollte es notwen¬ 
dig sein, eine andere Adresse zu wäh¬ 
len, so ist unter Berücksichtigung von 


Tabelle 1 lediglich ein Eintrag aus lllllli. 
zwei Bytes in der DATA-Zeile 590 des ;;|||;|! 
Basic-Listings anzupassen. Es ist die "ml! 
Stelle, die in der Z80-Assemblerzeile 'Ijl 
37 die Basisadresse der Uhr bestimmt. 

In DATA-Zeile 590 sind es die Positio¬ 
nen 6 und 7. Bitte beachten Sie, daß 
die Basisadresse mit dem LSB beginnt !!!"!," 
(E2,FB anstatt FB,E2)! Aus dem Z80- Jj/ji 
Listing ist ebenfalls entnehmbar, auf mm!! 
welche absolute Adresse im Basic- müll, 
Programm die Ergebnisse der Ausle- iD' 
seroutine geschrieben werden. Die 'l' 11 ' 1 ' 
Zeilen 65 bis 77 im Z80-Listing stellen 

den Zusammenhang zwischen Be- .|| 

deutung des Uhrenregisters und der 
RAM-Adresse dar. So erhält man z.B. i| |f n, 
bei einem PEEK von &A53E die iip, 
Zehnerstelle des Monatszählers oder „,m|| 
bei einem PEEK von &A548 den Se- ;|||j;|i 
kunden-Einer, nachdem man mit "!!!!" 
CALL &A500 das Leseprogramm ge- 
startet hat Man kann die Uhrenregister H/i 1 
natürlich auch direkt über die Basic- 
Befehle INP und OUT beeinflussen, 
um an die gewünschte Information zu 
gelangen. Jedoch hat die Uhr einige 
Tücken, die an geeigneter Stelle in 
einem weiteren Beitrag erläutert wer¬ 
den sollen. 

Zunächst soll der Hinweis genügen, 
daß die abgedruckte Basic-Routine ein 
korrektes Lesen der Uhr garantiert. 


Stellen der Uhr 


ijiuih 

f| HIHI 

Die Umkehrung des Auslesens ist das i|/i! 
Beschreiben der Uhrenregister. Wenn 
man bedenkt, daß es nur einmal er- 
forderlich ist, die Uhr zu stellen, so- iüilj!: 
fern kein technischer Defekt das JjiÜÜi 
Wechseln des Akkus erforderlich C" 
macht, und daß man nur zweimal pro !!!!!!j! 
Jahr die Uhrzeit um jeweils eine Stun- jül! j 
de verändern muß, wenn man eine ( liill, 
Sommerzeit-Anpassung wünscht, ist iiiiljj! 
eine Luxus-Schreibroutine für die Uhr ü3'i|! 
recht überflüssig. Von dieser Überle¬ 
gung ausgehend soll hier eine Metho¬ 
de vorgestellt werden, mit der man die !!j|[|| 
Uhr im Direct-Command-Mode ein- Jim 
stellen kann. Dazu ist es erforderlich, U!üJ 
einige Informationen zu den Uhren- üüüjj 
registern zu liefern. Ijjjj"' 


il.il'li 


Die internen Register der Uhr: iiji'ii 
1. Das Adressregister 33 ! 

---— ll'H'll 

ii""" 

In Tabelle 1 dieses Beitrags wurden '"||]|j 
die möglichen Basisadressen des |jj|j|! 
Uhrenmoduls vorgestellt. Hier taucht inilll' 
erstmals der Begriff "Adressregister" """II 
auf. Dieses Register ist nur beschreib- ü!!|! j 
-.-.-- imilli 
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jj'jjj 1 bar (write only). In diesem Register 

].!|||; vermerkt man, mit welchem Zähler- 
||;;;;; register der Uhr man Daten austau- 
111111 sehen will. Wenn man das Adressre- 
'i||;|j gister beschrieben hat, gilt die Adresse, 
die man dort eingetragen hat, für alle 
weiteren Lese- oder Schreiboperatio- 
|j ll ll [| nen auf das Datenregister der Uhr, 
, j!!!„ d.h., ein Zählerregister wird über das 
m!!!!! Adressregister ständig selektiert, bis 
!!"!"' man den Inhalt des Adressregisters 
imiimi ändert Doch was sind Zählerregister? 

niiiill 


J; 1 !!! 2. Die Zählerregister 

iiiIIiii _ 

%||I* 

iiiiiiii 

jjllllll Vergegenwärtigen Sie sich, daß eine 
Uhr im Prinzip nur aus einer Anein- 
l|| l|;! 1 anderreihung von Zählern besteht, die 
|jjj h J sich ihre Überträge "intelligent” wei- 
terreichen. Der Sekunden-Einer-Zäh- 
II""" 1er z.B. zählt immer von 0 bis 9 und 
gibt dann einen Impuls auf den Se- 
kunden-Zehner-Zähler, der wiederum 
einen Übertrag auf den Minuten- 
Einer-Zähler liefert, wenn er bis 5 
gezählt hat. Komplizierter werden die 
Überträge bei den Tageszählern, weil 
ihr maximaler Zählerstand vom Mo¬ 
natszähler abhängt (es gibt nun mal 
keinen 31. Februar). Der Februar ist 
für alle Uhren mit Datumsanzeige ein 
ii.ii'l, richtiger Breaker, weil hier auch noch 
:!"!! ] berücksichtigt werden muß, ob Schalt- 
jahr ist oder nicht. Der langen Schrei- 
berei Sinnlosigkeit ist, daß man auf 
ll'Jjljj alle diese Zähler im Innern der Uhr 
jljlJll zugreifen kann, indem man sie über 
das mittlerweile bekannte Adressre- 
gister adressiert und dann über das 
,!]!!:!, Datenregister Daten einschreibt oder 
ül!!|; ausliest. In der Tabelle 3 ist aufgeli- 
j!!ü| ( stet, welchen Wert man in das Adress- 
l|!!!;i; register schreiben muß, um mit wel- 
IlIij! ehern Zählerregister "sprechen” zu 
können. 

miiir 



Die Besonderheiten 


Hinweis 1 (zum Stunden-Zehner Zähl¬ 
register) 

Ein Stunden-Zehner braucht nur die 
Werte 0,1,2 annehmen zu können, weil 
es nunmal nicht mehr als 24 Stunden 
pro Tag gibt. Als Zählerregister reichen 
demnach 2 Bit. Dieser Zähler ist je¬ 
doch 4 Bit breit. Diese Bits haben fol¬ 
gende Bedeutung: 

Bit 0 und Bit 1: 
enthalten den Zählerstand. 

Bit 3=0: 

Stunden werden im 12 Stunden- 
Rhythmus ausgegeben. 

Bit 3=1: 

Stunden werden im 24 Stunden- 
Rhythmus ausgegeben (landesüblich). 

Bit 2: 

immer 0, wenn Uhr im 24 Stunden- 
Rhythmus arbeitet. 

Bit 2=0: 

vormittags, wenn im 12 Stunden- 
Rhythmus 

Bit 2=1: 

nachmittags, wenn im 12 Stunden- 
Rhythmus. 


Hinweis 2 (zum Wochentag-Zählregister) 

Der Wochentag-Zähler läuft modulo 7 
(immer von 0 bis 6). Es bleibt Ihnen 
persönlich überlassen, welchem Zäh¬ 
lerstand Sie welchen Wochentag zu¬ 
ordnen. Im Beispielprogramm nach 
Listing 1 wurde der Zählerstand 0 dem 
Montag zugeordnet. Sie müssen beim 
Stellen dieses Registers nur dafür sor¬ 
gen, daß Sie den Wert ein schreiben, 
der Ihrer Wochentag-Zuordnung für 
den konkreten Wochentag entspricht 
(logisch). 


miMii 
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ii.iiiii 
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Tabelle 3 




Inhalt des 

selektiertes 



Adressregisters 

Zählerregister 

Zählbereich 

Besonderheiten 

0 

Sekunden-Einer 

0 bis 9 

keine 

1 

Sekunden-Zehner 

0 bis 5 

keine 

2 

Minuten-Einer 

0 bis 9 

keine 

3 

Minuten-Zehner 

0 bis 5 

keine 

4 

Stunden-Einer 

0 bis 9 

keine 

5 

Stunden-Zehner 

siehe Hinweis 

1 siehe Hinweis 1 

6 

Wochentag 

0 bis 6 

siehe Hinweis 2 

7 

Tage-Einer 

0 bis 9 

keine 

8 

Tage-Zehner 

0 bis 3 

siehe Hinweis 3 

9 

Monate-Einer 

0 bis 9 

keine 

A 

Monate-Zehner 

0 bis 1 

keine 

B 

Jahre-Einer 

Obis 9 

keine 

C 

Jahre-Zehncr 

0 bis 9 

keine 


D bis F selektiert verschiedene Konirollfunktionen, die in dieser 

Applikation von untergeordneter Bedeutung sind 


Tabelle 3: Anwahl der Zählerregister 


Hinweis 3 (zum Tage-Zehner Zählre¬ 
gister) 

In diesem Register wird festgelegt, in 
welchem Schaltjahres-Modus die Uhr 
laufen soll. 

Bit 0 und bit 1: 

enthalten den Zählerstand. 

Bit 3: 

muß 0 sein 

Bit 2=0: 

Schaltjahr-Korrektur nach Gregori¬ 
anischem Kalender 

Bit 2=1: 

Schaltjahr-Korrektur nach Showa 
Kalender 

Mit diesem Rüstzeug ist es Ihnen nun 
möglich, Ihrer Uhr den richtigen Zeit¬ 
geist einzuhauchen. Damit Sie nach 
all den verwirrenden Beschreibungen 
jedoch nicht völlig hilflos sind, ist im 
folgenden Abschnitt ein Beispiel auf¬ 
gezeigt. 

Praktisches Beispiel zum Stellen der 
Uhr. 

Erster Schritt: 

Geben Sie das Leseprogramm für die 
Uhr gemäß Listing 1 ein und machen 
Sie sich eine Sicherungskopie auf 
Diskette oder Kassette. 

Starten Sie das Programm. Ihre Uhr 
wird ein Datum und eine Uhrzeit an- 
zeigen, die möglicherweise völlig aus 
dem bekannten Rahmen fällt. Auf je¬ 
den Fall sollte jedoch der Sekunden- 
Zähler brav seine Runden machen. 
Es kommt nun darauf an, die Uhr 
Stück für Stück in den richtigen Trab 
zu bringen. Gehen wir davon aus, daß 
Sie Ihre Adress-Selektion über Jum¬ 
per A vornehmen, d.h. I/O-Adresse 
FBE2 zeigt auf das Adressregister 
und I/O-Adresse FBE3 auf das 
Datenregister. 

Stoppen Sie das Programm (mit 
ESC). Als erstes soll die Jahreszahl 
korrekt eingestellt werden. Der 
Jahres-Zehner muß (zum Erschei¬ 
nungszeitpunkt dieses Artikels) auf 8 
zeigen. Um das zu erreichen, muß 
zunächst eben dieser Zähler zum Be¬ 
schreiben vorbereitet werden. Man 
erreicht diesen Zähler, indem man in 
das Adressregister der Uhr den Wert 
C (hexadezimal) einschreibt und das 
geht so: 

OUT &FBE2,<&C (Return) 

Damit ist der Jahres-Zehner scharf. 
Nun muß er mit einer 8 beschrieben 
werden, nämlich wie folgt: 

OUT &FBE3,8 (Return) 

Machen wir gleich den Jahres-Einer 
hinterdrein: 

OUT &FBE2,&B 
OUT &FBE3,6 

Wenn Sie nun Ihr Leseprogramm er- 
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neut starten, sollten Sie zu Ihrer 

Freude feststellen, daß die Jahreszahl 
richtig gestellt ist. In entsprechender 
Manier verfahren Sie bitte mit allen 
anderen Registern, wobei Sie die Hin¬ 
weise zu Schaltjahr-Korrektur und 
12/24 Stunden-Darstellung berücksich¬ 
tigen wollen. 


Wenn Sie Freude an Ihrem Uhren- 
Modul finden, können Sie sich selbst¬ 
verständlich eine elegante Uhren- 
Stell-Routine schreiben. Der Verlag 
ist sicherlich an der Veröffentlichung 
interessiert. Desgleichen sind nun 
fantasiebegabte Programmierer gefor¬ 
dert, die Uhr in nützliche Programme 


einzubinden. IIIÜli. 

Termin-Planer, Statusanzeigen, gra- p*"j! 
fische Aufbereitung als "Analoguhr” ,!"!!!! 
mit Zifferblatt und Zeigern (und viel- 'IH 1 ''' 
leicht auch Pendel) sind einige Anre- jj2 
gungen, die der Autor beizusteuem 
hat. Wir sind alle gespannt auf Ihre 
Ideen! (Dipl.-Ing. H. Bruhns/ME) ||"2 


10 d$(0)="MONTAG, " 

20 d$(1 )="DIENSTAG, " 

30 d$(2)="MITTWOCH, " 

40 d$(3)="D0NNERSTAG, " 

50 d$(4)="FREITAG, " 

60 d$(5)="SAMSTAG, " 

70 d$(6)="SONNTAG, " 

80 MODE 1 
90 RI=£X1100110 
100 R2 = &X0 
110 R3=&X11 001 10 
120 R4=&X1100110 
130 R5=&X1100110 
140 R6=&X1100110 
150 R7=&X111100 
160 R8=&X0 

170 SYMBOL 240,RI,R2,R3,R4,R5,R6,R7,R8 
180 MEMORY SA4FF 
190 GOSU3 490 
200 CALL &A500 

210 PRINT " BEISPIELPROGRAMM F"+CIIR 

S( 240) + "R DAS" 

220 PRINT " ECHTZEIT-KALENDER/UHRENMO 

DUL" 

230 PRINT 

240 PRINT " RCC 8509" 

250 LOCATE 3,11 
260 CALL &A500 
270 t=PEEK(&A542) 

280 PRINT dS(t); 

290 PRINT USIMG " ;PEEK(&A540); 

300 PRINT USING "//" ; PEEK( &A541 ) ; 

310 PRINT 


(922 1 

320 

PRINT 

USING 


;PEEK(&A53E); 

[1700 ] 

llllllll 

[1012] 

330 

PRINT 

US ING 

fr 

;PEEK{&A53F) ; 

[1696 I 

[1022 ] 

340 

PRINT 

n H . 



[665] 

üuil!l 

[1361 ] 

350 

PRINT 

USING 

"//' 

;PEEK(&A53C) ; 

[1676 1 

[342 ] 

360 

PRINT 

USING 


;PEEK(&A53D) ; 

[1704 ] 

[1 646 ] 

370 

PRINT 

ii 

' 

f 

[612 ) 

[91 6 J 

380 

PRINT 

USING 


; PEEK(SA543); 

[1683 1 


[506 ] 

390 

PRINT 

USING 

" r 

;PEEK(&A54 4 ); 

[1 695 ] 

III11111 

[863 ] 

400 

PRINT 

": "; 



[521 ] 

(91 1 

410 

PRINT 

USING 


;PEEK(&A545); 

[1 675 ] 

llllllll 

'"IUI' 

'llll'll 

[732 ] 

420 

PRINT 

USING 


;PEEK(&A546); 

[1655 1 

1333 1 

430 

PRINT 

ii. n 


1521 ] 

[484 ] 

440 

PRINT 

USING 


;PEEK(&A54 7); 

[1699 ] 

[720 ] 

450 

PRINT 

USING 


; PEEK(&A540 ); 

[1 520 ] 

Ulllljl 

[4141 

460 

LOCATE 3,11 



[709] 

so 

llllllll 

[31 3 ] 

470 

GOTO 260 



(41 7 ] 

[2382 ] 

480 

END 




[110] 

1111 im 
Illl , "l 

[463 1 

490 

' LOADER 



[949 1 

(883 1 

500 

RESTORE 



[621 1 

i|,A 

(61 7 ] 

510 

FOR 1 = 

&A500 

TO 

&A53B 

[777 ] 



[23081 520 READ H$ 

530 H=VAL{"+H$) 

[25261 540 POKE I,H 

550 NEXT I 
[3611 560 RETURN 

[1129] 570 'GETDATIM 

[709 J 580 DATA 11 ,3C,A5,21 ,2F,A5,06,0D,CD,12,A5, 

[6171 A6,12,23,13,10,F7,C9 'MAIN 

[618] 590 DATA 78,D5,C5,5F,01 ,E2,FB,7B,3D,ED,79, 

[6481 03,ED,78,57,7B,3D,0B,ED,79,03,ED,78,BA,20, 

[1 679 1 EA,C1,D1,C9 ' SAVEX 

(13401 600 DATA 0F,0F,1,0F,3,0F,7,3,OF,7,0F,7,0h 

[665] ’MASK 


[4951 
[1030 J 
[1 50 ] 
[375] 
1555] 
[818 ] 
[2639] 

[60551 


12135] 


Dis-K-Patcher V 3.0 

Programmbeschreibung 




nicht nur geprüft, ob der Eintrag noch in der Directory 'KZ 
steht, sondern auch, ob die Sektoren bzw. Blöcke dieses zu jj'ji'jj 
rettenden Programms nicht schon von einem anderen 
Programm belegt werden. Wäre dies nämlich der Fall, so jj'j]!j| 
wäre eine Rettung unmöglich. 


Read Sector: 

Lesen eines beliebigen Sektors von Diskette. Dieser Sektor 
kann nach dem Einlesen direkt mit dem Full-Screen- 
Editor bearbeitet werden. Dabei kann zwischen ASCII- 
Eingabe oder Hexadezimaler-Eingabe gewählt werden. 

Write Sector: 

Ein gerade eingelesener und überarbeiteter Sektor wird 
wieder zurück auf Diskette geschrieben. 

Searching for Data: 

Dieser Befehl kann angewendet werden, um auf der 
Diskette nach irgend einem Text zu suchen. Die maximale 
Textlänge beträgt 20 Zeichen. Wird der Text gefunden, so 
wird sofort in den Full-Screen-Editor (siehe 'Read 
Sector’) verzweigt. 

Wipe Disk: 

"Säubert" die Diskette. Dabei wird die gesamte Diskette, 
gelöscht. Nach Ausführung hat die Diskette genau den 
gleichen Zustand wie nach dem Formatieren (alle Bytes 
sind mit &e5 belegt). 

Unerase Files: 

Dies ermöglicht, gelöschte Files zu "retten’’. Dabei wird 


Information: 

Gibt alle wichtigen Daten über ein File auf der Diskette 
z.B. Name, Typ, Startadresse etc. auf dem Bildschirm aus. 
Diese Informationen können direkt nach Belieben verän¬ 
dert werden. Besonders interessant dabei ist die Möglich¬ 
keit, ein File zu verstecken (Hidden) oder gegen Uber¬ 
schreiben zu schützen (Read Only). Dabei muß einfach 
bei "Hidden” bzw. "Read Only” die Zahl 1 eingetragen 
werden, dann ist dieser File versteckt bzw. geschützt. Bei 
eintragen von der Zahl 0 wird dieser Zustand wieder 
aufgehoben. 

Print Information: 

Gibt die wichtigen Daten aller Files auf dem Drucker 
aus. 



""' 11 ' 


llllllll 

.1111111 

nun 

"nun 



""'II' 


. . 

,1111111 
llIIIII 
IIIUI ' 
11111111 



Sort Dir: .. 

Dadurch kann das Directory, also das Inhaltsverzeichnis 
der Diskette, sortiert werden. Besonders interessant ist dies Ij/ 1 ' 
für jene User, die oft unter CP/M arbeiten, da es dort näm- 22 
lieh einen solch komfortablen Befehl wie CAT, der gleich iN'll 
alle Einträge sortiert auf den Bildschirm bringt, nicht gibt. j|2! 
Weiter bringt dies auch einen Vorteil für jene, die unter "ipui 
Basic öfter mit dem IDIR-Befehl arbeiten, da dieser Be- 'jj2 
fehl durch die Möglichkeit mit Wildcards zu arbeiten, im 
Prinzip wesentlich leistungsfähiger als der CAT-Befehl """11 
kf ll'iril 
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jjjjjjj Pack Disk: 

jjjlljj 

Dieser Befehl bewirkt folgendes: 

II"" 1 

ilüH!! 

'l|[J||; 1. Das Directory wird sortiert (nach den Namen). 

2. Einträge von gelöschten Files in der Directory werden 

„ endgültig gelöscht. 

Mil 1 II 

<1 "l 1 

iijilln 3. Die Blockverteilung jeden Programms wird optimiert, 
in!!!!! Dies bringt eine erhebliche Verkürzung der Ladezeiten 
jl'j"' und Ordnung auf der Diskette. Dieser Vorgang darf 
nicht abgebrochen werden. Hat man also einmal "Pack 
""" il Disk" angewählt, so muß man warten, bis der Computer 
fertig ist. Ein gewaltsamer Abbruch, z.B. durch "ESC" 
•l.ii'li oder einen Reset, hat einen vollkommenen Verlust des 

jj'll'j! Disketteninhalts zur Folge. 

.. 

IHM III 

]j"H" 4. Der verbleibende Teil der Diskette wird gesäubert (siehe 
"Wipe Disk”)! 


Block Partition: 

Zeigt an, wie die Diskette physisch belegt ist, also welche 
Blöcke der Diskette mit Daten belegt sind. 

Backup: 

Zieht eine Sicherheitskopie der eingelegten Diskette auf 
Band. 

Restore: 

Eine mit "Backup" erstellte Sicherheitskopie wird wieder 
auf Diskette zurückgeschrieben. Dabei ist zu beachten, 
daß der gesamte Inhalt der eingelegten Diskette über¬ 
schrieben wird. 

Alles weitere Wichtige, was man während des Programm¬ 
laufs wissen sollte, wird immer im rechten Fenster 
"EDITOR" eingeblendet. 

Ich wünsche Ihnen nun viel Spaß und Erfolg mit dem Dis- 
K-Patcher. (Stefan R. Mayer) 


U'li 


100 CLEAR:GOSUB 8000 


[830] 


2200 REM "— Format der Disk ermitteln - [2278] 


'llll 

IIIIII | 
MIHI 

iiiiiiI 


mim 

liiiJI 

mumm 


■i/li 


nun 

iiiiuii 


'niii 
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Muni 

lüliii 


102 GOSUB 4900 
1000 GOSUB 3200 

1007 GOSUB 3000 

1008 GOSUB 4900 

1009 brokenflag%=false%:nobreak%=true% 

1010 tast$=UPPER$(INKEY$):IF tast$="" TUEN 
1010 

1015 IF tast$=ubreak$ THEN MODE 2:PRINT me 
ssage$;", active for";INT((TIME-active 
)/3 00);"second s":PRINT:CLEAR:END 
1020 cur%=INSTR("RWSEUIDPTLAO",tast$):IF c 
ur%=0 THEN 1010 

1025 1%=LEN(cur$(cur%)):help=INT((50-1%)/2 
) + 1 

1030 CLS:PRINT TAB<help);cur$(cur%):PRINT 

TAB(help-1);STRING$(l% + 2,154):PRINT 

1050 ON cur% GOSUB 2000,2100,2300,2900,240 

0,2500,3500,3600,3800,4100,4600,4700 

1060 IF foundflag%=true% AND cur%=3 THEN G 

OSUB 2011 

1099 GOTO 1000 

2000 REM "-Lesen-" 

2005 GOSUB 3250 

2010 GOSUB 6000:CLS#4 

2011 ' 

2012 GOSUB 2800 

2013 POKE modus,readbl%:GOSUB 5900 
2015 IF foundflag%=false% THEN page%=0 
2017 GOSUB 7000 

2020 GOSUB 5000 
2022 readflag%=true% 

2025 GOSUB 2850 
2030 GOSUB 5600 

2099 RETURN 

2100 REM "- Schreiben -" 

2101 GOSUB 3250 

2103 IF readflag%=false% THEN LOCATE 18,4: 
PRINT CHR${7);CHR$(24); 

" No Sector Read ";CHR${24):FOR o=1 TO 30 
00:NEXT o:GOTO 2199 

2104 GOSUB 6000:CLS#4:GOSUB 4900 

2105 LOCATE 15,11:PRINT sure$ 

2106 tast$=UPPER$(INKEY$):IF tast$="" THEN 
2106 

2107 ON INSTR("NY",tast$)+1 GOTO 2106,2199 
,2108 

2108 LOCATE 15,11:PRINT CHR$(20) 

2109 GOSUB 2800 

2110 FOR spalte%=0 TO 31 

2115 FOR zeile%=0 TO 31 STEP 2 

2120 POKE bufadr+zeile%\2+spalte%*16,V 

AL(+MID$(hc$(spalte%),zeile% 

+1,2)) 

2130 NEXT zeile% 

2131 NEXT spalte% 

2140 POKE modus,writebl%:GOSUB 5900 
2145 GOSUB 7000 
2150 GOSUB 2850 
2199 RETURN 


[950] 
[953 ] 
[961 ] 
[950] 
[3629] 
[2898 ] 

C3578 ) 


[3762] 

[2544 ] 

[43931 

[4417 ] 

[2891 ] 

[339] 
[1186] 
(11741 
[1241 ] 
[117] 
[907] 
[1 352 ] 
[1898 ] 
[867] 
[883] 
[1001 ] 
[905] 
[954] 
[555 ] 
[1912 1 
[1174 ] 
[9905] 


[2232] 
[1 646] 
[2922] 

[2583] 

[1561 ] 

[907] 

[555) 

[974] 

(5209] 


(571 ] 

[448] 

[17151 

[867] 

[905] 

[555 ] 


2201 WINDOW SWAP 4,0:PEN 1:LOCATE 1,12: |DI [2425] 
SC 

2202 errflag%=false%:IF INSTR("AB",drive$) [4853] 
=0 THEN errflag% =true%:GOTO 2295 

2203 POKE ident(0),&FF:POKE ident(1),&FF:P [1692] 
OKE &BE78,&FF 

2205 ON ERROR GOTO 2250:iDRIVE,@drive$ 12740] 

2207 IF PEEK(ident(0))=&FF AND drive$="A" [3423] 
THEN errflag%=true%:GOTO 2295 

2208 IF PEEK(ident(1))=&FF AND drive$="B" [33031 
THEN errflag%=true%:GOTO 2295 

2210 drive%=ASC(drive$)-65:form%=PEEK(iden [6100] 
t(drive%)):format%=form%\65:IF format% 

=0 THEN format%=3 


2220 GOSUB 5900 [1053] 

2230 GOTO 2295 [344] 

2250 errflag%=true%:RESUME 2295 [1766] 

2295 POKE &BE78,&0:ON ERROR GOTO 0:PEN 0:W [2939] 
INDOW SWAP 4,0 

2299 RETURN (555) 

2300 REM "- Nach Zeichenkette Suchen - [1639] 

II 

2301 GOSUB 3250:LOCATE 5,10:PRINT CHR${24) [7402] 
Data to Search ";CHR$(24);" : 

name ba k £:LOCATE 1 ,4 

2303 GOSUB 4300:GOSUB 6000 [1993] 

2305 PRINT:PRINT [743] 

2308 x%=23:y%=10:eg$=name$:ml%=20:stat%=an [4909] 
umeric%:GOSUB 6100 

2309 IF brokenflag%=true% THEN 2399 [765] 

2310 GOSUB 3400 11009] 

2311 GOSUB 2800 [907] 

2315 GOSUB 3200 [953] 

2320 help$=eg$:GOSUB 4500:eg$=help$:name$= [4038] 
eg$:IF namebak$<>eg$ THEN foundflag%= 

false% 

2321 namebak$=eg$ [910] 


2322 help2$=SPACE$(150):help2=@help2$:hb%= [54241 
PEEK(help2 + 2):lb%=PEEK(help2 + 1 ) 

2323 IF foundflag%=true% THEN sektor%=sekt [3872] 
or%+1:GOSUB 4300 


2324 foundflag%=false%:help$(5)="" [1920] 

2325 POKE modus,readbl%:bufadr=sadr+50 [1525] 

2327 WHILE foundflag%=*alse% AND track%<40 [2743] 
2335 WHILE sektor%<=maxsek%(format%) [3444] 

2337 IF INKEY$=ubreak$ THEN GOSUB 4800 [1253] 

:GOTO 2399 

2340 GOSUB 7000 [867) 

2350 FOR buffer=bufadr TO bufadr+511 S [1814] 

TEP 128 

2355 POKE help2+1,buffer-256*INT(buf [1915] 

fer/256) 

2357 POKE help2+2,INT(buffer/256) [1226] 


2358 helpa=1+{buffer-bufadr)\128:hel [4398] 

p$(helpa)=help2$ 

2360 IF INSTR(help2$,eg$) THEN found [4508] 

flag%=true%:page%=(helpa-1)\2:GOTO 
2378 

2365 NEXT buffer [1340] 
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2370 IF INSTR(MID$(help$(5),119,20)+LE 

FT$(help$(1),20),eg$) THEN page%=1: 

sektor%=sektor%-1:foundflag%=true%:GO 
SUB 4300 .-GOTO 2378 

2372 help$(5)=help$(4) 

2373 sektor%=sektor%+1 

2374 WEND 

2375 sektor%=1:track%=track%+1 
2378 WEND 

2380 GOSUB 2850 

2385 iE foundflag%=false% THEN 2397 

2386 CLS:LOCATE 19,5:PRINT CHR$(7);CHR$(24 

);" Found , ";eg$;"' ";CHR$(24); 

2397 POKE help2+1,lb%:POKE help2+2,hb%:hel 
p2$=SPACE$(150) 

2399 RETURN 


2400 REM "-Recover-" 

2401 GOSUB 6200:CLS#4 
2403 GOSUB 2800 

2405 GOSUB 2600 

2406 nofile%=true%:ccflag%=false% 

2407 FOR i=1 TO hdir 

2408 IF LEFT$(hdir$(i ),1 )>CHR$(15) THEN 
nofile%=false% 

2409 NEXT i 

2410 IF nofile%=true% THEN LOCATE 13,5:PRI 
NT CHR$(7);CHR$(24 ); 

" No Erased File(s) Recovered ";CHR$(24); 
:FOR i=1 TO 2000:NEXT i:GOTO 2499 
2415 LOCATE 15,5:PRINT CHR$(24);" Found 
CHR$(24);" 

2425 FOR i=1 TO hdir 

2427 IF MID$(hdir$(i),13,1)<>CHR$(0) OR 
LEFT$(hdir$(i ),1 )<=CHR$(15) THEN 2496 
2430 file$=MID$(hdir$(i),2,11):LOCATE 25 

,5;hname$=file$:GOSUB 4200:PRINT 


hname$; 

2435 block$="" 

2437 FOR 0=1 TO hdir 

2439 IF INSTR(hdir$(o),file$) THEN bio 

ck$=block$+MID$(hdir$(o),17,16) 

2441 NEXT o 

2443 recoverflag%=true% 

2444 LOCATE 15,7:PRINT CHR$(20);"Checkin 

g ..." 

2445 FOR o=1 TO LEN(block$) 

2447 help$=MID$(block$,o,1):IF help$=C 

HR$(0) THEN 2460 

2449 FOR p=1 TO hdir 

2451 IF INSTR(MID$(hdir$(p),17,16) 

,help$) AND LEFT$(hdir$(p),1)<=CHR$ 

(15) THEN recoverflag%=false% 

2453 NEXT p 

2460 NEXT o 

2464 m$="Successful":IF recoverflag%=fal 
se% THEN m$="Not "+m$ 

2470 LOCATE 15,7:PRINT CHR$(7);CHR$(20); 
m$:GOSUB 4900 

24/J if recovertlag%=false% THEN 2495 

2474 LOCATE 15,9:PRINT "UnErase ? (Y/N)" 

2475 tast$=UPPER$(INKEY$):IF tast$="" TH 
EN 2475 

2476 ON INSTR("NY",tast$)+1 GOTO 2475,24 
95,2477 

2477 FOR o=1 TO hdir 

2478 IF INSTR(hdir$(o),file$) THEN MID 
$(hdir$(o),1,1)=CHR$(0) 

2479 NEXT o 

2480 ccflag%=true% 

2495 LOCATE 15,9:PRINT CHR$(20) 

2496 NEXT i 

2497 IF ccflag%=true% THEN GOSUB 2700 
2499 RETURN 


2500 REM "- Informationen ueber Files -- 


[7556 ) 


[2991 
[2455] 
£390] 
[1784 ] 
[390) 
[905] 
[1080 ] 
[4104 ] 

[1982 ] 


[555] 
[846 ] 
[1 755 ] 
[907] 
[851 ] 
[2460 ] 
[1096 ] 
[2051 ] 

[375] 

[7313] 


[2822 1 

[1096 ] 
[4424 ] 

[5553 3 


[689] 
[1 346 1 
[3220] 

[369] 
[2108] 
[2473 ] 

(1928 ] 
[2079 ] 

[1109] 
[4796 ] 


[364 ] 
[369] 
[47043 

[2758] 

13253 ] 
[2089 ] 
(2921 ] 

[2671 ] 

[1 346 ) 
[2936 ] 

[3693 
[539 J 
[101 5) 
£375 ] 
[1818 ) 
[555] 
[2641 ] 


2501 ccflag%=false%:retflag%=true%:jumpfla 
g%=true%:printflag%=false%:nobreak%= 

false% 


2502 'Einsprung Druck 

2503 GOSUB 6200:CLS#4 

2504 IF printflag%=false% THEN GOSUB 

2506 PRINT TAB(5);CHR$(24);" Name 
HR$(24);" :TAB(30);CHR$(24); 

" Extension ";CHR$(24);" :":PRINT 

2507 PRINT TAB(5);CHR$(24);" Type 

HR$(24);" PRINT 

2508 PRINT TAB(5);CHR$(24);" Start 
HR$(24 );" :";TAB(30);CHR$(24); 

" Length ";CHR$(24);" PRINT 


3350 

";C 


;c 


n 


;c 


[4314 ] 


(2106 ] 
[1755] 
(2194 1 
[6828 ] 


[1 497] 
[4107] 


User 


Call 

";c 

[7452 ] 

Mi 

t 



XI' 

PRINT 

Hidden 

";C 

[5982 ] 

"""II 

lllllll 

x: 

; 



PRINT: 

PRINT 


irii'ii 

Files 

" ;C 

[4462 ) 

11 * i * * 11 


" Current ";CHR$(24);" 

2515 GOSUB 2600:file=1:hfile=1:total=0:ron [4062] 
file%=0:hidfile%=0 


2516 LOCATE 19,15:PRINT USING u0$;diranz [3100] 

2517 IF printflag%=true% AND hdir<>0 THEN [3886] 
GOSUB 4115 

2518 WHILE hfile<=hdir [1192] 

2519 IF MID$(hdir$(hfile),13,1)<>CHR$(0) [5161] 
OR LEFT$(hdir$(hfile),1)>CHR$(15) 

THEN hfile=hfile+1:GOTO 2592 

2520 cflag%=false%:LOCATE 44,15:PRINT US [3985] 
ING u0$;file 

2521 POKE modus,readbl%:bufadr=hbuf:bl=2 [7154] 
*ASC(MID$(hdir$(hfile),17,1)): 

track%=FNtrack%(bl):sektor%=FNsektor%(b 
1) .-GOSUB 7000 

2523 type%=PEEK(bufadr+18):start=PEEK(bu [9036] 
fadr+21)+256*PEEK(bufadr+22):length= 

PEEK(bufadr+24)+256*PEEK(bufadr+25):cal 
=PEEK(bufadr+26)+256*PEEK(bufadr + 

27);total=total+length 

2524 name$=MID$(hdir$(hfile),2,8):extent [4910] 
$=MID$(hdir$(hfile),10,3):help$=name$+ 

extentS 

2525 user%=ASC(LEFT$(hdir${hfile), 1 )) (1938) 

2526 type$=type$(3):IF type%<=2 THEN typ [3391] 
e$=type$(type%) 

2529 hidden%=0:help=ASC(MID$ < extentS,2,1 [7201 ] 
)):IF help AND 128 THEN hidden%=1:MID$ 

(extent$,2,1)=CHR$(help-128):hidfile%=h 
idfile%+1 

2530 readon%=0:help=ASC(MID$(extent$,1,1 [7357] 

)):IF help AND 128 THEN readon%=1:MID$ 

(extentS,1,1)=CHR$(help-128):ronfile%=r 
onfile%+1 

2535 LOCATE 19,4:PRINT name$:LOCATE 44,4 [3121] 
:PRINT extent$ 

2537 LOCATE 19,6;PRINT type$ [777] 

2540 LOCATE 19,8:PRINT USING u0$;start:L [5751] 

OCATE 44,8:PRINT USING u0$;length 
2542 LOCATE 19,10:PRINT USING uO$;cal:LO [5185] 

CATE 44,10:PRINT USING u0$;user% 

2544 LOCATE 19,12:PRINT USING u0$;hidden [2249] 

%:LOCATE 44,12:PRINT USING u0$;readon% 

2545 IF printflag%=true% THEN GOSUB 4400 [3162] 

:GOTO 2589 

2550 stat%=anumeric%:eg$=name$:x%=19:y%= [7475] 

4:xh%=0:ml%=8:GOSUB 6100:name$=eg$:IF 

pageflag%=true% THEN 2570 ELSE IF broke 
nflag%=true% THEN 2569 

2555 stat%=anumeric%:eg$=extent$:x%=44:y [7517] 

%=4:xh%=0:ml%=3:GOSUB 6100:extent$=eg$ 

:IF pageflag%=true% THEN 2570 ELSE IF b 
rokenflag%=true% THEN 2569 

2557 stat%=numeric%:eg$=STRS(start):x%=1 [9087] 



.'II 

lllllll 

i.ii'ii 

i:ir" 

"""ii 

üiiüi' 

miiin 

iiiiiiii 

nil 1 ") 

.. 



ii 1 "" 

'Nim 

IIIIIIII 




9:y%=8:xh%=0:ml%=5:GOSUB 6100:start= 

VAL(eg$):IF start<0 OR start>65535 THEN 
PRINT CHR$(7);:GOTO 2557 

2558 IF pageflag%=true% THEN 2570 ELSE I (3401 ] 
F brokenflag%=true% THEN 2569 

2559 stat%=numeric%:eg$=STR$(length):x%= [7587] 
44:y%=8:xh%=0:ml%=5:GOSUB 6100:length= 

( VAL(eg$):IF length<0 OR length>65535 TH 
EN PRINT CHR$(7);:GOTO 2559 

2560 IF pageflag%=true% THEN 2570 ELSE I [3401 ) 
F brokenflag%=true% THEN 2569 

2561 stat%=numeric%:eg$=STR$(cal):x%=19: (8609) 
y%=10:xh%=0:ml%=5:GOSUB 6100:cal=VAL 

(eg$):IF cal<0 OR cal>65535 THEN PRINT 
CHR$(7);:GOTO 2561 

2562 IF pageflag%=true% THEN 2570 ELSE I [3401 ] 
F brokenflag%=true% THEN 2569 

2563 stat%=numeric%:eg$=STR$(user%):x%=4 [9514] 
4:y%=10:xh%=3:ml%=2:GOSUB 6100:user%= 

VAL(eg$):IF user%<0 OR user%>15 THEN PR 
INT CHR$(7);:GOTO 2563 

2564 IF pageflag%=true% THEN 2570 ELSE I [3401 ) 
F brokenflag%=true% THEN 2569 

2565 stat%=numeric%:eg$=STR$(hidden%):x% [9730] 
=19:y%=12:xh%=4:ml%=1:GOSUB 6100: 
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hidden%=VAL(eg$):IF hidden%<>0 AND hidd 
en%< >1 THEN PRINT CHR$ { 7 ); .-GOTO 2 

565 

2566 IF pageflag%=true% THEN 2570 ELSE I 
F brokenflag%=true% THEN 2569 

2567 stat%=numeric%:eg$=STR$(readon%):x% 
=44:y%=12:xh%=4:ml%=1:GOSUB 6100: 

readon%=VAL(eg$):IF readon%<>0 AND read 
on%< >1 THEN PRINT CHR$(7);:GOTO 2 

567 

2569 IF cflag%=false% AND brokenflag%=tr 
ue% THEN 2593 

2570 IF cflag%=false% THEN 2589 

2571 ccflag%=true%:LOCATE 10,17;PRINT CH 
R$(7); 

2572 PRINT CHR$(24);" Data Has Qeen Chan 
ged, Write 7 (Y/N) ";CHR$(24); 

2573 htast$=UPPER$(INKEY$):IF htast$="" 
THEN 2573 

2574 ON INSTR("YN",htast$)+1 GOTO 2573,2 
575,2588 

2575 POKE bufadr+21,start-256*INT(Start/ 
256):POKE bufadr+22,INT(start/256 ): 

POKE bufadr+24,length-256*INT(length/25 
6):POKE bufadr+25,INT(length/256): P 

OKE bufadr+ 26,cal-256*INT(cal/256):POKE bu 
fadr+27,INT(cal/256) 

2576 check=0 

2577 FOR i=bufadr TO bufadr+66:check=che 
ck+PEEK(i):NEXT i 

2578 POKE bufadr+67,check-256 *INT{check/ 
256):POKE bufadr+68,INT(check/256) 

2579 POKE modus,writebl%:GOSUB 7000 

2580 MID$(extentS,1,1)=CHR$(ASC(MID$(ext 
ent$ ,1,1) ) + readon% *1 28) 

2582 MID$(extentS,2,1)=CHR$(ASC(MID$(ext 
ent$,2,1))+hidden% *128) 

2584 hdir$(hfile)=CHR$(user%)+name$+exte 
nt$+MID$(hdir$(hfile),13,20 ) 

2585 FOR i=1 TO hdir 

2586 IF INSTR(hdir$(i),help$) THEN MID 
$(hdir$(i),2,11)=MID$(hdir$(hfile),2, 

11 ) 

2587 NEXT i 

2588 LOCATE 10,17:PRINT CHR$(20):IF brok 
enflag%=true% THEN 2593 

2589 IF pageflag%=false% OR pageflag%=tr 
ue% AND tast$=CHR${249) THEN hfile* 

hfile+1:file=file+1 GOTO 2592 

2590 IF pageflag%=true% AND tast$=CHR$(2 
48) THEN hfile=hfile-1:file=file-1:IF 

hfile<1 THEN hfile=1:file=1 

2591 IF pageflag%=true% AND tast$=CHR$(2 
48) AND hfileol AND MID$ (hd ir$ (hfile ) 

,13,1)<>CHR$(0) THEN hfile=hfile-1:GOTO 
2591 

2592 WEND 

2593 IF ccflag%=false% THEN 2599 

2594 GOSUB 2700 

2599 RETURN 

2600 REM "- Directory Einladen -" 

2602 POKE modus,readbl%:GOSUB 3400 

2605 track%=dir%(format%):FOR sektor%=1 TO 

4:butadr=hbuf+(sektor%-1)*512:GOSUB 
7000:NEXT sektor% 

2635 ptr=1 

2636 FOR i=hbuf TO hbuf+2016 STEP 3,2 

2637 IF PEEK(i+3)=229 THEN 2660 

2638 FOR o=0 TO 31 :hdir$ (ptr) =hdir$ (ptr) 
+CHR$(PEEK(o+i)):NEXT o 

2655 ptr=ptr+1 
2660 NEXT i 
2665 hdir=ptr-1 
2675 diranz=0 
2680 FOR i=1 TO hdir 

2685 IF MID$(hdir$(i),13,1)=CHR$(0) AND 
LEFT$(hdir$(i),1)<=CHR$ (15) THEN 
diranz=diranz+1 
2690 NEXT i 
2695 bufadr=sadr+50 

2699 RETURN 

2700 REM "- Directory Abspeichern -" 

2701 GOSUB 2800 

2702 IF hdir=0 THEN 2799 

2704 FOR i=hdir+1 TO 64:hdir$(i)=STRING$(3 
2,229):NEXT i 

2705 ptr=1 

2707 FOR p=hbuf TO hbuf+2016 STEP 32:FOR o 



=0 TO 31:POKE p+o,ASC(MID$(hdir$(ptr), 
o+1,1)):NEXT o:ptr=ptr+1:NEXT p 

2710 POKE modus,writebl%:track%=dir%(forma 

[7125] 

(3401 ] 

t%):FOR sektor%=1 TO 4:bufadr=hbuf+ 


[9728] 

(sektor%-1)*512:GOSUB 7000:NEXT sektor% 
2715 bufadr=sadr+50 

[1661 ] 


2720 GOSUB 2850 

[905] 


2799 RETURN 

[555] 


2800 REM "- Busy Andrucken -" 

[1298 ] 


2810 LOCATE#1,71,1:PRINT#1,CHR$(24);" Busy 

[2456] 

[3000 J 

";CHR$(24); 



2849 RETURN 

[555] 

[1357 ] 

2850 REM "- Busyanzeige Loeschen -" 

[1871 ) 

[2241 ] 

2860 LOCATE#1,71,1:PRINT#1,CHR$(20); 

[1371 ] 


2899 RETURN 

[555] 

[5547] 

2900 REM "- Diskette ’wipen' -" 

[1192] 


2901 IF wipeflag%=true% THEN 2905 

(2570 ] 

[3419) 

2902 GOSUB 6200:CLS#4:GOSUB 4900:LOCATE 15 

[3875] 

[2547 ] 

,5:PRINT sure$ 

2903 tast$=UPPER$(INKEYS):IF tast$="" THEN 

[2961 ] 

[11 276 1 

2903 

2904 ON INSTR("NY",tast$)+1 GOTO 2903,2999 

(3103) 


,2905 

2905 LOCATE 1 9,4:PRINT CHR$(20);CHR$(24);" 

[4440] 


Wiping Disk ";CHR$(24); 

2906 POKE modus,writebl%:bufadr=hbuf:FOR i 

[5420] 

(177) 

=hbuf TO hbuf+1023:POKE i,229:NEXT i 

2907 IF wipeflag%=false% THEN ziel%=0 

[1778 1 

[2709 ] 

2909 FOR i=FNtrack%(ziel %*2)*maxsek%(forma 

[7616 ] 

[3424 ) 

t%)-1+FNsektor%(ziel%*2) TO maxsek% 
(format%)*39+maxsek%(format%)-1 



2910 sektor%=i MOD maxsek%(format%)+1:tr 

[4974 } 

[1 590] 

ack%=i \maxsek% (format%) 


[3060] 

2915 GOSUB 7000 

1867] 


2920 NEXT i 

[375] 

[3020 ] 

2925 bufadr=sadr+50:wipeflag%=false% 

[2524] 


2999 RETURN 

[555] 

[4829 ] 

3000 REM "-Menue 1-" 

[761 ] 


3005 CLS 

[91 ] 

[1096 ] 

3010 PRINT TAB(22);" Options" 

[1294] 

[4472] 

3015 PRINT TAB(22);STRINGS(9,154) 

181 4 ] 


3020 PRINT 

[361 ] 

[3751 

3023 PRINT TAB (5 ) ;CHR$ ( 24 ); " R ";CHR$(24-); 

[4270 ) 

" cur$(1);TAB(26);CHR$(24);" S "; 


[2526] 

CHR$(24);" ";cur$(3) 



3024 PRINT 

[361 ] 

[5250 ] 

3025 PRINT TAB(5);CHR$(24);" W ";CHR$(24); 

(4431 ] 

(7147) 

" ";cur$(2);TAB(26);CHR$(24);" E 

CHR$(24);" ";cur$(4) 

3026 PRINT 

[361 ] 


3027 PRINT TAB(5);CHR$(24);" D ”;CHR$(24); 

[5696] 

[7501 1 

" ";cur$(7);TAB(26);CHR$(24);" P "; 

CHR$(24);" ";cur$(8) 



3028 PRINT 

(361 ] 


3029 PRINT TAB(5);CHR$(24);" I ”;CHR$(24); 

[3612] 


";cur$(6);TAB(26);CHR$(24);" T "; 

[390] CHR$(24 );" ";cur$(9) 

[1051] 3035 PRINT:PRINT TAB(5 ) ; CHR$(24);" U ";CHR [7205] 

[911] $(24);" ";cur$(5);TAB(26);CHR$(24); 

(555) " L ";CHR$(24);" ";cur$(10) 

[2097] 3040 PRINT :PRINT TAB(5);CHR$(24);" A ";CH [5248] 

[1 327 ] R$ ( 24 ) ;" cur$ (11 ); TAB ( 26 ) ;CHR$ ( 24 ) 

[5963 1 O ";CHR$(24);" ";cur$(12) 

3050 PRINT:PRINT:PRINT TAB(20);"Please cho [4071] 
ose ";CHR$(143); 


[256 ) 

3099 

RETURN 

[555] 

[2844 ] 

3100 

REM "-Ed 1-" 

(683 ) 

[1937 1 

31 02 

CLS #4 

[3861 

[3624 ) 

3103 

PRINT#4,TAB(3);"'DEL' Exit" 

[1640! 


3105 

PRINT#4,TAB{4);CHR$(240);" Cursor Up 

[2489 ) 

[303 ] 

11 



[3751 

3107 

PRINT#4,TAB(4);CHR$(241);" Cursor Do 

[2814 ] 

[6501 

wn" 



[466) 

3110 

PRINT#4,TAB(4);CHR$(242);" Cursor Le 

[25751 

[10961 

ft 



[6332] 

3113 

PRINT#4,TAB(4);CHR$(243);" Cursor Ri 

[2928] 


ght 
311 5 

PRINT#4,TAB(4);CHR$(160);CHR$(241);" 

[3168 ] 

1375] 

PageDown" 


[1661 1 

3117 

PRINT# 4,TAB(4);CHR$(160);CHR$(240); 

[2597 ] 

(555) 

PageUp" 


[2754] 

3125 

PRINT# 4,TAB(4);CHR $(16 0); A AlphaNume 

[3432 ) 

(907) 

ric 

Input" 


[465 ] 

3130 

PRINT#4,TAB(4);CHR$(160);"H HexaDecim 

[3435 1 

13196 ) 

al 

Input" 



31 35 

PRINT#4,TAB(4);CHR$(160);"P Print Inf 

[3384 ] 

[256] 

ormation" 


[46201 

31 49 

RETURN 

[555] 
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3200 REM "-Ed 3-" 

3205 CLS#4 

3210 PRINT#4,TAB(3);" 1 DEL' Exit" 

3249 RETURN 

3250 REM Ed 4 

3255 CLS#4 

3260 PRINT#4,TAB(2);'"ENTER' Next InputMas 
k"; 

3265 PRINT#4,TAB{2);" 1 CLR* Del Char Lef 
t" 

3299 RETURN 

3300 REM "- Statusanzeige Anum/Hexa -" 

3305 LOCATE #4,3,12:PRINT#4,"Current : 

3310 IF status%=anumeric% THEN PRINT#4,"A1 
phaNumeric" 

3315 IF status%=hexa% THEN PRINT#4,"He 
xaDecimal " 

3349 RETURN 

3350 REM Ed 5 

3355 CLS#4 

3357 PRINT#4,TAB(2);DEL' EXIT" 

3358 PRINT#4 

3360 PRINT#4,TAB(2);"'ENTER 1 Next InputMas 
k"; 

3365 PRINT#4,TAB(2);"'CLR 1 Del Char Lef 
t"; 

3370 PRINT#4,TAB(3);CHR$(160);CHR$(241 );" 
PageDown" 

3375 PRINT#4,TAB(3);CHR$(160);CHR$(240);" 
PageUp" 

3399 RETURN 

3400 REM " Clean 

3405 readflag%=false% 

3410 ERASE hdir$,ch$,hc$,help$:DIM hdir$(6 
4),ch$(31),hc$(31),help$(5) 

3449 RETURN 

3499 RETURN 

3500 REM " Sortieren Des Inhaltsverzeic 

hnisses 

3501 GOSUB 6200 

3502 GOSUB 3200 

3503 GOSUB 4900 

3504 CLS#4 

3505 PRINT 

3510 PRINT TAB(5);CHR$(24);" Sort ";CHR${2 
4);" : ";CHR$(24);" N ";CHR$(24); 

" Name ";CHR$(24) ; " E ";CHR$(24);" 

Extension" 

3515 tast$=UPPER$(INKEY$):IF tast$="" THEN 
3515 

3520 wahl=INSTR("NE"+ubreak$,tast$):IF wah 
1=0 THEN 3515 

3522 IF wahl = 3 THEN GOSUB 4800.-GOTO 3599 

3525 help$="Names":beg=2:1=8:IF wahl=2 THE 
N help$="Extensions":beg=11:1=3 

3526 PRINT CHR $(11 );CHR $(18);TAB(8);CHR $(2 
4);" Sorting ";CHR$(24);" : ";help$ 

3527 GOSUB 2800 

3528 GOSUB 2600 

3540 GOSUB 3700:IF brokenflag%=true% GOTO 
3590 

3545 GOSUB 2700 
3590 GOSUB 2850 

3599 RETURN 

3600 REM "- Diskette Reorganisieren -" 

3601 IF backupflag%=false% THEN GOSUB 6200 

3602 CLS#4 
3605 GOSUB 2800 

3610 packflag%=true%:GOSUB 3800 

3611 FOR i=1 TO hdir 

3612 IF LEFT$(hdir$(i),1)>CHR$(15) THEN 
hdir$(i)=STRING$(32,229) 

3613 NEXT i 

3615 beg=2:1=12:GOSUB 3700 
3620 ziel%=2 

3625 FOR 19=1 TO hdir 

3626 IF hdir$(i9)=STRING$(32,229) THEN 3 
691 

3628 LOCATE 17,14:PRINT CHR$(24);" Packi 
ng ";CHR$(24);" : ";:hname$=MID$(hdir$ 

(i9),2,11 ):GOSUB 4200:PRINT hname$ 

3630 FOR i5=17 TO 32 

36 35 block=ASC(MID$(hdir$(i9),i5,1 )):I 

F block=0 THEN 3690 

3640 block$=CHR$(block):ziel$=CHR${zie 

1%) 

3650 htrack%(1)=FNtrack%(block*2):hsek 

tor%(1)=FNsektor%(block *2):htrack%(2) = 


11008] htrack%(1):hsektor%(2)=hsektor%(1)+1 : 

[386] IF hsektor%(2)>maxsek%(format%) 

[1709] THEN hsektor%(2)=1:htrack%(2)=htrack%(2)+ 

[555] i 

[715] 3655 htrack%(3)=FNtrack%(ziel%*2):hsek [9181] 

[386] tor%(3 ) = FNsektor%(ziel%•2):htrack%(4)= 

126061 htrack%(3):hsektor%(4)=hsektor%(3)+1 : 

IF hsektor%(4)>maxsek%(format%) 

[3648] THEN hsektor%(4)=1:htrack%(4)=htrack%(4)+ 

1 

[555] 3657 help=block-2:LOCATE 17+help MOD 1 [2618] 

[3754] 8, helpM 8 + 3: PRINT CHR$(143); 

M989] 3658 help=ziel%-2:LOCATE 17+help MOD 1 [4344] 

[4142] 8,help\18+3:PRINT CHR$(24);CHR$(232); 

CHR$(24); 

[4830] 3660 IF htrack%(1)=htrack%{3) AND hsek [3360] 

tor%(1)=hsektor%(3) THEN 3689 
[555] 3665 POKE modus,readbl%:FOR i=1 TO 4:b [7679] 

[81 7 ] ufadr=hbuf+(i-1)*512:track%=htrack%{i) 

[386 1 :sektor%=hsektor%(i):GOSUB 7000:NEXT 

[1287] i 

[315) 3672 POKE modus,writebl% [1385] 

[2606] 3675 FOR i=3 TO 4:bufadr=hbuf+(i-3)*51 [5870] 

2:track%=htrack%(i):sektor%=hsektor% 


[3889] (i):GOSUB 7000:NEXT i 



3680 

FOR i=1 TO 2:bufadr=hbuf+{i + 1 )*51 

[5514] 

(2016 ] 

2:track%=htrack%(i):sektor%=hsektor% 




(i):GOSUB 7000:NEXT i 


[1717] 

3685 

FOR i=1 TO hdir:heip$=MID$(hdir$< 

[101 89 


i ),17,16 ):help=INSTR(help$,ziel$):IF 


[555] 


help THEN MID$(help$,help,1)=block$:M 


[1686] 

ID$(hdir$(i),17,16)=help$ 


[1026 ] 

3687 

NEXT i 

[375] 

[4346] 

3688 

MID$(hdir$(i9),i5,1)=ziel$ 

[1963] 


3689 

ziel%=ziel%+1 

[547] 

[555J 

3690 

NEXT i5 

[441 ] 

[555] 

3691 

NEXT i9 

(469) 

(5603 ) 

3692 

LOCATE 1,3:PRINT CHR${20) 

[1272] 


3693 

IF backupflag%=true% THEN backupflag% 

[4217] 

[899] 

=false%:LOCATE 1,4:PRINT CHR$(20):GOTO 


[953] 

3696 


[950] 

3694 

wipeflag%=true%:GOSUB 2900 

(1822) 

(386) 

3696 

bufadr=sadr+50 

(1661 ] 

1361 ] 

3697 

GOSUB 2700 

(91 1 ) 

(7031 ) 

3698 

GOSUB 2850 

[905] 


3699 

RETURN 

(555 1 


3700 

REM "-Sortieren-" 

12305) 


3702 

brokenflag%=false% 

[1 464 ] 

[3089] 

3705 

swapflag%=false% 

[1108 ) 


3710 

FOR i=1 TO hdir-1 

(121 4 I 

[2562 ) 

3715 

IF MID$(hdir$(i),beg,1)>MID$(hdir$( 

(5676] 


i + 1 ), 

beg,l) THEN help$=hdir$(i):hdir$ 


(2315) 

(i)=hdir$(i+1):hdir$(i+1)=help$:sw pfla 


(3376) 

g%=true% 



3720 

NEXT i 

[375] 

13681 ] 

3725 

IF swapflag%=true% THEN 3705 

[1653 1 


3799 

RETURN 

[555] 

[907] 

3800 

REM "- Belegte Bioecke Anzeigen - 

[3568] 

[851 ) 

*1 


(3330) 

3801 

IF packflag%=true% THEN 3805 

[1471 ] 


3802 

GOSUB 6200:CLS#4 

[1755 ] 

[91 1 ) 

3804 

GOSUB 2800 

[907] 

[905] 

3805 

GOSUB 2600 

[851 ] 

[555] 

3810 

FOR i=1 TO 10 

[3151 

[2180] 

3815 

LOCATE 17,i+2:PRINT STRINGJ(18,143) 

[1833 ) 

[2258 ) 

/ 



[386] 

3820 

NEXT i 

[375] 

[907] 

3822 

LOCATE 35-offset%(format%),12:PRINT S 

[4115] 

[2498] 

PACE$ (of f set% (f ormat% )); 


[1096 ] 

3823 

blanz%=0 

[281 ] 

(3860) 

3825 

FOR i=1 TO hdir 

[1096 ] 

3827 

IF LEFT$(hdir$(i),1)>CHR$(15) THEN 38 

[1623 ] 

[375] 

90 



[1317] 

3830 

FOR o=17 TO 32 

[557] 

[454 ] 

3835 

posi=ASC(MID$(hdir$(i),o,1)):IF p 

[3060) 

[1580 ] 

osi=C 

! THEN 3890 


[2266 ] 

3837 

posi=posi-2 

(81 3] 

[6087] 

3840 

LOCATE 17+posi MOD 18,posi\18+3:P 

[3647] 

RINT 

CHR$(24);CHR$(230);CHR$(24); 



3842 

blanz%=blanz%+1 

[5003 

[1212] 

3845 

NEXT o 

[369] 

3890 

NEXT i 

[375] 

[3497] 

3891 

IF packflag%=true% THEN packflag%=fal 

[3873] 

[2048 ] 

se%:GOTO 3899 


3892 

LOCATE 17,14:PRINT USING u2$:blanz%;: 

[5256] 

[12412] 

PRINT " Blockts) in Use" 


3894 

GOSUB 2850 

[905] 


3895 

LOCATE 17,17;PRINT CHR$(24);" Press 

[2853] 


] 
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any Key ";CHR$(24); 

3897 GOSUB 4900:WHILE INKEY$="":WEND 
3899 RETURN 

4100 REM "- Ausdruck Der File - Informat 

ionen-" 

4106 printflag%=true%:pageflag%=false%:ccf 
lag%=false% 

4107 GOSUB 2502 

4109 PRINT#8 

4110 PRINT#8,STR$(total);" Byte(s) used in 
";STR$(diranz);" File(s),"; 

4111 PRINT#8,STR$(hidfile%);" File(s) Hidd 

QT 1 '* • 


4112 PRINT#8,STR$(ronfile%);" File(s) Read 
Only." 

4113 PRINT#8:PRINT#8:PRINT#8:PRINT#8:PRINT 
#8:PRINT#8:PRINT#8 

4114 RETURN 

4115 'Ueberschrift bei Druck 

4119 PRINT#8,pinit$ 

4120 PRINT #8,CHR$(27);CHR$(45);CHR$(1 ) ;CH 
R$(124);" "; 

4125 PRINT#8,"Name ";CHR$<124) 

4130 PRINT#8,"Extension ";CHR$(124) 

4135 PRINT#8,"Type 
4140 PRINT#8,"Start 
4145 PRINT#8,"Length 
4150 PRINT#8,-"Ca 11 
4155 PRINT#8,"User 
4160 PRINT#8,"Hidden 


4165 PRINT#8,"Read Only 


";CHR$(124) 
";CHR$(124) 
";CHR$(124) 
";CHR$(124) 
";CHR$(124) 
";CHR$(124) 
";CHR$(124) 


4170 PRINT#8,CHR$(27);CHR$( 45);CHR$(0);" 


4177 PRINT#8 

4199 RETURN 

4200 REM "- Filename Aufbereiten - " 

4205 MID$(hname$, 9,1)=CHR$(ASC(MID$(hname 
$, 9,1)) AND 127) 

4210 MID$(hname$,10,1)=CHR$(ASC(MID$(hname 
$,10,1 ) ) AND 127) 

4215 hname$=LEFT$(hname$,8)+"."+MID$(hname 
$,9,3) 


4299 RETURN 

4300 REM "- Track / Sektor Gueltig ? - 


4305 IF sektor%>maxsek%(format%) THEN sekt 

or%=1:track%=track%+1 

4310 IF track% >39 THEN track% = 39 

4315 IF sektor%<1 THEN sektor%=maxsek%(for 

mat%):track%=track%-1 

4320 IF track%<0 THEN track%=0 

4399 RETURN 

4400 REM "- Druck Info -" 

4402 GOSUB 2800 

4405 PRINT#8,CHR$(124);" ";FNsp$(12,name$) 

4410 PRINT#8,CHR$(124);" ";FNsp$(12,extent 
$); 

4415 PRINT#8,CHR$(124);" ";FNsp${12,type$) 


4420 PRINT#8,CHR$(124); 
tart)); 

4425 PRINT#8,CHR$(124); 
ength)); 

4430 PRINT#8,CHR$(124); 
al) ); 

4432 PRINT#8,CHR$(124); 


FNsp$(13,STR$(s 
FNsp$(13,STR$(1 
FNsp$(13,STR$(c 
FNsp$(13,STR${u 


ser%) ); 

4435 PRINT#8,CHR$(124);" ";FNsp$(12,state$ 
(hidden%)); 

4440 PRINT#8,CHR$(124);" ";FNsp$(12,state$ 
(readon%)); 

4445 PRINT#8,CHR$(124) 

4490 GOSUB 2850 

4499 RETURN 

4500 REM "- Rechtsbuendiege Leerzeichen 


Eliminieren -" 


4502 hflag%=false% 

4505 FOR i=LEN(help$) TO 1 STEP -1 
4510 mi$=MID$(help$,i,1) 

4515 IF' mi$=CHR$(32) AND hflag%=false 
% THEN help$=LEFT$(help$,i-1) 

4520 IF mi$< >CHR$(32) THEN hflag% = true% 
4525 NEXT i 

4599 RETURN 

4600 REM "- Disk - Backup 

4601 GOSUB 3250 

4602 SPEED WRITE 1 

4603 PRINT:PRINT TAB(5);CHR$(24);" Drive " 


11441 ) 
[5551 
[3039 ] 

[2769 ] 

[853] 

1343] 

[5735] 

[4725] 

[3451 ] 

[3109] 

[555] 
[2035J 
[1 426 ] 
[2311 ] 

[25391 
[2146] 
[1754 ] 
[2323] 
[2490] 
[1883] 
[2236 ] 
12109] 
[2622] 
[2579] 

[343] 
[555] 
[1782] 
(2671 ] 

[2966 ] 

[2754] 

[555] 

[3865] 

[3832] 

[1721 ] 
[3927] 

[2206 3 

[555] 

[2036] 

[907] 

[2299] 

[2065] 

[2555 ] 

[2492] 


13238J 


[2609] 

[3504 ] 

[3156 ] 

[3199 ] 

[1221 ] 
[905] 
[555 J 
12116] 

[1573] 

11538] 

[207] 

[3228] 

[2495] 

[375] 

[555] 

[1316] 

[1174 ] 

[1302] 

[4055] 


;CHR$(24);" 

4605 PRINT:PRINT TAB(5);CHR$(24); " Tape - 
Name ";CHR${24);" 

4606 stat%=anumeric%:xh%=1:x%=14:y%=5:ml%= 
1:eg$=drive$:GOSUB 6100:drive$=UPPER$ 

(eg$):GOSUB 2200:IF errflag%=true% THEN P 
RINT CHR$(7);:GOTO 4606 

4610 stat%=anumeric%:xh%=1:x%=20:y%=7:ml%= 
12:eg$="":GOSUB 6100 

4620 PRINT:PRINT:PRINT TAB(2);CHR$(24); 

4621 GOSUB 4900:CLS#4 

4622 PRINT " Press PLAY and REC on Tape, * 
ENTER* when done ";CHR$(24);" ";CHR$ 

(143) 

4623 WHILE INKEY$ < >CHR$(13):WEND 

4625 PRINT CHR$(11);CHR$(18):CLS#4 

4626 LOCATE 1,3::PRINT CHR${20):backupflag 
%=true%:GOSUB 3600:GOSUB 2800:GOSUB 

3400:ziel%=ziel% *2 

4627 JTAPE.OUT:iDISC.IN:CLOSEOUT:POKE modu 
s,readbl% 

4628 eg$="!"+eg$+".DBK" 

4629 OPENOUT eg$:PRINT#9,format%:PRINT#9,F 
Ntrack%(ziel%):CLOSEOUT 

4631 FOR track%=0 TO FNtrack%(ziel%) 

4635 FOR sektor%=1 TO 5 
4637 bufadr=hbuf+ (sektor%-1 )*51 2 

4640 GOSUB 7000 

4645 NEXT sektor% 

4650 SAVE eg$,b,hbuf,2560 

4655 FOR sektor%=6 TO maxsek%(format%) 

4657 bufadr=hbuf+(sektor%-6)*512 

4659 GOSUB 7000 

4661 NEXT sektor% 

4663 SAVE eg$,b,hbuf,2048 

4665 NEXT track% 

4675 |DISC:SPEED WRITE 0 
4680 GOSUB 2850 

4699 RETURN 

4700 REM "- Backup zurueck auf Disk -" 

4701 GOSUB 6200:CLS#4 

4702 GOSUB 4900 

4704 LOCATE 5,8:PRINT CHR$(24);" Press PLA 
Y on Tape, 'ENTER* when done 1 

CHR$(24);" ";CHR$(143);:LOCATE 5,8 

4705 WHILE INKEY$< >CHR$(13):WEND 

4706 PRINT CHR$(20) 

4707 GOSUB 2800:GOSUB 3400 

4708 ITAPE.IN:|DISC.OUT:CLOSEIN:POKE modus 
,writebl% 

4709 OPENIN "!INPUT#9,dbkformat%:INPUT#9 
,ziel%:CLOSEIN 

4710 IF dbkformat%< >format% THEN PRINT TAB 
(1);CHR$(7);"BackUp-Disk was ";CHR$ 

(24);" ";format$(dbkformat%);" ";CHR${24) 
but inserted Disk is ";CHR$ (24 

);" ";format$(format%);" ";CHR$(24):FOR i= 
1 TO 5000:NEXT i:GOTO 4799 

4712 FOR track%=0 TO ziel% 

4713 LOAD "1",hbuf 
4715 FOR sektor%=1 TO 5 

4720 bufadr=hbuf+(sektor%-1)*512 

4725 GOSUB 7000 

4727 NEXT sektor% 

4730 LOAD "!",hbuf 

4732 FOR sektor%=6 TO maxsek%(format%) 
4734 bufadr=hbuf+(sektor%-6)*512 

4736 GOSUB 7000 

4738 NEXT sektor% 

4739 NEXT track% 

4740 IDISC 
4750 GOSUB 2850 

4799 RETURN 

4800 REM "- Abbruch - Meldung -" 

4802 brokenflag%=true% 

4803 LOCATE 19,5:PRINT SPACE$(15); 

4805 LOCATE 19,6:PRINT CHR$(7);CHR$(24);" 
User - Break *';CHR$(24) 

4806 LOCATE 19,7:PRINT SPACE$(15); 

4810 FOR i=1 TO 1000:NEXT i 

4899 RETURN 

4900 REM "- Input - Buffer Loeschen -" 

4905 WHILE INKEY$<:WEND 

4999 RETURN 

5000 REM "- Buffer auslesen -" 

5005 GOSUB 3400 

5010 FOR spalte%=0 TO 31 
5015 hexc$="":charc$="" 

5020 FOR zeile%=0 TO 15 


13972) 

[8363] 


[3201 ] 

[2501 ] 
[1255] 
[5768 ] 


[1281 ] 
[2046] 
[4503 ] 


[3024] 

[71 6] 
[4523 1 

[1899] 

[1754] 

[1763] 

[867] 

[941 ] 

[1312] 

[2448] 

[1986] 

[867] 

[941 ] 

[1088] 

[378] 

[2845] 

[9051 

[555] 

[1972] 

[1755] 

[950] 

[6638] 


[1281 ] 
[972] 
[1191 ] 
[4474] 

[4420 ] 

[12686] 


[1064] 

[663] 

[1754] 

[1763] 

[867] 

[941 ] 

[663] 

[2448] 

[1986] 

[867] 

[941 ] 

[378] 

[839] 

[905] 

[555] 

[2203] 

[1901 J 

[1910] 

[4067] 

[1593 ] 

[674] 

[555] 

[3340] 

[1786] 

[555] 

[ 2015 ] 

[1009 ] 

1555] 

[1712] 

[943] 
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5025 co%=PEEK(bufadr+zeile%+spalte% *16 

) 

5030 hexc$=hexc$+HEX$(co%,2) 

5040 code$=".":IF co%>31 THEN code$=CH 

R$(co%) 

5050 charc$=charc$+code$ 

5060 NEXT zeile% 

5070 hc$(spalte%)=hexc$:ch$(spalte%)=cha 

rc$ 

5090 NEXT spalte% 

5099 RETURN 

5500 REM "- Buffer anzeigen -" 

5502 GOSUB 2800 

5505 IF page%<0 OR page%>1 THEN GOSUB 5800 
5520 PRINT CHR$(30); 

5525 FOR i=page%*16 TO page%*16+15 
5527 PRINT hc$(i);" ”;ch$(i) 

5530 NEXT i 
5535 GOSUB 2850 

5599 RETURN 

5600 REM "- Buffer editieren -" 

5602 GOSUB 3100:GOSUB 3300:GOSUB 4900 
5605 xcur%=1:ycur%=1:GOSUB 5500 

5610 tast$=INKEY$:xold%=xcur%:yold%=ycur% 
5612 IF tast$="" AND status%=anumeric% THE 
N 5666 

5614 IF tast$="" AND status%=hexa% THE 

N 5655 

5616 IF tast$=ubreak$ THEN 5699 


5618 IF fast$ >CHR$(31) AND tast$<=CHR$(122 
) AND status%=anumeric% THEN GOSUB 
5700 

5621 IF INSTR("0123456789ABCDEF" f UPPER$(ta 
st$)) AND status%=hexa% THEN GOSUB 

5700 

5622 IF tast$=CHR$ ( 16) THEN GOSUB 7100.-GO 
TO 5610 

5623 IF tast$=CHR${ 1) THEN status%=anume 
ric%:GOSUB 5500:GOSUB 3300 

5624 IF tast$=CHR${ 8) THEN status%= h 

exa%:GOSUB 5500:GOSUB 3300 

5625 IF tast$=CHR$(242 ) THEN xcur%=xcur%-1 
5627 IF ta5t$=CHR${243) THEN xcur%=xcur%+1 

5630 IF tast$=CHR$(249) THEN page%=page%+1 
:xcur%=1:ycur%=1:GOSUB 5500:GOSUB 5900 

5631 IF tast$=CHR$(248) THEN page%=page%-1 
:xcur%=1:ycur%=1:GOSUB 5500:GOSUB 5900 

5632 IF tast$=CHR${241) THEN ycur%=ycur%+1 
5634 IF tast$=CHR${240) THEN ycur%=ycur%-1 
5640 IF xcur%< 1 THEN xcur%=xcur%(status%) 


:ycur%=ycur%-1 

5642 IF xcur%>xcur%(status%) THEN xcur%= 1 
:ycur%=ycur%+1 

5644 IF ycur%< 1 THEN ycur%= 1 

5645 IF ycur%>16 THEN ycur%=16 

5646 IF status%=anumeric% THEN 5660 
5648 ’ 

5650 LOCATE xold%,yold%:PRINT MID$(hc$(yol 
d%-1+page% *16),xold%,1 ) 

5652 LOCATE (xold%+1) \2 + 34,yold%:PRINT MID 
$(ch$(yold%-1+page%*16),(xold% + 1 )\2,1 ) 

5655 LOCATE xcur%,ycur%:PRINT CHR$(24);MID 
$(hc$(ycur%-1+page%*16),xcur%,1);CHR$ 

(24); 

5657 LOCATE (xcur%+1)\2+34,ycur%:PRINT CHR 
$(24);MID$(ch$(ycur%-1+page%*16), 

(xcur% + 1) \2,1 );CHR$(24); 


5659 GOTO 5695 

5660 ’ 

5662 LOCATE xold%+34,yold%: PRINT MID$(ch$ 
(yold%-1+page%*16),xold%, 1 ) 

5664 LOCATE xold%*2-1,yold%:PRINT MID$(hc$ 
(yold%-1+page% *16),xold% *2-1, 2) 

5666 LOCATE xcur%+34,ycur%: PRINT CHR$(24) 
;MID$(ch$(ycur%-1+page%*16),xcur%,1); 

CHR $-(24) 

5668 LOCATE xcur%*2-1,ycur%:PRINT CHR$(24) 
;MID$(hc$(ycur%-1+page%*16),xcur%*2-1 , 

2 ) ;CHR$(24) 

5695 GOTO 5610 

5699 RETURN 

5700 REM "- Aenderung -" 

5702 IF status%=anumeric% THEN 5750 

5703 tast$=UPPER$(tast$) 

5705 LOCATE xcur%,ycur%:PRINT tast$; 

5710 MID${hc$(ycur%-1+page%*16),xcur%,1 )=t 
ast$ 

5715 xhelp=xcur%:IF xcur%/2-xcur%\2=0 THE 
N xhelp=xcur%-1 


[1665 ) 

[1243 1 
[1827] 

[3331 
[571 ] 
[1583 ] 

[448 1 

[5551 

[2314] 

[907] 

11575] 

[994] 

[1508] 

[949) 

[375] 

1905) 

[5551 

[2721 ] 

[2874 ] 

[1292] 

[2817] 

[2417] 

[2915] 

[1272] 

[5949] 


(2737 ] 


[1341 ) 

[2656] 

[3134] 

[2573] 

[2500] 

[6517] 

[5642] 

[3200] 
[2228] 
[3341 ] 

[2923] 

[1586] 

[2119] 

[3002] 

[117] 

[4528) 

[4955 ] 

[5053] 


[4978] 


[384] 

(1173 

[2912] 

[40891 

[4449 ] 


[4243 ] 


[448 ] 
[555] 
[1433] 
[2992 ) 
[1 447] 
[1 597 ] 
11879) 

[2548 ] 


5720 ch$=CHR$(VAL("&"+MID$(hc$(ycur%-1+pag 
e%*16),xhelp,2))) 

5725 IF ch$<CHR$(32) THEN ch$ = "." 

5730 LOCATE (xcur%+1)\2+34,ycur%:PRINT ch$ 

I 

5740 MID$(ch$(ycur%-1+page% *16),(xcur%+1)\ 
2,1)=ch$ 

5745 xcur%=xcur%+1 

5749 GOTO 5799 

5750 ' 

5752 LOCATE xcur%+34,ycur%:PRINT tast$; 
5754 MID$(ch$(ycur%-1+page%*16),xcur%,1)=t 
ast$ 

5756 LOCATE xcur%*2-1,ycur%:PRINT HEX$(ASC 

(tast$ ), 2 ); 

5758 MID$(hc$(ycur%-1+page% *16),xcur% *2-1, 
2)=HEX$(ASC(fast$ ),2) 

5760 xcur%=xcur%+1 

5799 RETURN 

5800 REM "- Blaettern 

5805 IF page% >1 THEN 5850 
5807 ' 

5809 page%=1 

5810 sektor%=sektor%-1:IF sektor%<1 THEN s 
ektor%=raaxsek%(format%):track%=track% 

-1:IF track% <0 THEN track%=0:sektor%=1:GO 
TO 5899 
5820 GOTO 5880 
5850 • 

5853 page%=0 

5855 sektor%=sektor%+1;IF sektor%>maxsek%( 
format%) THEN sektor%=1:track%=track% 

+1:IF track%>39 THEN track%=39:sektor%=ma 
xsek%(format%):GOTO 5899 

5880 POKE modus,readbl%:GOSUB 7000;GOSUB 5 
000 rreadflag% = true% 

5899 RETURN 

5900 REM "- Statuszeile 

5905 LOCATE#2,1,1 

5910 PRINT#2," Drive : ";drive$;" Tra 

ck : ";USING u2$;track%; 

5915 PRINT#2," Sector : ";USING u2$;s 

ektor%; 

5920 PRINT#2," Page : USING u1$;pag 

e% + 1 ; 

5925 PRINT#2," Format ; formatj(forma 
t%); 

5999 RETURN 

6000 REM "- Eingabe von Drive, Track, Se 

ktor 

6005 PRINT TAB(5);CHR$(24);" Drive ";CHR$ 
(24);" : ";drive$ 

6007 PRINT 

6010 PRINT TAB(5};CHR$(24);" Track ";CHR$ 
(24);" : ";USING u1$;track% 

6012 PRINT 

6015 PRINT TAB(5);CHR$(24);" Sector ";CHR$ 
(24);" : ";USING ul$;sektor% 

6040 xh%=1:x%=17:y%=4:ml%=1:eg$=drive$:sta 
t%=anumeric%:GOSUB 6100:drive$=U PER$ 

(eg$):GOSUB 2200:IF errflag%=true% THEN P 
RINT CHR$(7);:GOTO 6040 

6045 xh%=0:x%=17:y%=6:ml%=2:eg$=STR$(track 
%):stat%=numeric%:GOSUB 6100:track%= 
VAL(eg$):IF track%<0 OR track%>39 THEN PRI 
NT CHR$(7);:GOTO 6045 

6050 xh%=1:x%=17:y%=8:ml%=1:eg$=STR$(sekto 
r% ):stat%=numeric%:GOSUB 6100:sektor% = 
VAL(eg$):IF sektor%<1 OR sektor%>maxsek%( 
format%) THEN PRINT CHR$(7);:GOTO 605 

0 

6060 GOSUB 2200 

6099 RETURN 

6100 REM "- Eingaberoutine -" 

6101 pageflag%=false%:GOSUB 4900 

6102 IF stat%=numeric% THEN eg$=RIGHT$(eg$ 

,LEN(eg$)-1):eg$=STRING$(ml%-LEN(eg$), 

CHR${32))+eg$:heg$=SPACE$(LEN(eg$)) 

6103 IF stat%=anumeric% THEN eg$=eg$+SPACE 
$(ml%-LEN(eg$)):heg$=eg$ 

6104 xc%=1:lr$=CHR$(32):tabflag%=false% 

6105 IF xc%>ml% THEN xc%=ml% 


[2915] 

[694] 

[2106] 

(2854 ] 

(11461 
[400] 
(117) 
[2593 ] 
[2525] 

(2936 ] 

[3976 ] 

[1146] 

[555] 

[1338] 

[1137] 

[117] 

(709) 

(8908) 


[321 J 
[117] 
(710 ] 
17600) 


13396] 

[555] 

[1787] 

[652] 

[4068] 

[2362] 

[2322] 

[2676] 

1555) 
[2922 ] 

[ 2102 ] 

[361 ] 
[2636] 

1361 ) 
[3022] 

[9972 ] 


[8790] 


[9901 ] 


[867] 
[555] 
[1687 ] 
[1320 1 
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[1684 ] 

12753] 
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6106 IF xc%<1 THEN xc%=1 11067 ) 

6107 tast$=INKEY$:IF tast$="" THEN 6180 [2948] 

6108 IF tast$=CHR$(13) AND stat%= numeric% (5687) 
THEN LOCATE x%,y%:PRINT USING LEFT$ 

(us$,xh%+ml%);VAL(eg$);:GOTO 6199 

6109 IF tast$=CHR$(13) AND stat%=a«umeric% [3088] 
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TUEN LOCATE x%+xh%,y%:PRINT eg$;:GOTO 
6199 

6110 IF tast$=CHR$(248) OR tast$=CHR$(249) 
THEN pageflag%=true%:GOTO 6199 

6111 IF tast$=CHR$(16) AND xc%>=2 THEN xc% 
=xc%-1:help=LEN(eg$):eg$=LEFT$(eg$,xc% 

-1):eg$=eg$+SPACE$(help-LEN(eg$ ):GOTO 61 


14266 ] 
[8013 ] 
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80 

6112 IF tast$=ubreak$ AND nobreak%=false 
% THEN GOSUB 4800:GOTO 6199 

6118 IF stat%=numeric% AND (tast$<"0" OR 

tast$>"9") THEN 6105 

6119 IF stat%=anumeric% AND (tast$<CHR$(32 
) AND tast$ >CHR$(127)) THEN 6105 

6120 IF tabflag%=false% THEN eg$=heg$:tabf 
lag%=true% 

6125 MID$(eg$,xc%,1)=tast$ 

6130 xc%=xc%+1:cflag%=true% 

6180 LOCATE x%+xh%,y%:PRINT CHR$(24);eg$;C 
HR$(24); 

6185 GOTO 6105 

6199 RETURN 

6200 REM "- Eingabe Drive -" 

6202 GOSUB 3250 

6205 PRINT TAB(5);CHR $(2 4 ) ;" Drive ";CHR$ 
(24);" : ";drive$ 

6210 xh%=1:x% = 15:y%=4:ml%=1:eg$=drive$:sta 
t%=anumeric%:GOSUB 6100:drive$=UPPER$ 
(eg$):GOSUB 2200:IF errflag%=true% THEN P 
RINT CHR$(7);:GOTO 6210 
6215 PRINT CHR${11);CHR$(20) 

6225 GOSUB 2200 
6299 RETURN 

7000 REM "- Sektor lesen / schreiben - 

»I 


7006 GOSUB 5900 

7008 POKE sadr+14,drive% 

7010 POKE sadr+16,track% 

7015 POKE sadr+18,sektor%-1+form% 

7020 POKE sadr+20,bufadr-256*INT(bufadr/25 
6) 

7025 POKE sadr+21,INT(bufadr/256) 

7030 CALL sadr 

7099 RETURN 

7100 REM "-Druck-" 

7102 PRINT#8,pinit$ 

7103 PRINT#8,"Drive : ";drive$;" Track 

: ";USING u1$;track%; 

7104 PRINT#8," Sektor : ";USING u1$;se 

ktor%:PRINT#8 

7105 FOR i=0 TO 31 STEP 2 
7107 FOR p=1 TO 8 

7109 PRINT#8,MID$(hc$(i)+hc$(i + 1 ),(p-1 

) *8 + 1 , 8 );" "; 

7111 NEXT p 

7112 PRINT #8," "; 

7115 FOR o=1 TO 64 

7120 help$=MID$(ch$(i)+ch$(i+1),o,1 ):I 

F help$ >CHR$(127) THEN help$="." 

7125 PRINT#8,help$; 

7130 NEXT o 
7135 PRINT#8 
7150 NEXT i 

7155 PRINT#8:PRINT#8:PRINT#8:PRINT#8:PRINT 
#8:PRINT#8:PRINT#8:PRINT08 
7199 RETURN 

8000 REM "- Daten laden -" 

8005 sadr=42024:bufadr=sadr+50:hbuf=sadr-2 
561:MEMORY hbuf-1:GOSUB 10000 

8007 DEF FNtrack%(block)=INT(dir%(format%) 
+block/maxsek%(format%)) 

8008 DEF FNsektor%(block)=dir%(format%)*ma 
xsek%(forraat%)-maxsek%(format%)*(INT{ 

dir%{format%)+block/maxsek%(forraat%)))+bl 
ock+1 

8009 DEF FNsp$(ml%,var$) =var$+SPACE$(ml%-L 
EN(var$)) 

8010 DIM format$(3 ),ziel%(3),offset%(3),hc 
$(31 ),ch$(31 ),track%(3) r maxsek(3),cur$ 

(12),xcur%(3),hdir$(64),dir%(3),type$(3), 
htrack%(4),hsektor%(4),help$(5), ide 

nt (1 ), state$(1) 

8013 sure$=CHR$(7)+CHR$(24)+" Are You Sure 
? (Y/N) "+CHR$(24) 

8014 ident(0)=&A89F:ident(1)=&A8DF 

8015 state$(0)=" ":state$(1)="*" 


[5442] 

[3571 ] 

[4679 ] 

[2855] 

[1129) 
[1764 ] 
[3785 ] 

[402] 
[555] 
[1758] 
[11741 
[2354 ] 

[8350] 


[15651 

[867] 

[555] 

[2360] 


[1053] 
[837 ] 
[319 ] 
[1093 ] 
[1650] 

[1293 ] 
[85] 
[555] 
[1 645 ] 
11426] 
[4922 ] 

[3033] 

[1244 ] 
[624] 
[2031 ] 

[364 ] 
[628] 
[925] 
[2843) 

[1054 ] 
[369] 
(343) 
[375 J 
[3852] 

[555 ] 
[2424 ] 
[3908] 

[4177] 

[7384 ] 


[3206 1 
110631 1 


[3562 ] 

[1 597] 
[1 504 ] 


8021 drive$="A":sektor%=1:format%=1 

8022 readbl%=&84:writebl%=&85:modus=sadr+2 
6 

8023 numeric%=1:anumeric%=2:hexa%=3:xcur%( 
anumeric%)=16:xcur%(hexa%)=32:status%= 

anumeric% 

8024 true%=1:false%=0:readflag%=false%:che 
ckflag%=false%:nobreak%=true%:errflag% 

=false% 

8025 ver$="3.0" 

8026 us$ = "#####r':u0$ = "####r':u 1 $ = "##" :u 2 $ 
="###" 

8027 ubreak$=CHR$(127) 

8028 active=TIME 

8030 pinit$=CHR$(27)+CHR$(120)+CHR$(0)+CHR 
$(27 ) +CHR$(55)+CHR$(15) 

8031 raessage$="Good-Bye from "+CHR$(24)+" 
Dis-K-Patcher "+CI1R$(24) + " Ver "+ver$ 

8032 RESTORE 8040 

8033 FOR i=1 TO 3:READ h$:format$(i)=FNsp$ 
(4,h$):NEXT i 

8034 FOR i=0 TO 3:READ h$:type$(i)=FNsp$(1 
1,h$ ):NEXT i 

8035 FOR i=1 TO 3:READ maxsek%(i):NEXT i 

8036 FOR i=1 TO 3:READ dir%(i):NEXT i 

8037 FOR i=1 TO 3:READ ziel%(i):NEXT i 

8038 FOR i=1 TO 3:READ offset%(i):NEXT i 

8039 FOR i=1 TO 12:READ cur$(i):NEXT i 

8040 DATA CP/M,Data,IBM 

8041 DATA Basic,Basic Prot.,Binary,ASCII 

8042 DATA 9,9,8 

8043 DATA 2,0,1 

8044 DATA 170,179,155 

8045 DATA 11,2,7 

8049 DATA Read Sectop,Write Sector,Searchi 
ng For Data,Wipe Disk 

8050 DATA UnErase Files,Information,Sort D 
ir,Pack Disk,Block Partition 

8051 DATA Print Information,Backup,Restore 

8059 INK 0,13:INK 1,0:BORDER 13:PAPER 0:PE 
N 1:MODE 2 

8060 RESTORE 8100 

8065 FOR wnum%=0 TO 3:READ xl%,xr%,yo%,yu% 
8070 LOCATE xl%-1,yo%-1:PRINT CHR$(150);ST 
RING$(xr%-xl%+1,CHR$(154));CHR$(156); 

8072 FOR i=yo% TO yu%:LOCATE xl%-1,i:PRINT 
CHR$(149);:LOCATE xr%+1,i:PRINT CHR$ 

(149);:NEXT i 

8074 LOCATE xl%-1,vu%+1:PRINT CHR$(147);ST 
RING$(xr%-xl%+1,CHR$(154));CHR$(153); 

8075 NEXT wnum% 

8080 RESTORE 8100:FOR wnum%=0 TO 3:READ xl 
%,xr%,yo%,yu%:WINDOW#wnum%,xl%,xr%,yo% 
,yu%:NEXT wnum% 

8085 WINDOW#4,55,79,9,21 

8090 CLS#1:PRINT#1,TAB(20);"Dis-K-Patcher 
Ver ";ver$;" ";CHR$(164); 

" 1986 by ArtWare GbR"; 

8094 PAPER#3,1:PEN#3,0:CLS#3:PAPER#4,1:PEN 
#4,0:CLS#4 

8095 CLS#3:PRINT#3:PRINT#3,TAB(9);" Editor 
":PRINT#3,TAB(9);STRING$(8,154) 

8097 GOSUB 5900 

8098 trash=FRE("") 

8099 RETURN 

8100 ' 

8105 DATA 2,52, 5,21 
8110 DATA 2,79, 2, 2 
8115 DATA 2,79,24,24 
8120 DATA 55,79,5,21 
8199 RETURN 
10000 REM 

10005 sum%=0:RESTORE 10015:FOR i=sadr TO s 
adr+25:READ help$:help=VAL("&"+help$): 

sum%=sum%+help:POKE i,help:NEXT i 
10010 -IF sum%< >&9CF THEN MODE 2:PRINT CHR$ 
(7);"Error in Data...":END 
10015 DATA 21,42,A4,CD,D4,BC,22,43,A4,79,3 
2,45,A4,IE,00,16,00,OE,00,21,40,9C,DF, 

43,A4,C9 
10099 RETURN 



[11951 
[2367 1 

[5445] 


18131 ] 


[968] 
[810 ] 

[1283 ] 
[925] 
(3486 ) 

[5756] 

[703 1 
[2416 ] 

[2954 ] 

[1316] 
[1610 ] 
(1688 ] 
[1 222 ] 
[1747 ] 
[1075 ) 
[2617] 
[186] 
[180] 
[831 ] 
(386] 
[4274 ] 

(4744] 

[2312] 

[2973] 

[914] 
[2567] 
(4931 ] 

[2627 ] 


(3371 ] 

[416] 

[6312] 


[1415 1 
[7118] 


[2375] 

[2798 ] 

(1053 ] 
[595 ] 
[555] 
[117] 
[504] 
(710 ] 
[733] 
[504 ] 
[555] 
[272 ] 
[4708 1 


[4335 ] 
14627] 


[555 ] 
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Tabwrite 




Mit dem Programm »Tabwrite« ist es möglich, Anlagen, 
die eine Spalte zur Addition von DM-Beträgen enthalten, 
zu erstellen. Eine Anlagezeile und zwei Textzeilen stehen 
dem User zur Verfügung. Eine Textendzeile erlaubt noch 
diverse Mitteilungen. 

Beispiele: 

Einkommen- bzw. Lohnsteueranlagen (Jahresausgleich), 
Tabellen für Versicherungen, Leistungsabrechnungen für 
Krankenversicherungen (Privatpatienten), sonstige Ta¬ 
bellen. Selbst Mahnungen sind möglich. 

Das Programm ist für Diskette und Kassette geeignet. Bei 
der Diskettenversion muß lediglich Zeile 2050 und 3050 
entfernt werden (CAT-Anweisung). 

Auf der Grundlage des Tabwriters ist es auch möglich, ein 
kleines Faktura-Programm zu erstellen, mit Artik^lbe- 
zeichnungen. die mit der Artikelnummer aufgerufen wer¬ 
den könnten. Ein Druckerspooler sorgt für schnellen Aus¬ 
druck. so daß die nächste Rechnung schon während des 
Drückens wieder erfaßt werden könnte. 


Variablenliste: 

a und t 
n 


Laufvariablen 

Schleifen 


anzahl 

Verlassen der Eingabe (Klammeraffe) 
Höchstzahl (Maximum) 

dat$ 

Datum 

anrS 

Anrede 

name$ 

Vorname Name 

strasS 

Straße 

ort$ 

PLZ/Ort 

anlage$ 

Anlagebezeichnung 

textlS 

Kurzmitteilung an Empfänger 1. Zeile 

text2S 

Kurzmitteilung an Empfänger 2. Zeile 

text3S 

Eingabe einer Schlußzeile 

belS 

Belegbezeichnung Nr/Buchstabe 

text$ 

Bezeichnung des Beleges 

dm 

Betrag in DM 

zwisu 

Zwischensumme 

esu 

Endsummer 

zS(l) - z$(3) 

Eingabe des Absenders 
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Hinweise zum Eintippen: 

Wer kein Diskettenlaufwerk besitzt, muß die Option 
Laden/Sichern abändern. 

In den Zeilen 9300 - 9330 muß die Anschrift des Users ein¬ 
gegeben werden. Die Druckersteuerzeichen müssen even¬ 
tuell auf den, vom User benutzten, Drucker umgestellt 
werden. (Das Programm ist auf Schneider NLQ 401 
eingestellt.) 

Mit run'Tabwrite” gestartet, erscheint das Hauptmenue. 
Mit der Option 6 erhalten Sie die Benutzerinformation. 
Ansonsten ist das Programm ausreichend dokumentiert, 
so daß es keine Schwierigkeiten geben dürfte. 

Hans Müller 
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QUICK-DATA 3.0 

Das GSX m -Geschäftsprogramm für Joyce 


SIE SCHREIBEN... TASTENDRUCK... SIE SEHEN... 

o o 

- Kundenverwaltung, Artikelstamm 

- Rechnung, Auftrag, Lieferschein 

- Serienbriefe 

- Etiketten für Nachnahme, Adressen 
Postkarten etc. 

- Offene Posten 

- Suchen nach allen Kriterien 

- Modultechnik für weitere 
Anwendungen 

M0DULE FÜR MAHNWESEN, ARTIKELBEZOGENE STATISTIK ERHÄLTLICH 


QUICK-CALC 2.1 Buchhaltung 148 DM 

QUICK-BILL 2.0 Angebot, Rechnung 168 DM 
QUICK-NAME 2.0 Adressverwaltung 128 DM 

QUICK-CINE 2.0 Videoachiv 98 DM 

KIT PC8256/TMS 512 KB RAM-Erweiterung 99 DM 

QUICK-DATA 3.0 Geschäftssoftware GSX m 228 DM 
QUICK-MAHN 3.0 Modul für Mahnwesen 68 DM 
QUICK-STAT 3.0 Modul für Statistik 2 78 DM 


Fordern Sie unser Info-Material an! 


Fa. WERDER - Nachrichtentechnik 

Bramfelder Ch. 215 ■ 2 Hamburg 71 • (040) 641 1779 


o 

- 90 Zeichen-Modus 

- BCD Arithmetik 

- Datenbank 

- Statistikmodul 1 

- GSX m Graphik 

- Vorbereitungen 
automatisch 

- Zukunftssicher 


SHEKHANA COMPUTER SERVICES (U.K) 



OurPrice 


Our Price 

Elite 

D4 

13.00 

Shogun 

f 

D2 8.00 

Bomb Jack 

D2 

7.00 

Lazer Genius 

D4 13.00 

Ghost and Goblins 

D2 

7.00 

Get Dexter 

D2 8.00 

Commando 

D2 

8.00 

Doomsday Blues 

D2 8.00 

* Paper Boy 

D2 

8.00 

Knight Games 

Dl 7.00 

Cascade 50 

D2 

8.00 

Doomsdark Revenge 

02 8.00 

Equinox 

D2 

8.00 

Batman 

D2 7.00 

Lord otthe Rings 

D5 

13.00 

Gladiator 

D3 8.00 

Southern Belle 


6.00 

Starquake 

Dl 7.00 

V 

D2 

7.00 

Spltfire 40 

D2 8.00 

Night Gunner 

Dl 

7.00 

Nodes oy Yesods 

02 8.00 

Arneham 


8.00 

Glass 

D2 8.00 

Winter Games 

D2 

8.00 

Splitting Personalities 

D3 8.00 

Jack the Nipper 

D2 

8.00 

Sai Combat 

8.00 

Leader Board 

D2 

8.00 

Fighter Pilot 

Dl 7.00 

YiearKungFu 

D2 

7.00 

Swords and Sorcery 

D2 800 

Mini Office 1 


5.00 

Last V8 

3.00 

Scrabble 

D2 

8.00 

The Price of Magick 

8.00 

Mini Oftice 11 

D4 13.00 

Sounder 

Dl 8.00 

Lazer Basic 

D4 13.00 

Movie 

D2 7.00 

Way of the Tiger 

D2 

8.00 

Strike Force Harrier 

D2 8.00 

Deserl Rats 


8.00 

Pro Tennis 

D2 8.00 

Ghostbusters 

Sabatour 

D2 

D2 

9.00 

7.00 

Knight Tyme 

3.00 

Turbo Esprit 

D2 

7.00 

***** DISKS***** 


Tau Ceti 

Azimuth(Head Align) 

D2 

8.00 

8.00 

ESP Light Pen-PCW 

Lord of the Ring-PCW 

The Hobbit-PCW 

80.00 

25.00 

Soccer 86 

D2 

8.00 

25.00 

Theatre Europe 


8.00 

Fairlight-PCW Version 

15.00 

Biggles 

D2 

8.00 

Batman-PCW Version 

15.00 

Spindizzy 

D2 

8.00 

Disc-Mate-PCW Version 

25.00 

Rescue on Fractilus 

D2 

8.00 

Hitchhikers-6128 or PCW 

25.00 

Highway Encounter 

Dl 

7.00 

Zork 1-6128 orPCW 

25.00 

lan Bothams Cricket 


6.00 

Zork 2-6128 or PCW 

25.00 

3D Grand Prix 

Dl 

8.00 

Zork 3-6128 or PCW 

25.00 

ESP Light Pen 


18.00 

Deadline-6128 orPCW 

25.00 

Bridge Player 3 

D2 

11.00 

Seastalker-6128 or PCW 

25.00 

3D Cyrus Chess 


8.00 

Planetfalhö 128 orPCW 

25.00 

Monopoly 

D2 

8.00 

Wishringer-6128 or PCW 

25.00 

Colossus Chess 4.0 

D2 

8.00 

Bellyhu-6128or PCW 

25.00 

Fairlight 

D2 

8.00 

Enchanter-6128 or PCW 

25.00 

Tomahawk 

02 

8.00 

Sorcer-6128 or PCW 

25.00 

Nick Faldos Golf 


8.00 

Spellbreaker-6128 or PCW 

25.00 

The Fifth Axis 

D2 

8.00 

Starcross-6128 or PCW 

25.00 

Heavy on the Magick 

D2 

8.00 

Suspended-6128 or PCW 

25.00 


D=Disk Version Available. Dl—AT fl2.QQ, D2=AT fl3.00, D3-f 15.00, D4-AT fl8.00 


For Mail Orden CHQ/P.O/Euro-Cheque. - All Payments must be in Sterling. 

TO: S.C.S.P.O.BOX (CPC) London N.15 6.J.L. England. 

Please ADD f 1 (one Pound) per Tape tor Post and Packaging. 

Telephone 00-44-1-800- 3156. S.A E For lull List. _ 

WHEN YOU ARE IN LONDON VISIT OUR SHOP AT: 

S.C.S. Unit 5, 221 TOTTENHAM COURT ROAD LONDON W1R 9AF. 

(NEAR GOODGE ST TUBE STN.OPEN 6 DAYS A WEEK 10.00 A M — 16.00 PM. 

BARCLAYCARD/VISAOR MASTERCARD/ACCESS PLEASE RING FOLLOWING NUMBERS: 
Tel.: 00-44-1-809-4843 // 00-44-1-631-4627. Telex 8951182 GECOMS G. 

•NEW RELEASES SUBJECT TO AVAILABILITY FROM SOFTWARE COMPANIES. 
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5 REM * * * T 

abwrite Diskettenversion *** [2050J 

10 MODE 1:OPENOUT "D":MEMORY HIMEM-1:CLOSE 
OUT 

20 WINDOW#1,1,40,1,3:WINDOW#2,1,40,4,23:WI 

NDOW #3,1,40,23,25 

30 INK 0,13:INK 1,0:BORDER 9 

40 PAP£R#1,2 : PEN#1 , 3 : PAPER#2,0 : PEN#2,1 : PAP 

ER// 3,2: PEN# 3,3 

50 CLS : CLS # 1 : CLS # 2: CLS# 3 

60 PRINT #1 : PRINT //I , "#################### 

###############//####" 

70 LOCATE#2,5,4:PRINT #2,"*» CPC 464-T A B 
WRITER**" 

80 LOCATE#2,8,8:PRINT#2,"Programm zum Erst 
eilen von ": LOCATE//2,1 5,1 0 : PRINT#2, " Anlag 
en!" 

90 LOCATE#2,9,15: PRINT #2," @ 1986 by Han 
s Mueller" 

100 PRINT//3 : PRINT#3,"#########//######//#### 
####//##############" 

120 FOR a=1 TO 1500:NEXT 

140 REM *** Umschaltung mode 2 Windows / F 
arben neu setzen *** 

150 MODE 2:BORDER 13 
1 60 WINDOW;/1 ,1,80,1,2: 

170 WINDOW#2,1,80,4,23 
180 WINDOW#3,1 ,80,24,25 

190 PAPER#1,0:PEN#1,13:PAPER#2,13:PEN#2,0: 
PAPER#3,0:PEN#3,13 

200 DIM text$(60),dm(60),bel$(60),bei(60) 
210 REM 

220 REM *** Programmkopf *** 

230 CLS:CLS#1:CLS#2:CLS#3 
235 LOCATE#1,22,2:PRINT#1,"M E N U E 
TAB W RITE R" 

240 LOCATE 27,8:PRINT" 1 = Daten EINGABE " 
:LOCATE 27,10:PRINT" 2 = Anlagen laden " 
250 LOCATE 27,12:PRINT" 3 = Anlagen speich 
ern ":LOCATE 27,14:PRINT" 4 = Ausgabe auf 
Bildschirm ":LOCATE 27,16: PRINT" 5 = Aus 
gäbe auf Drucker ":LOCATE 27,18:PRINT" 6 = 
Programminformation! " 

260 LOCATE 27,20:PRINT" 7 = Programm beend 
en " 

270 LOCATE#3,18,2:PRINT#3," Bitte waehle 
n < 1 bis 7 > " 

280 a$=INKEY$:IF a$="" TUEN 280 

290 IF a-$<" 1" OR a$>"7" THEN PRINT CHR$(7) 

:GOTO 270 

300 ON VAL(a$) GOTO 400,2000,3000,4000,600 

0,7000,8000 

310 GOTO 220 

400 REM **** Untermenue DATEN - Eingabe ** 


410 CLS:CLS#1:CLS#2:CLS#3 

420 LOCATE#1,17,2:PRINT#1," **** Unterme 
nue fuer DATEN - EINGABE **** 

430 LOCATE#2,20,6:PRINT#2," 1 = Datum und 
Adresse " 


440 LOCATE#2,20,8:PRINT#2," 2 = Anlagebeze 
ichnung/Betreff/Steuernr./Vers.Nr." 

450 LOCATE#2,20,10:PRINT#2," 3 = Kurztext 
fuer Mitteilung { 3 Zeilen) " 

460 LOCATE#2,20,12:PRINT#2," 4 = Tastenbel 
egung Zehnerblock " 

470 LOCATE#2,20,14:PRINT#2," 5 = Eingabe d 
er Daten Tabelle " 

480 LOCATE#2,20,16:PRINT#2," 6 = Drucker I 
nitialisieren " 

485 LOCATE#2,20,18: PRINT//2 , " 7 = Zum Haupt 
menue " 


490 LOCATE#3,1 8,2:PRINT#3," Bitte waehle 
n <1 bis 7 > " 


500 a$=INKEY$:IF a$="" THEN 500 

510 ON VAL(a$) GOTO 600,800,700,9000,1000, 

900,220 

520 IF a$ <"1 11 OR a$>"7" THEN PRINT CHR$(7) 
:GOTO 500 

600 REM ** Datum und Adresse ** 

610 CLS : CLS # 1 :CLS#2 ;CLS//3 : LOCATE# 1,20,2: PR 
INT#1," **** Datum und Adresse eingeben 

* * • ••• 


620 LOCATE//2,2,2: PRINT#2 , "Datum == > 

:INPUT#2,dat$ 

630 LOCATE#2,2,4:PRINT#2,"Anrede ==> 

:INPUT#2,anr$ 

640 LOCATE#2,2,6:PRINT#2,"Vorname Name ==> 


[3647 ] 

[3777 ] 

[1717] 
[42451 

[118] 

[2516] 

[3316 ] 

[6743 ] 


[1847 ] 

[2226) 

[1251 ] 
(2147 ] 


[1309] 
[ 1011 ] 
[1415 1 
[1385] 
[5505] 

[2771 ] 
[272] 
[1393 ] 
[118] 
[2453 ] 

[4781 ] 

[1 2931 1 


[3284] 

13365) 

[1 408 ] 
[2995] 

[2315) 

1425] 
[2093 ) 

[118) 

[42631 

[201 6 ] 

[6361 ) 

[4684] 

(4093 1 

(32631 

134191 

[2841 ] 

[33651 

[1380] 

[3072] 

13037] 

[1962 ] 
[2424 ] 

[4265 ] 
[3506] 
(3545) 


";: INPUT//2, name$ 

650 LOCATE#2,2,8: PRINT//2, "Strasse Nr. ==> 
"; :INPUT#2,strasS 

660 LOCATE#2,2,10:PRINT#2,"PLZ Ort 

> :INPUT#2,ort$ 

670 LOCATE//2,14,16: PRINT#2, "Daten richtig 
eingegeben ? < j/n > " 

680 a$=UPPER$(IMKEYS):IF a$="" THEN 680 
690 IF a$="N" THEN CLS#2: GOTO 620 ELSE 41 
0 

700 REM **** Kurztext 3 Zeilen fuer Mitte 
ilung an Empfaenger ***** 

710 CLS : CLS//1 : CLS#2 : CLS#3 : LOCATE# 1,20,2 : PR 
INT#1," **** Bis 3 Zeilen Kurzmitteilung 

720 LOCATE//2,2,2: PRINT#2 , " * Kurzmitteilung 
en fuer Empfaenger eingeben (72) Zeichen 
je Zeile! «":LOCATE#2,2,4:PRINT#2,"* 2 Zei 
len zwischen Anschrift und Tabelle * 1 Zei 
le am Ende *" 

730 LOCATE#2,2,6:PRIHT#2,"1 ) ==> ";:LINE I 
NPUT#2,,textl$ 

735 IF LEN(textl$(n))>72 THEN LOCATE#2,14, 

18:PRINT#2,"Text zu lang.":PRINT CHR$( 

7):FOR a=1 TO 1500 :NEXT a:CLS//2 :GOTO 730 

740 LOCATE//2,2,8: PRINT#2, "2 ) == > ";:LINE I 
NPUT#2,"",text2S 

750 IF LEN(text2$(n))>72 THEN LOCATE#2,14, 

18:PRINT#2,"Text zu lang.":PRINT CHR$( 

7):FOR a=1 TO 1500:NEXT a:CLS#2:GOTO 740 
755 LOCATE#2,2,10:PRINT#2,"3) Endzeile ==> 
";:LINE INPUT#2,"",text3$ 

760 IF LEN(text3$(n))>72 THEN LOCATE#2,14, 

18:PRINT#2,"Text zu lang.":PRINT CHR$( 

7 ): FOR a = 1 TO 1 500:NEXT a:CLS//2: GOTO 755 
770 LOCATE#2,14,16:PRINT#2,"Daten richtig 
eingegeben ? < j/n > " 

780 a$=UPPER$(INKEYS):IF aS="" THEN 780 
790 IF a$="N" THEN CLS#2: GOTO 720 ELSE 41 
0 

800 REM ** Eingabe der Anlagebezeichnung * 

* 

810 CLS :CLS#1 : CLS//2 :CLS#3 : LOCATE# 1 ,1 7,2 : PR 
INT#1," **** Eingabe der Anlagebezeich 

nung •***" 

820 LOCATE#2,2,6:INPUT#2,"",anlage$ 

850 LOCATE#2,14,16:PRINT#2,"Daten richtig 
eingegeben ? < J/N > " 

860 a$=UPPER$(INKEYS):IF a$="" TUEN 860 
870 IF a$="N" THEN CLS#2: GOTO 820 ELSE 41 
0 

900 REM ** Drucker Initialisieren fuer NLQ 
401 von Schneider *• 

910 CLS:CLS#1:CLS#2:CLS#3:LOCATE#1,20,2:PR 
INT#1," **** Drucker Initialisieren 

♦ * * * 11 

92 0 LOCATE#3,2,2:PRINT#3,"Zum Schreiben in 
Schmalschrift erst Option 2 druecken!! " 
930 LOCATE#3,60,2:PRINT#3,"Mit ENTER zurue 
ck...":LOCATE#2,28,18:PRINT#2,"Drucker ein 
schalten!!":PRINT CHR$(7) 

940 LOCATE//2,2,6: PRINT#2 , " Einschalten NLQ 
= 1 Ausschalten = 2 

":LOCATE#2,2,10:PRINT#2," Schmalschrift ei 
n =3 Schmalschrift aus = 4" 

950 a$=INKEY$:IF a$="" TUEN 950 

960 IF a$ = "1 " TUEN PRIMT//8 ,CHR$ ( 27 ); CHR$ (1 

20);CHR$(1):GOTO 950 

970 IF a$ = "2" THEN PRINT//8 ,CHR$ ( 27 ) ; CHR$ (1 
20 ) ;CHR$(0):GOTO 950 

980 IF a$="3" THEN PRINT#8,CHR$(15):GOTO 9 
50 

985 IF a$="4" THEN PRINT#8,CHR$(18):GOTO 9 
50 

990 GOTO 410 

1000 REM ** Dateieingabe *** 

1010 CLS:CLS#1:CLS#2:CLS#3 

1020 LOCATE#1,2,2:PRINT#1," Dateneingabe " 
1030 zaehler=0:anzahl=0 
1040 FOR n=1 TO 60 

1090 LOCATE//2,1,2: PRINT#2 , "Dateneingabe be 
enden, bei Beleg Nr. <@> eingeben!" 

1100 PRINT#2 

1110 LOCATE#1,65,2:PRINT#1,"Lfd.-Nr.";n 
1120 LOCATE//2,1,6: PRINT#2, "Beleg Nr. 

> ";:INPUT#2,,belS(n) 

1130 IF bel$(n)="@" THEN zaehler=1:anzahl= 
n-1:GOTO 1310 


(19751 

[37991 

[4779] 

[1844 ) 
[16381 

(2814 ] 

[4620] 

[13418 ) 


[3220] 
[8462 ) 

(2606] 
(6650 ) 

(4363) 
(6605 ] 

[4779 ] 

[1840] 

[1312) 

[181 4 ] 

[4791 ) 

[2055] 

[4779] 

[1840 ] 
[1627 ] 

[1 697] 

(4546 ] 

(6446 ] 
[57551 

[9795] 


[1322] 
[2913] 

[2824 ] 

[2915 ] 

[2397] 

[450 ] 
[2299 ] 
[118] 
(2245) 
[1 597 ) 
[900] 
[5670 ) 

[317] 

[2797] 

[3508] 

[2948] 
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1150 LOCATE#2,1,4:PRINT#2,"Texteingabe bis 
40 Zeichen !!" 

11 60 LOCATE#2,1,9: PRINT#2 , "Text 
> ";:INPUT#2,,text$(n) 

1170 IF LEN( text$(n) ) >4 0 TUEN LOCATE#2,14, 

1 8 : PRINT#2, "Text zu lang.PRINT CIIR$( 

7):FOR a=1 TO 1500:NEXT a:CLS#2:GOTO 1160 
1180 LOCATE#2,1 ,12: PRINT#2, "Betrag DM: 

= > ";: INPUT//2 ,"",dn(n) 

1200 LOCATE//2,14,16 

1210 PRINT#2,"Daten richtig eingegeben ? 

< J/N > " 

1220 a$=UPPER$(INKEY$):IF aS="" THEN 1220 
1230 IF a$="j" THEN CLS#2:GOTO 1260 
1240 IF a$ = "N" THEN CLS#2:GOTO 1090 
1250 SOUND 1,200,50,7:SOUND 2,201,50,7:GOT 
0 1220 

1260 zwisu=zwisu+dm(n) 

1270 L0CATE#3,5,2:PRINT#3,"Zwischensumme D 

M : "; USING"###### .##";zwisu 

1280 IF n >=60 THEN anzahl=n-1:GOTO 1310 

1300 NEXT n 

1310 esu=esu+zwisu 

1320 GOTO 220 

2000 REM *•* Anlagen Laden von Diskette/Ka 
ssette *** 

2010 CLS:CLS#1 :CLS#2?CLS#3 

2020 LOCATE#1,27,2:PRINT#1,"Laden von Disk 

ette/Kassette" 

2030 LOCATE#3,10,2: PRINT//3, "Diskette/Kasse 

tte einlegen.PRINT CHR$(7):FOR a 

=1 TO 1500:NEXT a 
2040 GOSUB 9500 

2050 LOCATE #2,2,1:PRINT#2,"Directory der 

eingelegten Discette.".‘WINDOW SWAP 0, 

2:LOCATE#2,2,6:CAT:WINDOW SWAP 2,0:REM *** 
Zeile bei Kassettembetrieb entfernen *** 
2060 LOCATE #2,2,19:PRINT#2,"Bitte geben S 
ie den Namen ein (ohne extention!)" 

2070 LOCATE#2,2,20;INPUT#2,"",nam$:nam$=na 
m$+ .tab" 

2080 IF LEN(nam$)>12 THEN LOCATE#2,20,18:P 
RINT#2,"Name zu langCLS#2:FOR a=1 TO 
1200:NEXT a:GOTO 2060 
2090 OPENIN nam$ 

2100 LINE INPUT#9,dat$ 

2110 LINE INPUT#9,anr$:LINE INPUT#9,name$: 
LINE INPUT#9,strasS:LINE INPUT#9,ort$ 

2120 LINE INPUT#9,anlage$ 

2130 LINE INPUT#9,textl$:LINE INPUT#9,text 
2$:LINE INPUT#9,text3$ 

21 50 INPUT#9,zwisu:INPUT#9,esu:INPUT#9,anz 
ahl 

2160 FOR n=1 TO 60:zaehler=0 
2170 IF EOF THEN 2290 

2180 LINE INPUT#9,bel$(n):LINE INPUT#9,tex 
t$(n):INPUT#9,dm(n) 

2190 REM 
2220 NEXT n 
2290 CLOSEIN 
2300 GOTO 220 

3000 REM *** Anlagen Sichern auf Diskette/ 
Kassette *** 

3010 CLS:CLS#1:CLS#2:CLS#3 

3020 LOCATE#1,27,2:PRINT#1,"Sichern auf Di 

skette/Kassette" 

3030 LOCATE#3,10,2:PRINT#3,"Diskette/Kasse 

tte einlegen.";:PRINT CHR$(7):FOR a= 

1 TO 1500: NEXT a 
3040 GOSUB 9500 

3050 LOCATE #2,2,1:PRINT#2,"Directory der 

eingelegten Discette.WINDOW SWAP 0, 

2:LOCATE#2,2,6:CAT:WINDOW SWAP 2,0:REM *** 
Zeile bei Kassettembetrieb entfernen *** 
3080 LOCATE#2,2,19:PRINT#2,"Bitte geben Si 
e den Namen ein (ohne extention!)" 

3090 LOCATE#2,2,20:INPUT#2,"",nam$ :nam$=na 
m$+".tab" 

3100 IF LEN(narnS) >12 TUEN LOCATE#2,20,1 8:P 
RINT#2,"Name zu lang...":CLS#2:FOR a = 1 TO 
1200:NEXT a:GOTO 3080 
3110 OPENOUT nam$ 

3120 PRINT#9,dat$ 

3130 PRINT#9, anr$:PRINT#9,name$:PRINT#9,st 
ras$:PRINT#9,ortS 

3140 PRINT#9,anlage$:PRINT#9,textl $:PRINT# 

9,text2$:PRINT#9,text3$ 

3150 PRINT#9,zwisu:PRINT#9,esu:PRINT#9,anz 
ahl 


[2536 ] 
M3S? J 
[7101 I 


13936 ] 

[938 ] 
13862] 

[1588] 
[1861 ] 
[1234 ] 
[3055] 

[1 326 ] 
[4396 ] 

1832) 
[366] 
[1793 ] 
[425] 
(2358] 

[1 18 J 
(3022 ] 

[6367 ] 


[844 J 
[9430 J 


[5186 3 
[2252] 
[5064 ] 


11020 ] 
[1 564 ] 
[4709] 

[1537 ] 
[6172] 

[2813] 

[1767 ] 
[394 1 
[4455] 

[272] 
[366] 
[752] 
[425] 
[1668 ] 

[118] 

[2633] 

[6606] 


[844 ] 
(94301 


[5186] 
[2252] 
[5068 ] 

[773] 
[978] 
[2922 ] 

[5027] 

13380 ] 


3160 FOR n=1 TO anzahl 
3170 REM 

31 80 PP.INT#9, beis (n): PRINT#9, text$ (n): PRIN 
T#9,dm(n) 

3190 REM 
3200 NEXT n 
3210 CLOSEOUT 
3220 GOTO 220 

4000 REM *** Bildschirmausgabe **•* 

4010 CLS:CLS#1:CLS#2:CLS#3 

4020 LOCATE#1,23,2:PRINT#1B I L D S C 

H IR MAUSGABE" 

4030 zaehler=0 

4040 PRINT#2,änr$:PRINT#2,name$:PRINT#2,st 
ras$:PRINT#2,”":PRINT#2,ort$ 

4050 PRINT#2,anlage$ 

4060 PRINT#2,textl$ 

4070 PRINT#2,text2$:PRINT#2:PRINT#2 
4080 PRINT#2,"Beleg" 

4090 PRINT#2,"Nr.";:PRINT#2," TEX T"; 

4100 PRINT#2,TAB(63);"Summe " 

4110 PRINT#2,STRING$(80,) 

4115 GOSUB 9500 

4120 FOR n=1 TO anzahl:zaehler=zaehler+1 

4130 IF text$(n)="@" TH EN 4250 

4140 IF zaehler>15 THEN GOSUB 9500:zaehler 

=0 


4160 PRINT#2,TAB(2);USING"\ \";bel$(n); 

4170 PRINT#2,TAB(10);USING"\ 

\" ; text$(n); 

4180 PRINT#2,TAB(59 );USING"######.##";dm{n 
4230 NEXT n 

4240 REM *** Schlussrechnung *•* 

4250 PRINT#2,STRINGS(80,95); 

4260 PRINT#2," Endsumme DM";:PRINT#2,TAB(5 

9);USING"######.##";esu 

4270 PRINT#2 

4280 PRINT#2,text3$ 

4290 GOSUB 9500 

4300 CLS#3:PRINT#3:PRINT#3," Keine weitere 

n Daten vorhanden." 

4310 GOTO 220 

6000 REM *** DRUCKERAUSGABE *** 

6010 CLS:CLS#1:CLS#2:CLS#3 
6020 LOCATE#1,25,2:PRINT#1DRUCKER 
AUSGABE" 

6030 LOCATE#2,28,18:PRINT#2,"Drucker einsc 
halten!PRINT CHR$(7) 

6040 LOCATE#2,20,12:PRINT#2,"A C H T U N G 

es wird gedruckt.!" 

6050 LOCATE#2,10,4:PRINT#2,"< 1 > = mit 
< 2 > = ohne Anschrift < 3 > = Nur Ta 
belle " 

6060 a$=INKEY$:IF a$="" THEN 6060 
6070 IF a$="1" THEN GOSUB 9300:GOTO 6120 
6080 IF a$="2" THEN GOSUB 9300:GOTO 6200 
6090 IF a$="3" TUEN GOTO 6400 
6110 REM *** Anschrift drucken *** 

6120 PRINT#8:PRINT#8:PRINT#8:PRINT#8 
6130 PRINT#8,TAB(7 );anr$ 

6140 PRINT#8,TAB(7);name$ 

61 50 PRINT#8,TAB(7);strasS:PRINT#8 
6160 PRINT#8,TAB(7);ort$ 

6170 PRINT#8:PRINT#8:PRINT#8 
6200 PRINT#8,TAB(7);anlageS:PRINT#8:PRINT# 
8 

6210 PRINT#8,TAB{7);textl $ 

6220 PRINT#8,TAB(7);text2$ 

6230 PRINT#8:PRINT#8 
6300 REM 
6380 REM 

6400 REM *** Ausdruck nur Tabelle *** 

6440 PRINT#8,TAB(7);"Beleg.Nr."; 

6450 PRINT#8,TAB(21);"Bezeichnung des Bele 
ges"; 

6460 PRINT#8,TAB(67),-"Summe DM " 

6470 PRINT#8,TAB(7);STRINGS(68, ) 

6480 FOR n=1 TO anzahl 

6490 IF bel$(n)="@" THEN 6590 

6500 bei(n)=VAL(bel$(n)):PRINT#8,TAB(7);US 

ING"###";bei(n); 

6520 PRINT#8,TAB(14);USING"\ 

\";text$(n) 


6530 PRINT#8,TAB(66);USING"######.##" 

); 

6540 NEXT 

6550 REM ** Schlussrechnung *** 


;dm(n 


(833) 

[272] 

[4560] 

[272] 

[366 ] 

[902] 

[425] 

[1 646] 

[118] 

[2762] 

[699] 
[5463 ] 

[454 ] 

[313] 

[1860] 

[909] 

[3251 ] 

[1635] 

[1476] 

[844 ] 

[2696] 

[1590 ) 

[1876] 

[2296 ) 
[3459] 

[1136 3 

[366] 

[1265] 

[1534] 

[3556] 

[317] 
[309] 
[844 J 
13345) 

[425 J 
[1 418] 
[118] 
[2643] 

[5752] 

[4167] 

[3879] 


[1271 ] 
[2109] 
[1 463] 
[1561 ] 
(1896 ] 
[1873] 
[1595] 
[1892] 
[21493 
[1798 ] 
[1827] 
[3758] 

[1700] 
[1706 ] 
[1314] 
[272] 
[272 ] 

[1371 ] 
[1668 ] 
[3012] 

[1570] 
12719] 
[833 3 
[1162] 
[2665] 

[3883] 


[2191 ] 

[350 ] 
[1827 ] 
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6590 PRINT#8,TAB(7);STRINGS(68,"_") 127191 

6600 PRINT#8,TAB(50);"Gesamtsumme DM [25791 

6610 PRINT#8 ,TAB (66 );USING"######.##" ;esu; [18581 
6620 PRINT//8 [343 1 

6630 PRINTE8,TAB(64);STRINGS(11,61) [16391 

6640 PRINT#8 : PRINT//8 [1314 1 

6650 PRINT#8,TAB(7);text3$ [1728] 

6660 FOR a=1 TO 4 : PRINT#8 :NEXT a [1814 1 

6670 CLS #3 [371 1 

6680 LOCATE#3,10,2: PRINT//3, "Keine weiteren [5748] 
DATEN mehr vorhanden...... I" 

6690 GOSUB 9500 [8441 

6700 GOTO 220 [4251 

7000 REM *** Programminformationen *** [23731 

7010 CLS:CLS#1:CLS#2:CLS#3 [1181 

7020 LOCATE#1 ,20,2 : PRINT//1 , " **** Progra [3925 ] 

mminfnrmaf n nnan ****** 


7030 PRINT#2:PRINT#2," TABWRITE wurde konz [42781 
ipiert zum Erstellen von Anlagen (Listen), 
die eine Spalte" 

7040 PRINT#2," zum Addieren von Summen vor [8188] 
sieht. Z .B.:Steuer/Versicherung/Krankenkas 


7230 GOTO 220 

8000 REM *** Programm beenden **** 

8010 CLS:CLS#1 :CLS#2:CLS#3 

8020 LOCATE#1,16,2:PRINT#1," **** Prog 

ramm Beenden ***•" 

8030 LOCATE#3,18,2:PRINT#3,"Achtung!! Alle 
DATEN werden geloescht!!" 

8040 LOCATE//2,15,10: PRINT#2, "Wollen Sie da 
s Programm beenden < J/N > ?" 

8050 a$=UPPER$(INKEYS):IF a$="” THEN 8050: 
IF a$="J" THEN LOCATE#2,20,14:PRINT#2,"All 

e Daten wurden geloescht.!":GOTO 8110 

8060 IF a$="N" THEN GOTO 220 

81 10 CLS#3:LOCATE#3,25,2:PRINT#3,"Tschuess 

! So long und good bye.":FOR a=1 TO 10 

00:NEXT a 
8120 END 

9000 REM **** Tastenbelegung des Zehnerbio 
ckes ***** 

9010 CLS :CLS# 1: CLS #2: CLS#3: LOCATE#1 , 1 6,2: P 
RINT#1," **** Tastenbelegung des Zehnerb 
lockes ***•" 


[4251 
[14581 
[1181 
[2871 ] 

[3974] 

[6293 1 

[7080J 


[8991 

153971 


1110 ] 

116651 

13715) 


7050 PRINT#2," Kurzbeschreibung zum Ablauf [10202] 
:":PRINT#2," Das Hauptmenue ist selbsterkl 
aerend. Waehlen Sie Option 1 = Dateneinqab 
e! " 


7060 PRINT#2," Utermenue DATEN - Eingabe: [11016] 
":PRINT#2," Sie koennen mit 1 beginnend, d 
ie von Ihnen gewuenschten Optionen anwaehl 

an ** 


7070 

PRINT#2," und dort die Daten Eingeben 

[6684 1 


PRINT#2:PRINT#2," 

OPTION EINGA 


BE 

oder 

: " 


7080 

PRINT#2,:PRINT#2, 

11 

== 1 == Ein 

[47341 

gäbe 

Datum 

ENTER" 


7090 

PRINT#2," == 1 

= = 

Anschrift 

12681 ) 


ENTER" 




7100 

PRINT#2," == 2 

= = 

Bezeichnung 

[4734] 

der . 

Anlage ENTER" 




7110 

PRINT#2," == 3 

= = 

1. Textzeile 

13708] 


ENTER" 




71 20 

PRINT#2," == 3 

= = 

2. Textzeile 

[21791 


ENTER" 




71 30 

PRINT#2," == 3 

= = 

3. Textzeile 

[3793 1 

Endzeile ENTER" 




71 40 

PRINT#2," == 4 

= = 

Tastenbelegu 

[56863 

ng 0 

-9 Zehnerblock oder 

ENTER " 


7150 

PRINT#2," == 5 

= = 

Dateneingabe 

[7574 ] 

Tabelle, wird Mit 

• H 

@ - 

= Klammeraffe be 


a. 

71 60 

GOSUB 9500:PRINT#2," 

Beleg.Nr. verlas 

19479] 

sen. 

Eine neue Tabelle 

kann nur ueber Prog 


ramm 

beenden, " 




71 70 

PRINT#2," Hauptmenue 

Option 7 erstell 

112078 1 


t werden. Mit zweimal ESC-Taste und RUN 1! 

":PRINT#2," kann man ebenfalls das Progra 
mm verlassen und neu beginnen." 

7200 PRINT#2:PRINT#2," Noch ein Hinweis zu [8380] 
m Kleindruckl! Man muss beim NLQ 401 immer 
erst die Opt. 2" 

7210 PRINT#2," (NLQ aus) eingeben, um den [7782] 
Kleindruck mit Option 3 aktivieren zu koen 
nen!" 


7220 GOSUB 9500 


[844 1 


9040 CLS #2:L0CATE#3,25,2::PRINT#3, "Aendern [4631] 
der Tastenbelegung......" 

9050 FOR t=0 TO 9:PRINT#2,"Taste";t;":":LI [4563] 
NE INPUT#2," " ,k$ (t):NEXT t 

9060 CLS#3:LOCATE#3,20,2:PRINT#3,"Daten ri [6007] 
chtig eingegeben < j/w > ? " 

9070 a$=UPPER$(INKEY$):IF aS="" THEN 9070 [3302] 

pt.Q i? tp "m" toh an AC\ 


9080 IF a$<>"J" THEN CLS#2:GOTO 9070 [1590] 

9090 FOR t=0 TO 9:KEY t,k$(t):NEXT t 11985J 

9100 GOTO 410 [450] 

9300 REM *** Eingabe Absender fest *** [1835] 
9310 z$(1)="Hans Mueller" [3006) 

9320 z$(2 ) ="5309 Meckenheim, " [21361 

9330 z$(3)="Elserweg 12" [20991 

9340 REM [2721 

9380 PRINT#8,TAB(7);z$(1);:PRINT#8,TAB(45) [4000J 
;z$(2);:PRINT#8,dat$ 

9390 PRINT#8,SPACES(44);z$(3) [1564) 

9400 RETURN [555] 

9500 REM **** Unterprogramm warten auf Tas (3028) 
te ***** 

9510 CLS#3:LOCATE#3,30,2:PRINT#3,"Bitte Ta [45111 

H yn dpi- on 


9520 CALL &BB06 13931 
9530 CLS#3 [3711 
9540 RETURN [5551 



Activision..........2 

Computermax. 21 

GAI.66 

Melchers.164 


Inserentenverzeichnis 


Rethemeier.....32 

Rushware.163 

Schuster...82,83 

Shekhana.159 


Vortex.89 

Werder.159 
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Der CPA-80 GS Matrixdrucker für CPC-464/664 und 6128 


Kompatjbel: vollkompatibel inklasivGemi-Grafik % Schnell: 100 Zeichen/ 
Sekunde • Schriftbil d: Korres pondenzschrift, PICA, ELITE, jJALIC • 
Vielseittg: Umschaltbar auf EPSON-Kompatibilität per DIP-Schalter •'Pro- 
fessionell: frerprogrammierbarer ZeichensaTz- Umwandlung von-7-ßit- 

Übertragung in S-Bit-Graphic-tmage-Mode-möglich-EinzelblatU und 

Endlospapierzuführung ^Traktor mit.Vor- und -Rücklauf: ^Automatischer 
Einzetblattefnzug als Option • Komfortabel: Externe DIP-Schalter 
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